tests/testthat/test-getOPUDataFromDATIM.R

In pepfar-datim/datapackr: A Package that Packs and Unpacks all Data Packs and Target Setting Tools

context("Get OPU data from DATIM")

#Uses dataValueSets.csv-da6b12.json
with_mock_api({
  test_that("We can retreive OPU data from DATIM", {
    opu_data <- getOPUDataFromDATIM(2024, "qllxzIjjurr", d2_session = training)
    expect_setequal(names(opu_data), c("dataElement", "period", "orgUnit",
     "categoryOptionCombo", "attributeOptionCombo", "value"))
    expect_true(all(is_uidish(opu_data$dataElement)))
    expect_true(all(opu_data$period == "2024Oct"))
    expect_true(all(is_uidish(opu_data$orgUnit)))
    #Mechanisms are still expressed as codes here
    expect_true(all(stringr::str_detect(opu_data$attributeOptionCombo, "^[0-9]{4,6}")))
    #Data is left as characters
    expect_equal(typeof(opu_data$value), "character")
    expect_silent(as.numeric(opu_data$value))

    })
})