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

original commit: 58d425c00c
This commit is contained in:
Matthew Flatt 2013-12-30 09:48:59 -07:00
parent 51e419cfc2
commit b29b18178b
1 changed files with 10 additions and 8 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))) #:sema (make-semaphore)))
(when table? (when table?
(display-summary sum)) (display-summary sum))
;; Re-log failures and successes, and then report using `test-log`. (unless (or (eq? default-mode 'direct)
;; (This is awkward; is it better to not try to use `test-log`?) (and (not default-mode) single-file?))
(for ([s (in-list sum)]) ;; Re-log failures and successes, and then report using `test-log`.
(for ([i (in-range (summary-failed s))]) ;; (This is awkward; is it better to not try to use `test-log`?)
(test-log! #f)) (for ([s (in-list sum)])
(for ([i (in-range (- (summary-total s) (for ([i (in-range (summary-failed s))])
(summary-failed s)))]) (test-log! #f))
(test-log! #t))) (for ([i (in-range (- (summary-total s)
(summary-failed s)))])
(test-log! #t))))
(define r (test-log #:display? #t #:exit? #t)) (define r (test-log #:display? #t #:exit? #t))
(exit (if (zero? (car r)) 0 1)))) (exit (if (zero? (car r)) 0 1))))