tests/testthat/test-format_fy_reverse.R

In dfeR: Common Department for Education Analysis Tasks

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

test_that("Converts correctly", {
  expect_equal(format_fy_reverse("1999-20"), "199920")
})

test_that("Handles vectors", {
  expect_equal(
    format_fy_reverse(c("1999-20", "2020-21")),
    c("199920", "202021")
  )
  expect_error(format_fy_reverse(c("1999-20", "1985/98")))
})