tests/testthat/test-refresh_covid19tunisia.R

In covid19tunisia: Cases of COVID-19 in Tunisia

refresh_col_names <-
  c("date",
    "location",
    "location_type",
    "location_code",
    "location_code_type",
    "data_type",
    "value"
  )

test_that("location works", {

  res <- refresh_covid19tunisia()

  expect_named(res, refresh_col_names)

  expect_true(
    "Tunis" %in% unique(res$location)
  )
})