tests/testthat/test-format_ay_reverse.R

In dfeR: Common Department for Education Analysis Tasks

test_that("Rejects incorrectly formatted dates", {
  expect_error(format_ay_reverse(19858))
  expect_error(format_ay_reverse(1985))
  expect_error(format_ay_reverse(1985867))
  expect_error(format_ay_reverse("1999c"))
  expect_error(format_ay_reverse("abcdef"))
  expect_error(format_ay_reverse("1985--98"))
})

test_that("Converts correctly", {
  expect_equal(format_ay_reverse("1999/20"), "199920")
})

test_that("Handles vectors", {
  expect_equal(
    format_ay_reverse(c("1999/20", "2020/21")),
    c("199920", "202021")
  )
  expect_error(format_ay_reverse(c("1999/20", "abcdef")))
})