tests/testthat/test-logging.R

context('logging')

test_that('Verbose', {
  expect_is(as.Verbose(NULL), 'Verbose')
  expect_is(as.Verbose(0), 'Verbose')
  expect_is(as.Verbose(FALSE), 'Verbose')
  expect_is(as.Verbose('info'), 'Verbose')
  expect_is(as.Verbose(as.Verbose(0)), 'Verbose')
  expect_error(as.Verbose(Sys.time()))
})
philips-software/latrend documentation built on Jan. 9, 2025, 4:33 p.m.