tests/testthat/test-check_data.R

In 2DegreesInvesting/r2dii.climate.stress.test: Climate Transition Risk Stress Test for Listed Equity, Corporate Bond and Corporate Loan Portfolios

# check_level_availability ------------------------------------------------
test_that("informative error is thrown if levels are missing", {
  expect_error(check_level_availability(
    data = tibble::tibble(
      a = c("A1", "A2"),
      b = c("B1", "B2")
    ),
    data_name = "some data",
    expected_levels_list = list(
      a = c("A1"),
      b = c("B1", "B2", "B3")
    )
  ), "Expected levels are B1, B2, B3")
})