tests/testthat/test-benefit_2.R

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

library (surveyreader)
library(testthat)
context("Convert if benefit categories.")

test_that("correct conversion takes place", {
  expect_equal(rescale_benefit_2 (column =c("DK",
                                            "Would benefit",
                                            "Would not benefit"),
                                  return_class = "character",
                                  underscore = FALSE),
  c(NA, "benefit", "not benefit")
  )
  expect_equal(rescale_benefit_2 (column =c("DK","Would benefit",
                                            "Would not benefit"),
                                  return_class = "numeric"),
    c(NA, 1, 0)
  )
})