tests/testthat/test-pol_yr.R

In actxps: Create Actuarial Experience Studies: Prepare Data, Summarize Results, and Create Reports

test_that("Leap years work", {
  expect_equal(pol_yr("2021-02-28", "2020-02-29"), 1)
  expect_equal(pol_yr("2021-03-01", "2020-02-29"), 2)
  expect_equal(pol_mth("2020-03-28", "2020-02-29"), 1)
  expect_equal(pol_mth("2020-03-29", "2020-02-29"), 2)
  expect_equal(pol_yr("2024-02-27", "2023-02-28"), 1)
  expect_equal(pol_yr("2024-02-29", "2023-02-28"), 2)
})


test_that("pol_interval works", {
  expect_equal(pol_yr("2021-02-28", "2020-02-29"),
               pol_interval("2021-02-28", "2020-02-29", "year"))
  expect_equal(pol_qtr("2022-04-14", "2022-01-05"),
               pol_interval("2022-04-14", "2022-01-05", "quarter"))
  expect_equal(pol_wk("2022-01-19", "2022-01-05"),
               pol_interval("2022-01-19", "2022-01-05", "week"))
})