tests/testthat/test-showPullRefs.r

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

##------------------------------------------------------------------------------
context("showPullRefs/basics")
##------------------------------------------------------------------------------

test_that("showPullRefs", {

  setReactive(id = "x_1", value = 10)
  setReactive(id = "x_2", value = function() "object-ref: {id: x_1}")
  expect_equal(res <- showPullRefs(id = "x_1"), ls(getFromRegistry("x_1")$.refs_pull))  
  expect_true(!length(res))  
  expect_equal(res <- showPullRefs(id = "x_2"), ls(getFromRegistry("x_2")$.refs_pull))
  expect_false(!length(res))  
  
  ## Clean up //
  rmReactive("x_1")
  rmReactive("x_2")
  
})