tests/testthat/test-calendar.R

In a1967fa/f-cast: Forecasting Functions for Time Series and Linear Models

# A unit test for calendar.R
if (require(testthat)) {
  context("Testing calendar functions")
  test_that("Tests for bizdays()", {
    expect_error(bizdays(1:20))
    b1 <- bizdays(woolyrnq, FinCenter = "New York")
    b2 <- bizdays(woolyrnq, FinCenter = "London")
    b3 <- bizdays(woolyrnq, FinCenter = "Zurich")
    expect_equal(sum(abs(b1 - b2)), 109L)
    expect_equal(sum(abs(b1 - b3)), 144L)
    expect_equal(sum(abs(b2 - b3)), 117L)
    b1 <- bizdays(gas, FinCenter = "NERC")
    b2 <- bizdays(gas, FinCenter = "Tokyo")
    expect_equal(sum(abs(b1 - b2)), 244L)
  })

  test_that("Tests for easter()", {
    expect_true(length(easter(woolyrnq)) == length(woolyrnq))
    expect_true(length(easter(wineind)) == length(wineind))
  })
}