tests/testthat/test-resetRegistry.r

In rappster/reactr: Reactive object bindings with built-in caching and push functionality

context("resetRegistry-A")
test_that("resetRegistry", {
  
  where <- getOption("reactr")$.registry
  tmp <- rm(list = ls(where, all.names = TRUE), envir = where)
  setReactive(id = "x_1", value = 10)
  setReactive(id = "x_2", value = function() {
    .ref_1 = get("x_1")
  })

  registry <- getRegistry()
  expect_true(length(ls(registry)) == 2)
  expect_true(resetRegistry())
  expect_true(!length(ls(registry)))
  
})