msg <- "Just some information about the appender"
expect_equal(result, "Just some information about the appender")
expect_equal(result, "Warning: no need to use")
time <- format(Sys.time(), "%Y-%m-%d %H:%M:%S")
test <- sprintf("Thread: Main\nMessage:  %s\nLevel:  ERROR", msg)
result <- capture.output(capture.output(out <- ParallelLogger::layoutErrorReport(lvl, msg), type = "message"), type = "output")
result <- capture.output(capture.output(out <- ParallelLogger::layoutEmail(lvl, msg), type = "message"), type = "output")
# TODO: Fix / ignore error output generated bv layoutStackTrace / (limitedLabels(sys.calls()))?
try(result <- capture.output(capture.output(out <- ParallelLogger::layoutStackTrace(lvl, msg), type = "message"), type = "output"), silent = TRUE)

"Just some information about the appender"