tests/testthat/test-02-ph_calculate_cases.R

In como-ph/comoparams: R Utility Tool to Extract, Process and Structure Philippines-Specific Datasets for Use in CoMo Consortium Model

x <- ph_get_cases()

y <- x %>% ph_calculate_cases()


test_that("output is tibble", {
  expect_is(y, "tbl")
})

test_that("output names are correct", {
  expect_equal(names(y)[1], "repDate")
  expect_equal(names(y)[2], "cases")
  expect_equal(names(y)[3], "deaths")
  expect_equal(names(y)[4], "recovered")
})