tests/testthat/test-12-messaging.R

In weecology/portalcasting: Model and Forecast Portal Rodent Dynamics

context(desc = "messaging functions")

# need to add in the unit components, but i think they are getting coverage
# elsewhere

test_that(desc = "messageq quiets",
          code = {

  expect_message(messageq(123, quiet = FALSE))
  expect_silent(messageq(123, quiet = TRUE))

})


test_that(desc = "break_line and break_lines write",
          code = {

  expect_is(break_line(), "character")
  expect_is(break_lines(), "character")

})