tests/testthat/test-age_distribution.R

test_that("'age_distribution' returns a data.frame with 16 rows", {
  t1 <- age_distribution(country = "Greece", year = 2020)
  expect_rows(t1)
})
bernadette-eu/Bernadette documentation built on July 1, 2024, 9:58 p.m.