tests/testthat/test-zoo_to_tsl.R

In BlasBenito/distantia: Advanced Toolset for Efficient Time Series Dissimilarity Analysis

test_that("`zoo_to_tsl()` works", {
  x <- zoo_simulate(seed = 1)

  tsl <- zoo_to_tsl(x = x)
  expect_equal(class(tsl), "list")
  expect_equal(class(tsl[[1]]), "zoo")
  expect_equal(names(tsl), "A")
  expect_equal(attributes(tsl[[1]])$name, "A")
})