tests/testthat/test_wrap_contents.R

In chriscardillo/giftwrap: Take Shell Commands and Turn Them into R Functions

context("correct contents are passed to giftwrap from wrap_* functions")

cenv <- new.env()
wrap_commands(c("echo", shout="echo"),
              env = cenv)

test_that("giftwrap contents are correct", {
  expect_true(any(grepl("giftwrap",  capture.output(cenv$echo))))
  expect_true(any(grepl("giftwrap", capture.output(cenv$shout))))
  expect_true(any(grepl("echo",  capture.output(cenv$echo))))
  expect_true(any(grepl("echo", capture.output(cenv$shout))))
  expect_true(any(grepl(", ...",  capture.output(cenv$echo))))
  expect_true(any(grepl(", ...", capture.output(cenv$shout))))
})