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"))
})

Try the MALDIquantForeign package in your browser

Any scripts or data that you put into this service are public.

MALDIquantForeign documentation built on May 29, 2024, 3:53 a.m.