tests/testthat/test-test-data.R

In dsbbfinddx/FINDCov19Tracker: What the Package Does (One Line, Title Case)

test_that("get_test_data() works as expected", {
  automated <- get_test_data(write = FALSE)

  today <- format(Sys.time(), "%Y-%m-%d")
  first_date <- as.Date("2021-02-18")
  window_update <- seq(first_date+1, as.Date(today), by = "days")

  expect_s3_class(automated[["countries_error"]], "data.frame")

  expect_s3_class(automated[["test_combined"]], "data.frame")
  expect_named(automated[["test_combined"]], c(
    "country", "tests_cumulative",
    "new_tests", "tests_cumulative_corrected", "new_tests_corrected",
     "date", "source"
  ), ignore.order = TRUE)

  expect_equal(unique(automated[["test_combined"]]$date), window_update)

})

test_that("calc_manual_countries() works as expected", {
    manual_countries <- calc_manual_countries()

    expect_named(manual_countries, c(
      "country", "tests_cumulative",
      "new_tests", "tests_cumulative_corrected", "new_tests_corrected",
      "date", "source", "status", "url"
    ), ignore.order = TRUE)

  expect_s3_class(manual_countries, "data.frame")

  unlink("need-manual-processing.csv")
})

test_that("combine_all_tests() works as expected", {
  combine_all_tests()

  all <- read.csv("coronavirus_tests_new.csv"
  )
  expect_s3_class(all, "data.frame")
  expect_named(all, c(
    "country", "tests_cumulative",
    "new_tests", "tests_cumulative_corrected",
    "new_tests_corrected", "date", "source"
  ), ignore.order = TRUE)

  unlink("coronavirus_tests_new.csv")
})