tests/testthat/test-getRegistry.r

context("getRegistry-A")
test_that("getRegistry", {
  
  options("reactr" = NULL)
  expect_is(res <- getRegistry(), "environment")
  expect_equal(res, getOption("reactr")$.registry)
  
})
rappster/reactr documentation built on May 26, 2019, 11:56 p.m.