tests/testthat/test-rescale_yes_no_3.R

In antaldaniel/surveyreader: Data cleaning and integration for survey files

library (surveyreader)
library(testthat)
context("Convert trust description categories.")

test_that("correct conversion takes place", {
  expect_equal(rescale_yes_no_3  (column =
                                    c("Yes, on several occasions",
                                      "Yes, once or twice",
                                      "No", "NA", "DK"),
                                  na_labels = "default",
                                  underscore = FALSE,
                                  return_class = "character"),
  c("several occasions", "once or twice", "no", NA, NA)
  )
  expect_equal(rescale_yes_no_3  (column =
                                    c("Yes, on several occasions",
                                      "Yes, once or twice",
                                      "No", "NA", "DK"),
                                     na_labels = "default",
                                     return_class = "numeric"),
    c(2, 1, 0, NA, NA)
  )
})