Merge branch 'feature/cat-reports' into 234-skip-summary

R/reporter-summary.r

@@ -96,11 +96,7 @@ SummaryReporter <- setRefClass("SummaryReporter", contains = "Reporter",
         }
       } else {
         cat("\n")
-
-        reports <- vapply(seq_len(n), function(i) {
-          failure_summary(failures[[i]], labels[i])
-        }, character(1))
-        cat(paste(reports, collapse = "\n\n"), "\n", sep = "")
+        cat_reports(failures, failure_summary, "\n\n")
 
         if (show_praise && runif(1) < 0.25) {
           cat("\n", colourise(encourage(), "error"), "\n", sep = "")
@@ -111,3 +107,17 @@ SummaryReporter <- setRefClass("SummaryReporter", contains = "Reporter",
 )
 
 labels <- c(1:9, letters, LETTERS)
+
+cat_reports <- function(reports, summary_fun, collapse) {
+  report_summary <- vapply(
+    seq_len(min(length(reports), length(labels))),
+    function(i) {
+      summary_fun(reports[[i]], labels[i])
+    }, character(1L))
+  cat(paste(report_summary, collapse = collapse), "\n", sep = "")
+
+  extra_reports <- length(reports) - length(labels)
+  if (extra_reports > 0L) {
+    cat("  ... and ", extra_reports, " more\n")
+  }
+}