tests/testthat/test_check_date_variables.R

In padr: Quickly Get Datetime Data Ready for Analysis

source("library.R")
no_dt <- data.frame(x = 1:2, y = c("A", "B"))
one_dt <- data.frame(x = 1:2, y = c("A", "B"), dt1 = ymd(c(20160401, 20160803)))
two_dt <- data.frame(x = 1:2, y = c("A", "B"), dt1 = ymd(c(20160401, 20160803)),
                     dt2 = ymd_h(c("20160401 01", "20160803 05")))

context("check_date_variables does what is expecterd")
test_that("check_date_variables works correctly when by is specified", {
  expect_error( check_data_frame( no_dt, by = "dt3") )
  expect_error( check_data_frame( one_dt, by = "dt3") )
  expect_error( check_data_frame( two_dt, by = "dt3") )
  expect_equal( check_data_frame( one_dt, by = "dt1"),
                ymd(c(20160401, 20160803)))
  expect_equal( check_data_frame( two_dt, by = "dt1"),
                ymd(c(20160401, 20160803)))
})

test_that("check_date_variables works correctly when by is not specified", {
  expect_equal( check_data_frame( one_dt), ymd(c(20160401, 20160803)))
  expect_error( check_data_frame( no_dt) )
  expect_error( check_data_frame( two_dt) )
})