tests/testthat/test-get_france_regional_cases.R

test_that("get_france_regional_cases works as expected", {

  d <- get_france_regional_cases()
  expect_is(d, "data.frame")
  expect_is(d$date, "Date")
  expect_is(d$cases, "integer")
  expect_true(all(d$country == "France"))
})
epiforecasts/NCoVUtils documentation built on June 26, 2020, 1:20 a.m.