From 70ed27373459648575a7df136dfd0d9df148d89f Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 23 Jan 2025 10:25:14 -0800 Subject: [PATCH] Further refinement of error for mismatched start/end --- R/exclusions.R | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/R/exclusions.R b/R/exclusions.R index 3c6183b0..471f0c11 100644 --- 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!") }