tests/testthat/test-textformatter.R

In metrumresearchgroup/logrrr: Structured, Pluggable Logging Framework

context("test-textformatter")


describe("TextFormatter", {
  sample_info <- list(level = "INFO", pid = 23434, msg = "success")
  sample_error <- list(level = "ERROR", pid = 23434, msg = "something bad happened")

  it("returns entries", {
    tf <- TextFormatter()
    ## character conversion or using the output as glue should keep classes similar
    ## test both ways
    # if these start to fail because of color on R cmd check see
    # test-format-fields for setting crayon.enabled option
    expect_equal(as.character(tf(sample_error)),
                 "\033[31mERRO\033[39m: something bad happened              \033[31mpid\033[39m=23434")
    expect_equal(tf(sample_info),
                 glue::glue("\033[34mINFO\033[39m: success                             \033[34mpid\033[39m=23434")
                 )
  })
  it("can suppress colored output", {
    tf <- TextFormatter(no_color = TRUE)
    expect_equal(tf(sample_error),
                 glue::glue("ERRO: something bad happened              pid=23434"))
  })
  it("can keep full level names", {
    tf <- TextFormatter(no_truncate = TRUE, no_color = TRUE)
    expect_equal(tf(sample_error),
                 glue::glue("ERROR: something bad happened              pid=23434"))
  })
  it("can suppress extra whitespace for messages", {

  })
  it("renames entries in the field map", {
  })
})