test reporting

Author: gagolews

devel/realtest.R

@@ -59,6 +59,27 @@ realtest_report <- function(r, context="", ...)
     )
     cat("\n")
 
+
+    if (context != "base") {
+        ugly <- c("bad", "worse", "worst")
+        fails <- x[x[["match"]] %in% ugly, , drop=FALSE]
+        if (nrow(fails) != 0) {
+            cat(sprintf("*** realtest [%s]: the following expectations are ugly:\n", context))
+
+            fails2 <- as.data.frame(fails[,
+                !(names(fails) %in% ".expr") & !sapply(fails, function(x) all(is.na(x))),
+                drop=FALSE])
+            for (i in row.names(fails2)) {
+                print(fails2[i, , drop=FALSE])
+                cat("    value: "); str(r[[i]][["object"]][["value"]], indent.str="    ")
+                cat("    sides: "); str(r[[i]][["object"]][["sides"]], indent.str="    ")
+                cat("\n")
+            }
+            cat("\n")
+        }
+    }
+
+
     fails <- x[x[["match"]] == "fail", , drop=FALSE]
     if (nrow(fails) == 0) return(invisible(x))
 

inst/realtest/strptime-stringx.R

@@ -79,33 +79,33 @@ get_test_times <- function() {
 
 stringi::stri_timezone_set("Etc/GMT-14")
 times <- get_test_times()
-for (time in times)
-    E(strftime(time, "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31")
+for (i in seq_along(times))
+    E(strftime(times[[i]], "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31", .comment=i)
 
 stringi::stri_timezone_set("Etc/GMT+12")
 times <- get_test_times()
-for (time in times)
-    E(strftime(time, "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31")
+for (i in seq_along(times))
+    E(strftime(times[[i]], "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31", .comment=i)
 
 stringi::stri_timezone_set("UTC")
 times <- get_test_times()
-for (time in times)
-    E(strftime(time, "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31")
+for (i in seq_along(times))
+    E(strftime(times[[i]], "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31", .comment=i)
 
 stringi::stri_timezone_set("Australia/Melbourne")
 times <- get_test_times()
-for (time in times)
-    E(strftime(time, "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31")
+for (i in seq_along(times))
+    E(strftime(times[[i]], "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31", .comment=i)
 
 stringi::stri_timezone_set("Europe/Warsaw")
 times <- get_test_times()
-for (time in times)
-    E(strftime(time, "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31")
+for (i in seq_along(times))
+    E(strftime(times[[i]], "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31", .comment=i)
 
 stringi::stri_timezone_set("America/Montreal")
 times <- get_test_times()
-for (time in times)
-    E(strftime(time, "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31")
+for (i in seq_along(times))
+    E(strftime(times[[i]], "%Y-%m-%d"), "1970-01-01", bad="1970-01-02", bad="1969-12-31", .comment=i)
 
 
 stringi::stri_timezone_set(oldtz)