tests/testthat/test-logging.R

In dd-harp/rampdata: Finds data and places data for the RAMP project

for (sll_level in c("trace", "DEBUG", "Info", "warn", "error", "fatal")) {
  test_that("logging string_log_level happy path finds strings any case", {
    expect_true(is.integer(rampdata:::string_log_level(sll_level)))
  })
}


test_that("logging string_log_level warns that name not found", {
  warned <- tryCatch(
    rampdata:::string_log_level("nonexistent"),
    warning = function(w) {w[[1]]}
    )
  expect_equal(grep("nonexistent", warned), 1L)
})


test_that("logging.local_logging sets the default level to info", {
  local_logging()
  expect_equal(grep("kitsch", capture_output(rampdata:::logerror("kitsch"))), 1)
  expect_equal(grep("unique", capture_output(rampdata:::loginfo("unique"))), 1)
  expect_equal(
    grep("cowboy", capture_output(rampdata:::logdebug("cowboy"))), integer(0))
})


test_that("logging.local_logging sets the level as chosen", {
  local_logging("debug")
  expect_equal(grep("flounder", capture_output(rampdata:::logerror("flounder"))), 1)
  expect_equal(grep("unique", capture_output(rampdata:::logdebug("unique"))), 1)
  expect_equal(
    grep("cowboy", capture_output(rampdata:::logtrace("cowboy"))), integer(0))
})


test_that("logging.local_logging accepts only first string", {
  local_logging()
  expect_equal(
    grep("there",
         capture_output(rampdata:::loginfo("hi", "there"))
         ),
    numeric(0)
  )
})