tests/testthat/test-msts.R

In robjhyndman/forecast: Forecasting Functions for Time Series and Linear Models

# A unit test for msts.R
if (require(testthat)) {
  test_that("tests for msts() and print.msts()", {
    x <- msts(taylor, seasonal.periods = c(48, 336), ts.frequency = 48, start = 2000 + 22 / 52)
    expect_output(print(x), regexp = "Multi-Seasonal Time Series")
  })
}