E.g. here:
|
first_line <- function(x) { |
|
loc <- expectation_location(x, " (", ")") |
|
paste0(strsplit(x$message, split = "\n")[[1]][1], loc) |
|
} |
Note that testthat is already stripping ANSI escapes for the regular message bodies.
|
xml2::xml_text(error) <- cli::ansi_strip(format(result)) |
Presumably because control characters aren't normally allowed in XML (well, XML 1.0) files?