timings/25fefcec0cc0ee303880884d2bf641f8a5d89277/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"))
})

context("grattan_dollar")

test_that("grattan_dollar correct", {
  expect_equal(grattan_dollar(100), "$100")
  expect_equal(grattan_dollar(-100), paste0("\U2212", "$100"))
})