tests/testthat/test-set_logger.R

In GPCERF: Gaussian Processes for Estimating Causal Exposure Response Curves

test_that("Set logger works as expected!", {

  logger::log_threshold("INFO")
  set_logger(logger_level = "DEBUG")
  expect_equal(logger::log_threshold()[1], 500L)
  expect_error(update_logger(logger_level = "ABC"))
  expect_error(set_logger(logger_level = "ABC"))
  expect_error(set_logger(logger_level = NULL))

  lg <- get_logger()
  expect_equal(lg$logger_file_path, "GPCERF.log")
  expect_equal(lg$logger_level, "DEBUG")
})