suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

raco test: fix error summary in direct mode

Browse Source 
Also, fix a doc typo
This commit is contained in:
Matthew Flatt 2013-12-30 09:48:59 -07:00
parent b3ab82c5f9
commit 58d425c00c
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt
View File

@ -714,13 +714,15 @@
#:sema (make-semaphore)))
(when table?
(display-summary sum))
;; Re-log failures and successes, and then report using `test-log`.
;; (This is awkward; is it better to not try to use `test-log`?)
(for ([s (in-list sum)])
(for ([i (in-range (summary-failed s))])
(test-log! #f))
(for ([i (in-range (- (summary-total s)
(summary-failed s)))])
(test-log! #t)))
(unless (or (eq? default-mode 'direct)
(and (not default-mode) single-file?))
;; Re-log failures and successes, and then report using `test-log`.
;; (This is awkward; is it better to not try to use `test-log`?)
(for ([s (in-list sum)])
(for ([i (in-range (summary-failed s))])
(test-log! #f))
(for ([i (in-range (- (summary-total s)
(summary-failed s)))])
(test-log! #t))))
(define r (test-log #:display? #t #:exit? #t))
(exit (if (zero? (car r)) 0 1))))

4
pkgs/racket-pkgs/racket-doc/scribblings/raco/test.scrbl
View File

@ -22,7 +22,7 @@ discovers and runs all files within the directory that end in
@racket[test-command-line-arguments] in an @filepath{info.rkt} file.
A test is counted as failing if it logs a failing test code via
@racket[test-log], causes Racket to exit with a non-zero exit code, or
@racket[test-log!], causes Racket to exit with a non-zero exit code, or
(when @Flag{e} or @DFlag{check-stderr} is specified) if it produces
output on the error port. The current directory is set to a test
file's directory before running the file.
@ -98,7 +98,7 @@ The @exec{raco test} command accepts several flags:
@item{@DFlag{table} or @Flag{t}
--- Print a summary table after all tests. If a test uses
@racketmodname[rackunit], or if a test at least uses
@racket[test-log] from @racketmodname[rackunit/log] to log
@racket[test-log!] from @racketmodname[rackunit/log] to log
successes and failures, the table reports test and failure
counts based on the log.}