tests/testthat/test_msg-functions.R

context("msg")


test_that("msg-functions", {
  expect_message(rmsi:::.msg(TRUE, "foobar"), "foobar")
  expect_message(rmsi:::.msg(TRUE, "foo", "bar"), "foobar")
  expect_that(rmsi:::.msg(FALSE, "foobar"), not(shows_message()))
})
SandraSy/bitbucket.org-sgibb-rmsi documentation built on Nov. 23, 2019, 12:03 a.m.