tests/testthat/test-collect_val_labels.R

In retroharmonize: Ex Post Survey Data Harmonization

test_that("val label collection works", {
  
  test_survey <- retroharmonize::read_rds(
    file = system.file("examples", "ZA7576.rds",
                       package = "retroharmonize"
    ),
    id = "test"
  )
  
  example_metadata <- metadata_create(survey_list = test_survey)
  
  trust_media_metadata <- example_metadata[27, ]
  expect_equal(
    collect_val_labels(metadata = trust_media_metadata),
    c("Tend to trust", "Tend not to trust", "DK")
  )
  expect_equal(
    collect_na_labels(metadata = trust_media_metadata),
    c("Inap. (not CY-TCC in isocntry)")
  )
})