tests/testthat/test-s3-mts.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("mts", {
  skip_if(with_versions(R >= "4.3"))
  expect_snapshot({
    construct(ts(matrix(1:9, 3, 3), start = c(1961, 1), frequency = 12))
    construct(ts(matrix(1:9, 3, 3), start = c(1961, 1), frequency = 12), opts_mts("next"))
    construct(ts(matrix(1:9, 3, 3), start = c(1961, 1), frequency = 12), opts_mts("atomic"))
  })
})