Further refinement of error for mismatched start/end

r-lib · Jan 23, 2025 · 70ed273 · 70ed273
1 parent 26224e3
commit 70ed273
Showing 1 changed file with 8 additions and 2 deletions.
diff --git a/R/exclusions.R b/R/exclusions.R
@@ -112,8 +112,14 @@ parse_exclusions <- function(lines,
 
   if (length(starts) > 0) {
     if (length(starts) != length(ends)) {
-      starts_msg <- sprintf(ngettext(length(starts), "%d range start", "%d range starts"), length(starts))
-      ends_msg <- sprintf(ngettext(length(ends), "%d range end", "%d range ends"), length(ends))
+      starts_msg <- sprintf(
+        ngettext(length(starts), "%d range start (%s)", "%d range starts (%s)"),
+        length(starts), toString(starts)
+      )
+      ends_msg <- sprintf(
+        ngettext(length(ends), "%d range end (%s)", "%d range ends (%s)"),
+        length(ends), toString(ends)
+      )
       stop(starts_msg, " but only ", ends_msg, " for exclusion from code coverage!")
     }