tests/testthat/test-alma-search.R

In almanac: Tools for Working with Recurrence Rules

test_that("can handle NA `from` and `to` values", {
  na <- new_date(NA_real_)

  expect_snapshot(error = TRUE, {
    alma_search(na, Sys.Date(), daily())
  })
  expect_snapshot(error = TRUE, {
    alma_search(Sys.Date(), na, daily())
  })
})

test_that("behavior is like rlang::seq2() when `from` is after `to`", {
  expect_identical(alma_search("1999-01-01", "1998-01-01", runion()), almanac_global_empty_date)
})

test_that("empty runion means no dates", {
  expect_identical(
    alma_search(new_date(0), new_date(1), runion()),
    new_date()
  )
})

test_that("can query a range outside the event set", {
  rrule <- daily(since = "1970-01-01", until = "1970-01-02")

  # before
  from <- "1969-12-01"
  to <- "1969-12-02"

  expect_identical(alma_search(from, to, rrule, inclusive = TRUE), almanac_global_empty_date)
  expect_identical(alma_search(from, to, rrule, inclusive = FALSE), almanac_global_empty_date)

  # after
  from <- "1971-12-01"
  to <- "1971-12-02"

  expect_identical(alma_search(from, to, rrule, inclusive = TRUE), almanac_global_empty_date)
  expect_identical(alma_search(from, to, rrule, inclusive = FALSE), almanac_global_empty_date)
})

test_that("inclusiveness of from/to is respected", {
  rrule <- daily(since = "1970-01-01", until = "1970-01-03")

  from <- "1970-01-01"
  to <- "1970-01-03"

  expect_identical(
    alma_search(from, to, rrule, inclusive = TRUE),
    new_date(c(0, 1, 2))
  )

  expect_identical(
    alma_search(from, to, rrule, inclusive = FALSE),
    new_date(1)
  )
})