tests/testthat/test-chk-date.R

In chk: Check User-Supplied Function Arguments

test_that("vld_date", {
  expect_false(vld_date(NULL))
  expect_false(vld_date(as.Date("2000-01-01")[-1]))
  expect_false(vld_date(as.Date("2000-01-01")[c(1, 1)]))
  expect_true(vld_date(as.Date("2000-01-01")))
})

test_that("chk_date", {
  expect_identical(chk_date(as.Date("2000-01-01")), as.Date("2000-01-01"))
  expect_invisible(chk_date(as.Date("2000-01-01")))

  expect_chk_error(chk_date(1), "^`1` must be a date [(]non-missing Date scalar[)][.]$")
  expect_chk_error(chk_date(1, x_name = "2001-02-04"), "^2001-02-04 must be a date [(]non-missing Date scalar[)][.]$")
})