tests/testthat/test-getFromRegistry.r

context("getFromRegistry/basics")
test_that("getFromRegistry", {

  resetRegistry()
  obj <- ReactiveObject.S3(id = "x_1", value = 10)
  obj$.register()
  expect_equal(getFromRegistry(id = "x_1"), getRegistry()[[obj$.uid]])
  resetRegistry()
  
})
rappster/reactr documentation built on May 26, 2019, 11:56 p.m.