tests/testthat/test_utils.R

context("utils")

test_that(".msg", {
  expect_message(detectability:::.msg(TRUE, "foobar"), "foobar")
  expect_message(detectability:::.msg(TRUE, "foo", "bar"), "foobar")
  expect_silent(detectability:::.msg(FALSE, "foobar"))
})
sgibb/detectability documentation built on May 29, 2019, 8:04 p.m.