tests/testthat/test-msts.R

In forecast: Forecasting Functions for Time Series and Linear Models

# A unit test for msts.R
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")
})