tests/testthat/test-rrule-print.R

In almanac: Tools for Working with Recurrence Rules

test_that("print method for rrule is informative", {
  expect_snapshot({
    "# basic method"
    daily()
    yearly()

    "# until is overriden by recur_for_count()"
    recur_for_count(daily(), 5)

    "# can add multiple conditions"
    recur_on_interval(recur_for_count(yearly(), 5), 2)

    "# can use multiple months of the year"
    recur_on_month_of_year(daily(), c("Feb", "Mar"))

    "# can use multiple weeks of the year"
    recur_on_week_of_year(daily(), c(5, 9, 12))

    "# can use multiple days of the year"
    recur_on_day_of_year(daily(), c(5, 9, 12))

    "# can use multiple days of the month"
    recur_on_day_of_month(daily(), c(5, 9, 12))

    "# can use day of week variations"
    recur_on_day_of_week(daily(), c("Mon", "Thu"), nth = c(1, 2))
    recur_on_day_of_week(recur_on_day_of_week(daily(), "Mon", nth = c(1, 2)), "Thu", nth = c(4, 5))
    recur_on_day_of_week(yearly(), "Mon", nth = c(1, 2, 10, 13, 15, 16))

    "# can use multiple positions"
    recur_on_position(weekly(), c(-1, 2, 3, -2))
    recur_on_position(yearly(), c(-1, 2, 3, -2, 10, 12, 13))

    "# each recur_ condition works"
    recur_for_count(daily(), 5)
    recur_on_interval(daily(), 5)
    recur_with_week_start(daily(), "Tuesday")
    recur_on_month_of_year(daily(), "Feb")
    recur_on_week_of_year(daily(), 5)
    recur_on_day_of_year(daily(), 5)
    recur_on_day_of_month(daily(), 5)
    recur_on_day_of_week(daily(), "Wed")
    recur_on_position(weekly(), 5)
    recur_on_easter(weekly())
  })
})