tests/testthat/test-uts_vector.R

In andreas50/utsMultivariate: Multivariate Unevenly Spaced Time Series

context("uts_vector")

test_that("uts_vector constructors work",{
  # Argument checking
  expect_error(c(uts(), "a"))
  expect_error(c(uts_vector(), "a"))
  expect_error(uts_vector("a"))
  expect_error(uts_vector(uts(), "a"))
  
  # Class hierarchy
  expect_true(is.uts_vector(uts_vector()))
  expect_true(is.uts_vector(uts_matrix()))
  expect_false(is.uts_vector(uts()))
  
  # Regression testing
  expect_equal_to_reference(
    uts_vector(apples=ex_uts(), oranges=ex_uts2()),
    file="test-uts_vector_1.rds"
  )
  expect_equal_to_reference(
    c(ex_uts(), ex_uts_vector(), kiwis=ex_uts2()),
    file="test-uts_vector_2.rds"
  )
  expect_equal_to_reference(
    rep(ex_uts(), 4),
    file="test-uts_vector_3.rds"
  )
  expect_equal_to_reference(
    rep(ex_uts_vector(), times=3),
    file="test-uts_vector_4.rds"
  )
  expect_equal_to_reference(
    rep(ex_uts_vector(), each=3),
    file="test-uts_vector_5.rds"
  )
})


test_that("time point extraction works",{
  # Trivial case of empty uts_vector
  expect_equal(time(uts_vector()), uts()$times)
  expect_equal(time(c(uts(), uts())), uts()$times)
  
  # Order of individual time series does not matter
  a <- ex_uts()
  b <- ex_uts2()
  expect_identical(
    time(c(a, b)),
    time(c(b, a))
  )
  
  # Regression testing
  expect_equal_to_reference(
    time(ex_uts_vector()),
    file="test-time_1.rds"
  )
  expect_equal_to_reference(
    time(ex_uts_vector2()),
    file="test-time_2.rds"
  )
})


test_that("window works",{
  # Regression testing
  expect_equal_to_reference(
    window(ex_uts_vector(), start="2007-11-09 EST"),
    file="test-window_1.rds"
  )
  expect_equal_to_reference(
    window(ex_uts_vector(), end=c("2007-11-09 12:00:00 EST", "2007-11-09 EST")),
    file="test-window_2.rds"
  )
})


test_that("as.data.frame.uts_vector works",{
  # Argument checking
  expect_error(as.data.frame(ex_uts_vector2()))
  
  # Regression testing
  expect_equal_to_reference(
    as.data.frame(ex_uts_vector()),
    file="test-as.data.frame.uts_vector_1.rds"
  )
  expect_equal_to_reference(
    as.data.frame(ex_uts_vector(), method="long"),
    file="test-as.data.frame.uts_vector_2.rds"
  )
})


test_that("as.data.frame.uts_matrix",{
  expect_identical(
    as.uts_vector(uts_matrix(nrow=4, ncol=0)),
    uts_vector()
  )
  
  # Regression testing
  expect_equal_to_reference(
    as.uts_vector(ex_uts_matrix()),
    file="test-as.uts_vector.uts_matrix_1.rds"
  )
  expect_equal_to_reference(
    as.uts_vector(ex_uts_matrix(), USE.NAMES=FALSE),
    file="test-as.uts_vector.uts_matrix_2.rds"
  )
})