tests/testthat/test-misc_msg.R

In moosa-r/rbioapi: User-Friendly R Interface to Biologic Web Services' API

test_that(".msg works", {

  # basics
  verbose <- FALSE
  expect_silent(.msg("test"))
  verbose <- TRUE
  expect_message(.msg("test"), regexp = "test")
  verbose2 <- FALSE
  expect_silent(.msg("test", cond = "verbose2"))
  # use paste
  expect_message(object = .msg("1", "2", "3"), regexp = "123")
  #use sprintf
  expect_message(object = .msg("1%s%s", "2", "3"), regexp = "123")
  #force paste
  expect_message(
    object = .msg("1%s%s", "2", "3", sprintf = FALSE),
    regexp = "1%s%s23"
  )

})