diff --git a/rackunit-doc/rackunit/scribblings/utils.scrbl b/rackunit-doc/rackunit/scribblings/utils.scrbl index e9309ab..e7288bf 100644 --- a/rackunit-doc/rackunit/scribblings/utils.scrbl +++ b/rackunit-doc/rackunit/scribblings/utils.scrbl @@ -48,11 +48,12 @@ then the test is considered a failure. @defproc[(test-log [#:display? display? boolean? #t] [#:exit? exit? boolean? #t]) - void?]{ + (cons/c exact-nonnegative-integer? + exact-nonnegative-integer?)]{ -Processes the running test log. If @racket[display?] is true, then a -message is displayed. If there were failures, the message is printed -on @racket[(current-error-port)]. If @racket[exit?] is true, then if -there were failures, calls @racket[(exit 1)]. +Processes the running test log. The first integer is the failed tests, the second is the total +tests. If @racket[display?] is true, then a message is displayed. If there were failures, the +message is printed on @racket[(current-error-port)]. If @racket[exit?] is true, then if there were +failures, calls @racket[(exit 1)]. } diff --git a/rackunit-lib/info.rkt b/rackunit-lib/info.rkt index 24700f7..2cbeb47 100644 --- a/rackunit-lib/info.rkt +++ b/rackunit-lib/info.rkt @@ -3,7 +3,10 @@ (define collection 'multi) (define deps '("base" - "data-lib")) + "data-lib" + "testing-util-lib")) + +(define implies '("testing-util-lib")) (define pkg-desc "RackUnit testing framework") diff --git a/testing-util-lib/info.rkt b/testing-util-lib/info.rkt new file mode 100644 index 0000000..2bdf11d --- /dev/null +++ b/testing-util-lib/info.rkt @@ -0,0 +1,10 @@ +#lang info +(define collection 'multi) + +(define deps '("base")) + +(define pkg-desc "Utilities for interoperating between testing frameworks") + +(define version "1.0") + +(define pkg-authors '(florence)) diff --git a/rackunit-lib/rackunit/log.rkt b/testing-util-lib/rackunit/log.rkt similarity index 100% rename from rackunit-lib/rackunit/log.rkt rename to testing-util-lib/rackunit/log.rkt