tests/testthat/test-log_formatter.R

In teal.logger: Logging Setup for the 'teal' Family of Packages

testthat::describe("teal.logger formatting via public API", {
  it("formats NULL asis", {
    out <- logger::log_info("null: {NULL}")
    testthat::expect_equal(out$default$message, "null: NULL")
  })

  it("formats character(0) asis", {
    out <- logger::log_info("empty character: {character(0)}")
    testthat::expect_equal(out$default$message, "empty character: character(0)")
  })

  it("formats NA asis", {
    out <- logger::log_info("na: {NA}")
    testthat::expect_equal(out$default$message, "na: NA")
  })

  it("formats numeric scalar asis", {
    out <- logger::log_info("numeric: {1}")
    testthat::expect_equal(out$default$message, "numeric: 1")
  })

  it("formats character scalar asis", {
    out <- logger::log_info("character: {'a'}")
    testthat::expect_equal(out$default$message, 'character: "a"')
  })

  it("formats vector as an array literal", {
    out <- logger::log_info("{letters[1:3]}")
    testthat::expect_equal(out$default$message, 'c("a", "b", "c")')
  })

  it("formats two vectors in a single log", {
    out <- logger::log_info("one: {letters[1:2]} two: {letters[3:4]}")
    testthat::expect_equal(out$default$message, 'one: c("a", "b") two: c("c", "d")')
  })

  it("formats list as a list literal", {
    out <- logger::log_info("list: {list(letters[1:2])}")
    testthat::expect_equal(out$default$message, 'list: list(c("a", "b"))')
  })

  it("formats nested list as a named list array literal", {
    out <- logger::log_info("nested list: {list(a = letters[1:2], b = list(letters[3:4]))}")
    testthat::expect_equal(
      out$default$message,
      'nested list: list(a = c("a", "b"), b = list(c("c", "d")))'
    )
  })
})