tests/testthat/test-alphanumeric_en.R

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

library (surveyreader)
library(testthat)
context("Wrapper for Eurobarometer alphanumeric coding in English")

test_that("correct conversion takes place", {
  expect_equal(rescale_alphanumeric_en  (column =
                c("One", "Twenty","twenty-one", "sEven", "NA"),
                na_labels = "default"),
    c(1,20,21,7,NA)
  )
})