tests/testthat/test-check_year.R

In Moohan/slfhelper: Useful functions for working with the Source Linkage Files

test_that("Year check returns TRUE for correct newer years", {
  expect_true(check_year("1718"))
  expect_true(check_year("17/18"))
  expect_true(check_year(1718))
  expect_true(check_year("201718"))
  expect_true(check_year("2017/18"))
})

test_that("Year check returns FALSE for correct older years", {
  expect_false(check_year("1213"))
  expect_false(check_year("12/13"))
  expect_false(check_year(1213))
  expect_false(check_year("201213"))
  expect_false(check_year("2012/13"))
})

test_that("Year check rejects clearly erronous years", {
  expect_snapshot_error(check_year("twenty-twenty"))
  expect_snapshot_error(check_year(21))
})

test_that("Year check rejects ambiguous years", {
  expect_snapshot_error(check_year("2017"))
  expect_snapshot_error(check_year("2020"))
  expect_snapshot_error(check_year("1514"))
})

test_that("Year check rejects out of bounds years", {
  expect_snapshot_error(check_year("1011"))
  expect_snapshot_error(check_year("10/11"))
  expect_snapshot_error(check_year("2010/11"))
})