tests/testthat/test-split_ts.R

In Akai01/caretForecast: Conformal Time Series Forecasting Using State of Art Machine Learning Algorithms

# A unit test for split_ts function
if(require(testthat)){

  test_that("tests for some arguments in split_ts", {
    result <- split_ts(retail_wide[,1], test_size = 2)

    result <- as.numeric(result$test)

    expect_that(result, equals(c(409.4, 583.6)))

  })
}