tests/testthat/test-refresh_covid19tunisia.R

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)
  )
})
MounaBelaid/covid19tunisia documentation built on Dec. 3, 2020, 2:37 p.m.