tests/testthat/test-cmonth_to_fmonth.R

In PublicHealthEngland/hcaidcs: R functions for the mandatory surveillance of bacteraemia and C. difficile infection

context("Converting calendar months to financial year months")

test_that("Function returns expected results", {
  expect_equal(cmonth_to_fmonth(1), 10)
  expect_equal(cmonth_to_fmonth(2), 11)
  expect_equal(cmonth_to_fmonth(4), 1)
  expect_equal(cmonth_to_fmonth(3), 12) # from bitter experience
  expect_equal(cmonth_to_fmonth(12), 9)
})