tests/testthat/test-goal_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_goal_3 (column = c("Too modest",
                                          "About right",
                                          "Too ambitious",
                                          "NA", "DK")),
    c(1,0,-1,NA,NA)
  )
  expect_equal(rescale_goal_3 (column =
                                 c("Too Modest",
                                   "ABOUT right",
                                   "Too ambitious", "NA", "DK"),
    na_labels = "default",
    return_class = "character"),
    c("modest", "right", "ambitious",NA, NA)
  )
})