From 56024fc2ca7ba0a7c384d513df0807029257ebb6 Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Thu, 2 May 2013 14:49:31 -0600
Subject: [PATCH] Adding summary mode, quiet program mode and changing
 tests/eli-tester to cooperate so it adds useful information in summary mode

original commit: ccf1119b68063306a5f749e7df9d275b33c3445b
---
 collects/rackunit/log.rkt | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/collects/rackunit/log.rkt b/collects/rackunit/log.rkt
index 5ef8c9c..785d45d 100644
--- a/collects/rackunit/log.rkt
+++ b/collects/rackunit/log.rkt
@@ -26,11 +26,14 @@
                   FAILED TOTAL)])))
   (when exit?
     (unless (zero? FAILED)
-      (exit 1))))
+      (exit 1)))
+  (cons FAILED TOTAL))
 
 (provide
  (contract-out
   [test-log!
    (-> any/c void?)]
   [test-log
-   (->* () (#:display? boolean? #:exit? boolean?) void?)]))
+   (->* () (#:display? boolean? #:exit? boolean?)
+        (cons/c exact-nonnegative-integer?
+                exact-nonnegative-integer?))]))