tests/testthat/test-hldy-christmas.R

test_that("is on christmas", {
  x <- hldy_christmas(since = "2000-01-01", until = "2005-01-01")

  expect <- as.Date(paste0(2000:2004, "-12-25"))

  expect_identical(
    alma_events(x),
    expect
  )
})
DavisVaughan/vacation documentation built on May 2, 2020, 11:07 a.m.