From c2b562f2fd8233a7e24cf3a9ad11a25cfcf009fe Mon Sep 17 00:00:00 2001 From: HughParsonage Date: Sun, 3 Mar 2024 04:59:32 +1100 Subject: [PATCH] Did not trigger till lapply --- tests/testthat/test_incometax_single.R | 78 ++++++++++++++++++++++++++ 1 file changed, 78 insertions(+) diff --git a/tests/testthat/test_incometax_single.R b/tests/testthat/test_incometax_single.R index 64efb242c..bab139311 100644 --- a/tests/testthat/test_incometax_single.R +++ b/tests/testthat/test_incometax_single.R @@ -138,6 +138,84 @@ test_that("Previous years (intel compiler trigger)", { expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1998)))) expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1999)))) expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2000)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2001)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2002)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2003)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2004)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2005)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2006)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2007)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2008)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2009)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2010)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2011)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2012)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2013)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2014)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2015)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2016)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2017)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2018)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2019)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2020)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2021)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2022)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2023)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2024)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2025)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2026)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2027)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2028)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2029)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2030)))) + + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1984)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1985)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1986)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1987)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1988)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1989)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1990)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1991)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1992)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1993)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1994)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1995)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1996)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1997)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1998)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(1999)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2000)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2001)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2002)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2003)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2004)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2005)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2006)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2007)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2008)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2009)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2010)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2011)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2012)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2013)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2014)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2015)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2016)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2017)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2018)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2019)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2020)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2021)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2022)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2023)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2024)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2025)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2026)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2027)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2028)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2029)))) + expect_true(hutilscpp::is_sorted(income_tax(1e3:151e3, fy::yr2fy(2030)))) List <- lapply(1984:2000, function(yr) { income_tax(1e3:151e3, fy::yr2fy(yr))