tests/testthat/test_LITO.R

In grattan: Australian Tax Policy Analysis

context("LITO")

test_that("LITO", {
  expect_error(lito("foo"))
  expect_equal(lito(20e3, "2015-16"), 445)
  expect_message(lito(20e3))
})


test_that("LMITO", {
  expect_message(lmito(20e3))
  # Test 2019 Budget version
  
  expect_equal(lmito(income  = seq(30e3, 130e3, 10e3),
                     fy.year = "2019-20"),
               c(255, 480, 1080, 1080, 1080, 1080, 1080, 780, 480, 180, 0))
  
})