Fix width computation

r-lib · Nov 4, 2024 · 1010691 · 1010691
1 parent 37005ce
commit 1010691
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/reporter-progress.R b/R/reporter-progress.R
@@ -534,7 +534,9 @@ issue_header <- function(x, pad = FALSE) {
 issue_summary <- function(x, rule = FALSE) {
   header <- cli::style_bold(issue_header(x))
   if (rule) {
-    header <- cli::rule(header)
+    # Don't truncate long test names
+    width <- max(cli::ansi_nchar(header) + 6, getOption("width"))
+    header <- cli::rule(header, width = width)
   }
 
   paste0(header, "\n", format(x))