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", {
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.