tests/testthat/test-sas_dates.R

In janitor: Simple Tools for Examining and Cleaning Dirty Data

test_that("sas_numeric_to_date", {
  expect_equal(
    sas_numeric_to_date(date_num=15639),
    as.Date("2002-10-26")
  )
  expect_equal(
    sas_numeric_to_date(datetime_num=1217083532, tz="UTC"),
    as.POSIXct("1998-07-26 14:45:32", tz="UTC")
  )
  expect_equal(
    sas_numeric_to_date(date_num=15639, time_num=3600, tz="UTC"),
    as.POSIXct("2002-10-26 01:00:00", tz="UTC")
  )
  expect_equal(
    sas_numeric_to_date(time_num=3600),
    hms::hms(3600)
  )
  # NA management
  expect_equal(
    sas_numeric_to_date(date_num=c(NA, 1), time_num=c(NA, 1), tz="EST"),
    as.POSIXct(c(NA, "1960-01-01 19:00:01"), tz="EST")
  )
  expect_equal(
    sas_numeric_to_date(date_num=NA, time_num=NA, tz="EST"),
    as.POSIXct(NA, tz="EST")
  )
})

test_that("sas_numeric_to_date expected errors", {
  expect_error(
    sas_numeric_to_date(date_num=15639, datetime_num=1),
    regexp="Must not give both `date_num` and `datetime_num`"
  )
  expect_error(
    sas_numeric_to_date(datetime_num=1, time_num=1),
    regexp="Must not give both `time_num` and `datetime_num`"
  )
  expect_error(
    sas_numeric_to_date(time_num=-1),
    regexp="`time_num` must be non-negative"
  )
  expect_error(
    sas_numeric_to_date(time_num=86401),
    regexp="`time_num` must be within the number of seconds in a day (<= 86400)",
    fixed=TRUE
  )
  expect_error(
    sas_numeric_to_date(),
    regexp="Must give one of `date_num`, `datetime_num`, `time_num`, or `date_num` and `time_num`"
  )
  expect_error(
    sas_numeric_to_date(date_num=c(NA, 1), time_num=c(1, NA)),
    regexp="The same values are not NA for both `date_num` and `time_num`"
  )
})