Multiple observed warnings combined in display

Rdatatable · May 2, 2024 · 17f77e9 · 17f77e9
1 parent 65fbc2a
commit 17f77e9
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/test.data.table.R b/R/test.data.table.R
@@ -445,7 +445,7 @@ test = function(num,x,y=TRUE,error=NULL,warning=NULL,message=NULL,output=NULL,no
     }
     if (length(expected) != length(observed)) {
       # nocov start
-      catf("Test %s produced %d %ss but expected %d\n%s\n%s\n", numStr, length(observed), type, length(expected), paste("Expected:", expected), paste("Observed:", observed))
+      catf("Test %s produced %d %ss but expected %d\n%s\n%s\n", numStr, length(observed), type, length(expected), paste("Expected:", expected), paste("Observed:", observed, collapse = "\n"))
       fail = TRUE
       # nocov end
     } else {