tests/testthat/test-getBinding.r

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

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

test_that("getBinding", {

  setReactive(id = "x_1", value = 10)
  expect_equal(getBinding(id = "x_1"), getFromRegistry("x_1")$.func)
  setReactive(id = "x_2", value = function() "object-ref: {id: x_1}")
  expect_equal(getBinding(id = "x_2"), getFromRegistry("x_2")$.func)
  
  ## Clean up //
  rmReactive("x_1")
  rmReactive("x_2")
  
})