tests/testthat/test_bdpar.log.R

In bdpar: Big Data Preprocessing Architecture

testthat::context("bdpar.log")

testthat::setup({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::test_that("bdpar.log verbose option not set",{

  message <- "exampleMessage"
  level <- "INFO"
  className <- "exampleClassName"
  methodName <- "exampleMethodName"

  bdpar.Options$remove("verbose")

  testthat::expect_error(bdpar.log(message = message,
                                   level = level,
                                   className = className,
                                   methodName = methodName),
                         "[bdpar.log][FATAL] Verbose is not defined in bdpar.Options",
                         fixed = TRUE)
})

testthat::teardown({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::setup({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::test_that("bdpar.log logger not configured",{

  message <- "exampleMessage"
  level <- "INFO"
  className <- "exampleClassName"
  methodName <- "exampleMethodName"

  bdpar.Options$disableLog()

  testthat::expect_silent(bdpar.log(message = message,
                                    level = level,
                                    className = className,
                                    methodName = methodName))
})

testthat::teardown({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::setup({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::test_that("bdpar.log logger NULL",{

  message <- "exampleMessage"
  level <- "INFO"
  className <- "exampleClassName"
  methodName <- "exampleMethodName"

  bdpar.Options$set("verbose", TRUE)
  bdpar:::.setLoggerSettings(settings = NULL)

  testthat::expect_error(bdpar.log(message = message,
                                   level = level,
                                   className = className,
                                   methodName = methodName),
                         "[bdpar.log][FATAL] Logger is not configured. Use bdpar.options$configureLog to configure its behavior",
                         fixed = TRUE)
})

testthat::teardown({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::setup({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::test_that("bdpar.log error level parameter",{

  message <- "exampleMessage"
  className <- "exampleClassName"
  methodName <- "exampleMethodName"

  level <- NULL

  testthat::expect_error(bdpar.log(message = message,
                                   level = level,
                                   className = className,
                                   methodName = methodName),
                         "[bdpar.log][FATAL] The 'level' variable must be between these values: FATAL, ERROR, WARN, INFO or DEBUG",
                         fixed = TRUE)

  level <- 1

  testthat::expect_error(bdpar.log(message = message,
                                   level = level,
                                   className = className,
                                   methodName = methodName),
                         "[bdpar.log][FATAL] The 'level' variable must be between these values: FATAL, ERROR, WARN, INFO or DEBUG",
                         fixed = TRUE)

  level <- "wrongLevel"

  testthat::expect_error(bdpar.log(message = message,
                                   level = level,
                                   className = className,
                                   methodName = methodName),
                         "[bdpar.log][FATAL] The 'level' variable must be between these values: FATAL, ERROR, WARN, INFO or DEBUG",
                         fixed = TRUE)

})

testthat::teardown({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::setup({
  bdpar.Options$reset()
  bdpar.Options$configureLog(threshold = "DEBUG")

})

testthat::test_that("bdpar.log works",{

  message <- "exampleMessage"

  className <- "exampleClassName"
  methodName <- "exampleMethodName"

  level <- "DEBUG"
  bdpar.Options$set("verbose", TRUE)
  testthat::expect_message(bdpar.log(message = message,
                                   level = level,
                                   className = className,
                                   methodName = methodName),
                         "[exampleClassName][exampleMethodName][DEBUG] exampleMessage",
                         fixed = TRUE)

  level <- "INFO"

  testthat::expect_message(bdpar.log(message = message,
                                     level = level,
                                     className = className,
                                     methodName = methodName),
                           "[exampleClassName][exampleMethodName][INFO] exampleMessage",
                           fixed = TRUE)

  level <- "WARN"

  testthat::expect_warning(bdpar.log(message = message,
                                     level = level,
                                     className = className,
                                     methodName = methodName),
                           "[exampleClassName][exampleMethodName][WARN] exampleMessage",
                           fixed = TRUE)

  level <- "ERROR"

  testthat::expect_message(bdpar.log(message = message,
                                     level = level,
                                     className = className,
                                     methodName = methodName),
                           "[exampleClassName][exampleMethodName][ERROR] exampleMessage",
                           fixed = TRUE)

  level <- "FATAL"

  testthat::expect_error(bdpar.log(message = message,
                                   level = level,
                                   className = className,
                                   methodName = methodName),
                         "[exampleClassName][exampleMethodName][FATAL] exampleMessage",
                         fixed = TRUE)

})

testthat::teardown({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::setup({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})

testthat::test_that("bdpar.log works with FALTAL|ERROR levels when loggers are disable",{

  message <- "exampleMessage"
  level <- "FATAL"
  className <- "exampleClassName"
  methodName <- "exampleMethodName"

  bdpar.Options$disableLog()

  testthat::expect_error(bdpar.log(message = message,
                                   level = level,
                                   className = className,
                                   methodName = methodName),
                         "[exampleClassName][exampleMethodName][FATAL] exampleMessage",
                         fixed = TRUE)

  level <- "WARN"

  testthat::expect_warning(bdpar.log(message = message,
                                     level = level,
                                     className = className,
                                     methodName = methodName),
                           "[exampleClassName][exampleMethodName][WARN] exampleMessage",
                           fixed = TRUE)
})

testthat::teardown({
  bdpar.Options$reset()
  bdpar.Options$configureLog()
})