tests/testthat/test-logger-meta.R

In logger: A Lightweight, Modern and Flexible Logging Utility

test_that("captures call/environment info", {
  f <- function(...) logger_meta_env()
  env <- f(x = 1)

  # values are computed lazily
  expect_type(substitute(fn, env), "language")
  expect_type(substitute(call, env), "language")

  # and give correct values
  expect_equal(env$fn, "f")
  expect_equal(env$call, "f(x = 1)")
  expect_equal(env$topenv, "logger")
})

test_that("captures namespace info", {
  env <- logger_meta_env(namespace = "testthat")
  expect_equal(env$ns, "testthat")
  expect_equal(env$ans, "global")
  expect_equal(env$ns_pkg_version, as.character(packageVersion("testthat")))
})

test_that("captures other environmental metadata", {
  env <- logger_meta_env()
  expect_equal(env$pid, Sys.getpid())
  expect_equal(env$r_version, as.character(getRversion()))

  sysinfo <- as.list(Sys.info())
  expect_equal(env$node, sysinfo$nodename)
  expect_equal(env$arch, sysinfo$machine)
  expect_equal(env$os_name, sysinfo$sysname)
  expect_equal(env$os_release, sysinfo$release)
  expect_equal(env$os_version, sysinfo$version)
  expect_equal(env$user, sysinfo$user)
})