inst/tests/test-digits.R

In poissonconsulting/jaggernaut: Bayesian Analyses using 'JAGS'

context("digits")

test_that("digits", {
  expect_equal(digits(0.01), 2)
  expect_equal(digits(0.3), 1)
  expect_equal(digits(0.1), 1)
  expect_equal(digits(0), 0)
  expect_equal(digits(1), 0)
  expect_equal(digits(2), 0)
  expect_equal(digits(9), 0)
  expect_equal(digits(10), -1)
  expect_equal(digits(99), -1)
  expect_equal(digits(100), -2)
  expect_equal(digits(101), -2)
  expect_equal(digits(101), -2)
  
  expect_equal(digits(-0.01), 2)
  expect_equal(digits(-0.1), 1)
  expect_equal(digits(-0), 0)
  expect_equal(digits(-1), 0)
  expect_equal(digits(-2), 0)
  expect_equal(digits(-9), 0)
  expect_equal(digits(-10), -1)
  expect_equal(digits(-99), -1)
  expect_equal(digits(-100), -2)
  expect_equal(digits(-101), -2)
  expect_equal(digits(-101), -2)
  
  expect_equal(digits(1*10^5), -5)
  expect_equal(digits(9*10^5), -5)
  expect_equal(digits(10*10^5), -6)
  expect_equal(digits(1*10^200), -200)
  expect_equal(digits(1*10^-200), 200)  
})