tests/testthat/test_get_table.R

In validmeasures/ppitables: Lookup Tables to Generate Poverty Likelihoods and Rates using the Poverty Probability Index (PPI)

library(ppitables)

test_that("output is a tibble", {
  expect_s3_class(get_table(), "tbl_df")
})

test_that("output has correct number of observations", {
  expect_equal(nrow(get_table(region = "Asia")), 27958)
  expect_equal(nrow(get_table(region = "Asia", country = "Nepal")), 1111)
})


# test_that("produces error", {
#   expect_warning(
#     get_table(region = "asia"),
#     "asia not in the list of regions with PPI tables. Check region name spelling and/or check that asia is in the list of regions with PPI tables. Returning NULL results for asia")
# })
#
# test_that("produces error", {
#   expect_warning(get_table(region = "Asia", country = "philippines"),
#                  "philippines not in the list of countries with PPI tables. Check country name spelling and/or check that philippines is in the list of countries with PPI tables. Returning NULL results for philippines")
# })
#
# test_that("produces error", {
#   expect_warning(get_table(region = "Asia", country = "Nepal", type = "ipa"),
#                  "ipa not in the list of calculation types for the given country/ies. Check type ipa is in the list of calculation types for the given country/ies. Returning NULL results for type ipa")
# })