tests/testthat/test_sample_date.R

In mdlincoln/dateSampler: Generate Randomized Dates

context("Sample dates")
set.seed(100)
suppressPackageStartupMessages({
  library(lubridate)
})

test_that("Bad inputs are rejected", {
  expect_error(sample_date(year_min = NA, n = 5))
  expect_error(sample_date(year_min = 1812, n = NULL))
  expect_error(sample_date(year_min = 1812, year_max = 1800, n = 5))
  expect_error(sample_date(year_min = 1812, month_min = -2, n = 5))
  expect_error(sample_date(year_min = 1812, month_min = 25, n = 5))
  expect_error(sample_date(year_min = 1812, month_max = -2, n = 5))
  expect_error(sample_date(year_min = 1812, month_max = 25, n = 5))
  expect_error(sample_date(year_min = 1812, day_min = -2, n = 5))
  expect_error(sample_date(year_min = 1812, day_min = 35, n = 5))
  expect_error(sample_date(year_min = 1812, day_max = -2, n = 5))
  expect_error(sample_date(year_min = 1812, day_max = 35, n = 5))
  expect_error(sample_date(year_min = 1830, year_max = 1812, n = 5))
  expect_error(sample_date(year_min = 1812, month_min = 2, month_max = 1, n = 5))
  expect_error(sample_date(year_min = 1812, day_min = 2, day_max = 1, n = 5))
  expect_error(sample_date(year_min = 1812, month_min = 2, month_max = 2, day_min = 30, n = 5))
})

test_that("Sample date follows restrictions", {
  expect_true(all(year(sample_date(1812, n = 5)) == 1812))
  expect_true(all(year(sample_date(1812, year_max = 1830, n = 5)) %in% 1812:1830))
  expect_true(all(day(sample_date(1812, day_min = 12, day_max = 12, n = 5)) == 12))
  expect_true(all(day(sample_date(1812, day_min = 12, day_max = 18, n = 5)) %in% 12:18))
  expect_true(all(month(sample_date(1812, month_min = 2, month_max = 2, n = 5)) == 2))
  expect_true(all(month(sample_date(1812, month_min = 2, month_max = 10, n = 5)) %in% 2:10))
  expect_true(all(month(sample_date(1812, month_min = 2, month_max = 4, day_min = 30, n = 5)) == 3))
  expect_true(all(wday(sample_date(1990, n = 5, .p = is_monday, quiet = TRUE)) == 2))
})

test_that("Messages are sent when regenerating bad dates", {
  expect_message(sample_date(1812, month_min = 2, month_max = 2, day_min = 28, day_max = 31, n = 5), regexp = "Regenerating \\d illegal date[sS]\\.\\.\\.")
})