timings/027436205612de8f48f4c5be906435ed04a870ff/grattan/tests/testthat/test_wout_taxstats.R

In HughParsonage/grattan: Australian Tax Policy Analysis

context("Tests to deploy when taxstats not present")

test_that("mutate_super_vars", {
  skip_on_cran()
  skip_if_not(identical(Sys.getenv("TRAVIS"), "true"))
  skip_if_not(identical(Sys.getenv("TRAVIS_R_VERSION_STRING"), "release"))
  skip_if_not_installed("taxstats")
  library(utils)
  
  if (requireNamespace("taxstats", quietly = TRUE)) {
    s1314 <- as.data.table(taxstats::sample_file_1314)
    res <- apply_super_caps_and_div293(s1314)
  }
  
  # age range decoder
  Sys.setenv("TRAVIS_DISALLOW_TAXSTATS" = "TRUE")
  res_wout_taxstats <- apply_super_caps_and_div293(s1314)
  expect_equal(res_wout_taxstats, res)
  
  
  
  
})