tests/testthat/test-utilities.R

In USAID-OHA-SI/tameDP: Import targets and PLHIV data from COP Target Setting Tool (formerly Data Pack)

test_that("correct tabs are returned based on output type", {

  # readxl::excel_sheets(filepath) %>% clipr::write_clip()
  # datapasta::vector_paste()

  dp_tabs <- c("Home", "Summary", "Spectrum", "Prioritization", "Cascade",
               "PMTCT", "EID", "TB", "VMMC", "KP", "HTS", "CXCA", "HTS_RECENT",
               "TX_TB_PREV", "PP", "OVC", "GEND", "AGYW", "PrEP", "KP_MAT",
               "KP Validation", "PSNUxIM")

  target_tabs <- dp_tabs[!dp_tabs %in% c("Home", "Summary", "Spectrum",
                                         "Prioritization", "KP Validation",
                                         "PSNUxIM")]

  expect_error(return_tab("Home"))
  expect_error(return_tab("Spectrum"))
  expect_error(return_tab("Year 2"))

  expect_equal(return_tab("PSNUxIM"), "PSNUxIM")
  expect_equal(return_tab("PLHIV"), "Cascade")
  expect_equal(return_tab("SUBNAT"), "Cascade")
  expect_equal(intersect(return_tab("ALL"), dp_tabs),
               target_tabs)

})