tests/testthat/test-tameDP.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 for import", {

  # 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("wrong") %>%
                 intersect(dp_tabs))

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

})