tests/testthat/test-label_harmonize.R

In antaldaniel/retroharmonize: Ex Post Survey Data Harmonization

ln <- label_normalize (
x = c("Don't know", " TRUST", "DO NOT  TRUST", 
  "inap in Q.3", "Not 100%", "TRUST < 50%", 
  "TRUST >=90%", "Verify & Check", "TRUST 99%+")
)

vrn <- var_label_normalize ( 
      c("Q1_Do you trust the national government?", 
        " Do you trust the European Commission")
        )
vrn

vln <-  val_label_normalize ( 
      c("Q1_Do you trust the national government?", 
        " Do you trust the European Commission")
        )
vln

c( "do_you_trust_the_national_government",
   "do_you_trust_the_european_commission")

test_that("normalization works", {
  expect_equal(vrn, c("do_you_trust_the_national_government",
                      "do_you_trust_the_european_commission"))
  expect_equal(vln,  c("do_you_trust_the_national_government",
                       "do_you_trust_the_european_commission"))
  expect_equal(ln, 
               c("do not know","trust","do not trust",     
                 "inap in q 3", "not 100 pct","trust lt 50 pct",
                 "trust ge 90 pct", "verify and check" ,
                 "trust 99 pct plus"))
})