tests/testthat/test-on-load.R

In msgr: Extends Messages, Warnings and Errors by Adding Levels and Log Files

context("on load")

test_that("evironment variables are set correctly on load", {

  expect_identical(Sys.getenv("MSGR_LEVEL"), "1")
  expect_identical(Sys.getenv("MSGR_TYPES"), "INFO|WARNING|ERROR")
  expect_identical(Sys.getenv("MSGR_LOG_PATH"), "")

})

test_that("package options are set correctly on load", {

  expect_identical(getOption("msgr.level"), 1L)
  expect_identical(getOption("msgr.types"), c("INFO", "WARNING", "ERROR"))
  expect_identical(getOption("msgr.log_path"), "")

})