tests/testthat/testChain.R

context("Chain")

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

  expect_true(attr(ans, "chain"))
  expect_is(ans, "list")
})

Try the zoon package in your browser

Any scripts or data that you put into this service are public.

zoon documentation built on Feb. 28, 2020, 5:09 p.m.