Nothing
tests/testthat/test_sapto.R
In grattan: Australian Tax Policy Analysis
test_that("sapto", {
expect_equal(sapto(9999L, "2017-18"), 2230)
expect_equal(sapto(c(100e3, 50e3), "2017-18", sapto.eligible = c(TRUE, FALSE)),
c(0, 0))
expect_error(sapto(100e3, "2017-18", fill = "a"), "fill")
})
test_that("valid sapto", {
expect_error(System(2018L, sapto_pension_age = 666, fix = 0L), "666")
expect_warning(System(2018L, sapto_pension_age = 666, fix = 1L), "666")
})
Try the grattan package in your browser
Any scripts or data that you put into this service are public.
grattan documentation built on Sept. 4, 2023, 5:08 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
test_that("sapto", {
expect_equal(sapto(9999L, "2017-18"), 2230)
expect_equal(sapto(c(100e3, 50e3), "2017-18", sapto.eligible = c(TRUE, FALSE)),
c(0, 0))
expect_error(sapto(100e3, "2017-18", fill = "a"), "fill")
})
test_that("valid sapto", {
expect_error(System(2018L, sapto_pension_age = 666, fix = 0L), "666")
expect_warning(System(2018L, sapto_pension_age = 666, fix = 1L), "666")
})
Try the grattan package in your browser
Any scripts or data that you put into this service are public.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.