tests/testthat/test-rescale_optimism_4.R

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

library (surveyreader)
library(testthat)
context("Convert optimism 4-level description categories.")

test_that("correct conversion takes place", {
  expect_equal( rescale_optimism_4  (column =
                                       c("Very optimistic",
                                         "Fairly optimistic",
                                         "Fairly pessimistic",
                                         "Very pessimistic",
                                         "DK", "NT/NV"),
                                     na_labels = "default",
                                     return_class = "character"),
                c("very_optimistic", "fairly_optimistic",
                  "fairly_pessimistic", "very_pessimistic",
                  NA, NA)
  )
  expect_equal( rescale_optimism_4  (column =
                                       c("Very optimistic",
                                         "Fairly optimistic",
                                         "Fairly pessimistic",
                                         "Very pessimistic",
                                         "DK", "NT/NV"),
                                     na_labels = "default",
                                     return_class = "numeric"),
    c(2, 1, -1, -2, NA, NA)
  )
})