tests/testthat/test-ctx_tree_cpp.R

In mixvlmc: Variable Length Markov Chains with Covariates

test_that("printing works as expected", {
  dts <- c(0, 1, 1, 1, 0, 0, 1, 0, 1, 0)
  withr::local_options("mixvlmc.backend" = "C++")
  dts_ctree <- ctx_tree(dts, min_size = 1, max_depth = 2)
  expect_snapshot_output(print(dts_ctree))
})

test_that("automatic C++ representation restoration works", {
  dts <- c(0, 1, 1, 1, 0, 0, 1, 0, 1, 0)
  dts_ctree <- ctx_tree(dts, min_size = 1, max_depth = 3, backend = "C++")
  expect_false(extptr_is_null(dts_ctree$root$.pointer))
  tree_path <- withr::local_tempfile(fileext = ".Rds")
  saveRDS(dts_ctree, tree_path)
  restored_tree <- readRDS(tree_path)
  expect_true(extptr_is_null(restored_tree$root$.pointer))
  ctxs_orig <- contexts(dts_ctree, frequency = "detailed", positions = TRUE)
  ctxs_restored <- contexts(restored_tree, frequency = "detailed", positions = TRUE)
  expect_false(extptr_is_null(restored_tree$root$.pointer))
  expect_true(compare_ctx(ctxs_orig, ctxs_restored))
})