tests/testthat/test-check_date.R

In metacran/cranlogs: Download Logs from the 'RStudio' 'CRAN' Mirror

context("test-check_date")

test_that("check_date throws an error if the date is poorly formatted", {
  expect_error(check_date("lala"), "formatted")
  expect_error(check_date("2016-31-12"), "formatted")
  expect_error(cran_downloads(from = "2019-01-01", to = "2019-31-12"), 
               "formatted")
  expect_error(cran_downloads(from = "2019-99-01", to = "2019-01-12"), 
               "formatted")
})

test_that("check_date throws no error if the date is ok", {
  from <- as.Date("2019-02-23", format = "%Y-%m-%d")
  expect_silent(check_date(from))
  
  expect_silent(check_date("2019-02-23"))
})