tests/testthat/test-acceptable_3.R

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

library (surveyreader)
library(testthat)
context("Wrapper for 3-level goal evalution Eurobarometer questions.")

test_that("correct conversion takes place", {
  expect_equal(rescale_acceptable_3 (column = c("Always acceptable",
                                          "Sometimes acceptable",
                                          "Never acceptable",
                                          "NA", "DK")),
    c(1,0.5,0,NA,NA)
  )
  expect_equal(rescale_acceptable_3(column =
                                      c("Always acceptable",
                                        "Sometimes acceptable",
                                        "Never acceptable",
                                        "NA", "DK"),
    na_labels = "default",
    return_class = "character"),
    c("always", "sometimes", "never",NA, NA)
  )
})