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")
  )
})