timings/cc51cba1d675db130b163ce1b219f47cabd09866/grattan/tests/testthat/test_texNum.R

In HughParsonage/grattan: Australian Tax Policy Analysis

context("texNum return correct")
test_that("texNum returns known results", {
  expect_equal(texNum(180000), "180,000")
  expect_equal(texNum(1800000), "1.8~million")
  expect_equal(texNum(1850000), "1.85~million")
  expect_equal(texNum(1850000, 2), "1.8~million")
  expect_equal(texNum(1850000, 2, TRUE), "\\$1.8~million")
  expect_equal(texNum(-1850000, 2, TRUE), "$-$\\$1.8~million")
  expect_equal(texNum(-5), "$-$5")
  expect_equal(texNum(500e6 - 1, pre.phrase = c("almost", "over")), "almost 0.5~billion")
  expect_equal(texNum(500e6, pre.phrase = c("almost", "over")), "0.5~billion")
  expect_equal(texNum(500e6 + 1, pre.phrase = c("almost", "over")), "over 0.5~billion")
  expect_true(texNum(380e9) %in% c("380~billion", "0.38~trillion"))
  expect_true(texNum(380e9 - 1, pre.phrase = c("X", "Y")) %in% c("X 380~billion", "X 0.38~trillion"))
  expect_true(texNum(380e6) %in% c("380~million", "0.38~billion"))
})