tests/testthat/test_revenue_foregone.R

In grattan: Australian Tax Policy Analysis

context("Revenue foregone")

test_that("Value of revenue_foregone", {
  Feed <- capture.output({
  library(data.table)
  dt <- data.table(new_tax = rep(1, 100), 
                   baseline_tax = integer(100), 
                   WEIGHT = 1)
  expect_equal(as.double(revenue_foregone(dt)), 100)
  expect_equal(as.double(revenue_foregone(dt, revenue_positive = FALSE)), -100)
  dt[, WEIGHT := 1e6]
  expect_output(print(revenue_foregone(dt)), '[1] "$100 million"', fixed = TRUE)
  expect_equal(print.revenue_foregone(revenue_foregone(dt, FALSE)),
               paste0("\u2212", "$100 million"))
  dt[, WEIGHT := 2.25e7]
  expect_output(print(revenue_foregone(dt)), '[1] "$2.2 billion"', fixed = TRUE)
  expect_equal(print.revenue_foregone(revenue_foregone(dt, FALSE)),
               paste0("\u2212", "$2.2 billion"))
  dt[, WEIGHT := 2.25e8]
  expect_output(print(revenue_foregone(dt)), '[1] "$22 billion"', fixed = TRUE)
  expect_equal(print.revenue_foregone(revenue_foregone(dt, FALSE)),
               paste0("\u2212", "$22 billion"))
  dt[, WEIGHT := 2.0155e8]
  expect_equal(print.revenue_foregone(revenue_foregone(dt, TRUE, digits = 6)),
               paste0("$20.155 billion"))
  })
  
})

test_that("latex output produces LaTeX escaped $", {
  # Purely to avoid polluting the devtools::test()
  # progress.
  Feed <- capture.output({
    skip_if_not_installed("knitr")
    skip_if_not_installed("withr")
    withr::with_envvar(c("_R_GRATTAN_MOCK_KNITR_LATEX_" = "true"), {
      library(data.table)
      dt <- data.table(new_tax = rep(1, 100), 
                       baseline_tax = integer(100), 
                       WEIGHT = 2e7)
      expect_equal(print.revenue_foregone(revenue_foregone(dt)), 
                   "\\$2~billion")
    })
  })
})