tests/testthat/test-calendar.R

# 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))
	})
}
pli2016/forecast documentation built on May 25, 2019, 8:22 a.m.