tests/testthat/test-better_worse.R

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

library (surveyreader)
library(testthat)
context("Converting logical character values to numeric values.")

test_that("correct numeric conversion takes place", {
  expect_equal(
    sum (better_worse_3 (
      column =  c("Jobb lesz", "Jobb lesz",
      "Ugyanolyan lesz",
      "Rosszabb lesz", "NA", "Rosszabb lesz"),
      language = "HU",
      na_id = "NA" ), na.rm = TRUE),
    0
  )
  expect_equal(
    sum (better_worse_3 (
      column =  c("better", "Better",
                  "Much better",
                  "Worse", "NA", "Worm"),
      language = "EN",
      na_id = "NA" ), na.rm = TRUE),
    2
  ) #Worm is replaced with NA, Much better as better.
})