tests/testthat/test_data.R

In RamiKrispin/covid19swiss: The 2019 Novel Coronavirus COVID-19 (2019-nCoV) Cases in Switzerland and Principality of Liechtenstein

test_that(desc = "Test the dates", {

  expect_equal(base::class(covid19swiss$date) == "Date", TRUE)
  expect_equal(base::min(covid19swiss$date) == as.Date("2020-02-25"), TRUE)
})


test_that(desc = "Test the structure", {

  expect_equal(base::ncol(covid19swiss) == 7, TRUE)
  expect_equal(base::nrow(covid19swiss) >= 6800, TRUE)


})