Merge pull request #3 from rasmusab/fix-print-method

Add a print method to the ProjectReporter class

Author: machow

R/reporter-project.R

@@ -57,6 +57,21 @@ ProjectReporter <- R6::R6Class("ProjectReporter", inherit = testthat::ListReport
              message = message,
              success = success,
              outcome = outcome)
+    },
+    print = function() {
+      end_report <- self$end_reporter()
+      summary <- end_report$summary
+      tests <- end_report$tests
+      cat((summary$tests - summary$failures - summary$errors), "/", summary$tests, " tests passed",sep = "")
+      cat("\n")
+      for(i in seq_along(tests)) {
+        test <- tests[[i]]
+        if(test$success) next
+        cat(">", test$outcome, "::", test$name)
+        cat("\n")
+        cat( test$message, "\n---\n")
+      }
+      invisible(self)
     }
   ),
   private = list(