tests/testthat/test-summary.R

In canadacovid: API Wrapper for the Canadian COVID-19 Tracker

test_that("get_summary works", {
  request_sleep()
  expect_error(get_summary(split = "provice"), "arg")

  request_sleep()
  summary_overall <- get_summary()
  expect_equal(nrow(summary_overall), 1)
  expect_equal(ncol(summary_overall), 24)
  expect_false(any(is.na(summary_overall)))

  request_sleep()
  summary_province <- get_summary(split = "province")
  expect_equal(nrow(summary_province), 13)
  expect_equal(ncol(summary_province), 25)
  expect_setequal(summary_province$province,
                  c("ON", "QC", "NS", "NB", "MB", "BC", "PE", "SK", "AB",
                    "NL", "NT", "YT", "NU"))

  request_sleep()
  summary_region <- get_summary(split = "region")
  expect_equal(nrow(summary_region), 92)
})