Reset registry after tests to ensure clean state. Fixes rmd cmd check test error

Author: frederikfabriciusbjerre

tests/testthat/test-DSL-parser.R

@@ -4,12 +4,13 @@
 
 test_that("local edge/glyph registries exist for tests", {
   # Minimal registries for tests
-  .edge_ops_get <<- function() c("%-->%", "%<--%")
-  .glyph_map_get <<- function() list("%-->%" = "-->", "%<--%" = "<--")
+  .edge_ops_get <- function() c("%-->%", "%<--%")
+  .glyph_map_get <- function() list("%-->%" = "-->", "%<--%" = "<--")
 
   expect_type(.edge_ops_get(), "character")
   expect_true("%-->%" %in% .edge_ops_get())
   expect_equal(.glyph_map_get()[["%-->%"]], "-->")
+  reset_caugi_registry()
 })
 
 # ──────────────────────────────────────────────────────────────────────────────
@@ -50,6 +51,7 @@ test_that(".contains_edge handles parentheses and returns FALSE otherwise", {
 # ──────────────────────────────────────────────────────────────────────────────
 
 test_that(".glyph_of returns correct glyph", {
+  reset_caugi_registry()
   expect_equal(.glyph_of(as.symbol("%-->%")), "-->")
   expect_equal(.glyph_of(as.symbol("%---%")), "---")
   expect_equal(.glyph_of(as.symbol("%<->%")), "<->")
@@ -67,6 +69,7 @@ test_that(".glyph_of returns correct glyph", {
     flags = "TRAVERSABLE_WHEN_CONDITIONED"
   )
   expect_equal(.glyph_of(as.symbol("%<--%")), "<--")
+  reset_caugi_registry()
 })
 
 test_that(".glyph_of returns NULL for unknown operator", {

tests/testthat/test-builder-rust.R

@@ -31,6 +31,7 @@ test_that("graph builder works for directed edge in reverse direction", {
 
   expect_identical(parents_of_ptr(gptr, 0L), 1L)
   expect_identical(children_of_ptr(gptr, 1L), 0L)
+  reset_caugi_registry()
 })
 
 test_that("queries work for DAGs and PDAGs", {