tests/testthat/test-showPushRefs.r

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

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

test_that("showPushRefs", {

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