tests/testthat/testChain.R

context("Chain")

test_that("Chain tests", {
  ans <- Chain("test", "tom")

  expect_true(attr(ans, "chain"))
  expect_is(ans, "list")
})
zoonproject/zoon documentation built on March 6, 2020, 1:03 a.m.