tests/testthat/test-rescale_difficulty.R

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

library (surveyreader)
library(testthat)
context("Wrapper for difficulty of paying bills Eurobarometer trend question.")

test_that("correct conversion takes place", {
  expect_equal(rescale_difficulty(column = c("Most of the time", "From time to time",
                                              "Almost never/never")),
    c(2,1,0)
  )
})