tests/testthat/test-logging.R

In latrend: A Framework for Clustering Longitudinal Data

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