tests/testthat/testChain.R

context('Chain')

test_that('Chain tests', {
  
  ans <- Chain('test', 'tom')
  
  expect_true(attr(ans, 'chain'))  
  expect_is(ans, 'list')
    
})
Boodogs/zoon-clone documentation built on May 6, 2019, 7:59 a.m.