tests/testthat/test-pip_load_data.R

In PIP-Technical-Team/pipload: Loads PIP data into memory

test_that("return warning when surveys are not available", {
  survey_id <-
    c(
      "PRY_2017_EPH_V01_M_V01_A_PIP_PC-GPWG",
      "PRY_2018_EPH_V01_M_V02_A_PIP_PC-GPWG",
      "x",
      "y",
      "z"
    )
  expect_warning(pip_load_data(survey_id = survey_id))
})

test_that("return NULL when only one wrong survey id is provided", {
  expect_null( suppressWarnings(pip_load_data(survey_id = "x")) )
})