timings/0a1a7af841032ebc69d11ff34f3e4cc952106388/grattan/tests/testthat/test_generic_inflator.R

In HughParsonage/grattan: Australian Tax Policy Analysis

context("generic inflator")

test_that("generic inflator doesn't fail!", {
  expect_is(generic_inflator(vars = "Sw_amt", h = 0L), "data.frame")
  expect_is(generic_inflator(vars = "Sw_amt", h = 1L), "data.frame")
})
  
test_that("generic inflator gives higher/lower for upper/lower", {
  expect_gte(generic_inflator(vars = "Sw_amt", h = 1L, estimator = "mean")[["inflator"]], 
             generic_inflator(vars = "Sw_amt", h = 1L, estimator = "lower")[["inflator"]])
  
  expect_lte(generic_inflator(vars = "Sw_amt", h = 1L, estimator = "mean")[["inflator"]], 
             generic_inflator(vars = "Sw_amt", h = 1L, estimator = "upper")[["inflator"]])
})