tests/testthat/test_msg-functions.R

context("msg")


test_that("msg-functions", {
  expect_message(MALDIquantForeign:::.msg(TRUE, "foobar"), "foobar")
  expect_message(MALDIquantForeign:::.msg(TRUE, "foo", "bar"), "foobar")
  expect_silent(MALDIquantForeign:::.msg(FALSE, "foobar"))
})
sgibb/MALDIquantForeign documentation built on Jan. 26, 2024, 10:07 a.m.