tests/testthat/test-rescale_date_interview.R

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

library (surveyreader)
library(testthat)
context("Convert interview or other English dates.")

test_that("correct conversion takes place", {
  expect_equal(rescale_date_interview (column =
                                         c("Saturday 26th April 2014",
                                           "Monday 28th April 2014"),
                                       return_class = "character"),
  c( "2014-04-26", "2014-04-28" )
  )
})