tests/testthat/test-rescale_image.R

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

library (surveyreader)
library(testthat)
context("Convert image trend variables.")

test_that("correct conversion takes place", {
  expect_equal(rescale_image (column =
                                       c("Very positive",
                                         "Fairly positive",
                                         "Fairly negative",
                                         "Very negative",
                                         "DK", "NA"),
                                       underscore = FALSE,
                                       return_class = "character"),
  c("very_positive", "fairly_positive",
     "fairly_negative", "very_negative",NA, NA)
  )
  expect_equal(rescale_image (column =
                                  c("Very positive",
                                    "Fairly positive",
                                    "Fairly negative",
                                    "Very negative",
                                    "DK", "NA"),
              return_class = "numeric"),
               c(2,1,-1,-2,NA,NA)
  )
})