tests/testthat/test-rescale_social_class_en.R

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

library (surveyreader)
library(testthat)
context("Wrapper for Eurobarometer social class self-placement in English")

test_that("correct conversion takes place", {
  expect_equal(rescale_social_class_en (c("The working class of society",
                                   "None (SPONTANEOUS)",
                                   "The middle class of society",
                                   "DK"),
                                 return_class = "character"),
  c("working","none","middle",NA)
  )
})