tests/testthat/test-validation.R

In segen: Sequence Generalization Through Similarity Network

test_that("invalid public arguments fail early", {
  expect_error(segen(data.frame(x = 1:30), n_windows = 0), "positive integer")
  expect_error(segen(data.frame(x = 1:30), n_samp = 1.5), "positive integer")
  expect_error(segen(data.frame(x = 1:30), error_scale = "bad"), "error_scale")
  expect_error(segen(data.frame(x = 1:30), error_benchmark = "bad"), "error_benchmark")
  expect_error(segen(data.frame(x = 1:30), dates = as.Date("2020-01-01")), "length")
})

test_that("distance cache distinguishes different matrices", {
  a <- matrix(1:12, nrow = 3)
  b <- matrix(1:12, nrow = 3)
  b[1, 1] <- b[1, 1] + 1
  da <- segen:::compute_distance(a, "euclidean", use_cache = TRUE)
  db <- segen:::compute_distance(b, "euclidean", use_cache = TRUE)
  expect_false(isTRUE(all.equal(da, db)))
})