tests/testthat/legacy/test-getBoilerplateCode.r

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

context("getBoilerplateCode-1")
test_that("getBoilerplateCode", {

  expect_is(res <- getBoilerplateCode(
    ns = reactr::BindingContractObserved.S3()), 
    "call"
  )
  expect_is(res <- getBoilerplateCode(
    ns = reactr::BindingContractObserving.S3()), 
    "call"
  )
  expect_is(res <- getBoilerplateCode(
    ns = reactr::BindingContractMutual.S3()), 
    "call"
  )
  
  }
)