tests/testthat/test_print_Logger.R

In lgr: A Fully Featured Logging Framework

context("format")



test_that("print.Logger() works as expected", {

  tf1 <- tempfile()
  tf2 <- tempfile()
  tf_long <- tempfile(pattern = paste(letters, LETTERS, sep = "-", collapse = "-"))
  on.exit(file.remove(tf1, tf2, tf_long))

  l <- Logger$new(
    "test_logger",
    appenders = c(
      AppenderFile$new(file = tf1),
      AppenderConsole$new(),
      AppenderFile$new(threshold = 100, file = tf_long),
      AppenderBuffer$new(
        appenders = list(AppenderBuffer$new(), AppenderFile$new(file = tf2))
      )
    )
  )


  # ensure that print doesn't raise exceptions
  expect_output(print(l))
  expect_output(print(Logger$new("blubb", propagate = FALSE)))
  expect_output(print(Logger$new("blubb", propagate = FALSE)))
  expect_output(print(Logger$new("blubb", propagate = FALSE, appenders = Appender$new())))
})