tests/testthat/test-rescale_eu2020_goals.R

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

library (surveyreader)
library(testthat)
context("Wrapper for EU2020 goals trend question.")

test_that("correct conversion takes place", {
  expect_equal(rescale_eu2020_goals (c("Too ambitious", "Too modest",
                                       "Inap", "About right")),
    c(-1,1,NA,0)
  )
  expect_equal(
    rescale_eu2020_goals (
    column = c("Too ambitious", "Too modest",
                "Inap", "About right"),
    return_class = "character",
    underscore = FALSE),
    c("too ambitious","too modest",NA,"about right")
  )
})

na_labels = "default"