tests/testthat/test_sdg_hep.R

In gpw13/billionaiRe: Calculate the WHO Triple Billions

test_sdg_hep <- function(ind) {
  testthat::test_that(paste0(ind, " returns appropriate values"), {
    df <- tibble::tibble(
      value = 60:80,
      year = 2010:2030,
      ind = ind,
      iso3 = "testalia",
      scenario = "default",
      source = NA_character_,
      type = dplyr::if_else(year <= 2021, "reported", "projected")
    )

    df_add_indicator <- add_scenario_indicator(df,
      indicator = ind,
      scenario_function = "sdg",
      bau_scenario = "default",
      start_scenario_last_default = FALSE,
      make_default = FALSE,
      expend_bau = FALSE
    )
    df_add_indicator <- df_add_indicator %>%
      dplyr::filter(scenario == "sdg", year <= 2025, year >= 2018) %>%
      dplyr::pull(value)

    testthat::expect_equal(df_add_indicator, 68:75)
  })
}

purrr::walk(billion_ind_codes("hep", include_subindicators = F), test_sdg_hep)