tests/testthat/test-rescale_better_worse_3.R

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

library (surveyreader)
library(testthat)
context("Convert better-worse trend variables.")

test_that("correct conversion takes place", {
  expect_equal(rescale_better_worse_3  (column =
                                       c("Better",
                                         "Worse",
                                         "Same",
                                         "The same",
                                         "DK", "NA"),
                                       underscore = FALSE,
                                       return_class = "character"),
  c("better", "worse", "same", "same", NA, NA)
  )
  expect_equal(rescale_better_worse_3  (column =
                                  c("Better",
                                    "Worse",
                                    "Same",
                                    "The same",
                                    "DK", "NA"),
              return_class = "numeric"),
               c(1,-1,0,0,NA,NA)
  )
})

test_that("correct Hungarian conversion takes place", {
  expect_equal(rescale_better_worse_3 (column =
                                         c("NT/NV",
                                           "Ugyanolyan lesz",
                                           "Jobb lesz",
                                           "Rosszabb lesz",
                                           "NA - nem tudja"),
                                       from = "hu",
                                       na_labels = "hu",
                                       return_class = "numeric"),
               c(NA, 0, 1,-1,NA)
  )
})