tests/testthat/test-environment_info.R

# test the basics
test_that("A message is present", {
  capture.output(result <- environment_info("A unique message"))
  expect_match(result, "A unique message")
})
ryanpeek/mytools documentation built on Dec. 22, 2021, 8:18 p.m.