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

fix test case count reporting for the place case

Browse Source
This commit is contained in:
Robby Findler 2015-04-08 10:16:13 -05:00
parent 44260da512
commit bdddd3c80d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler-lib/compiler/commands/test.rkt
View File

@ -96,13 +96,14 @@
;; If the tests use `rackunit`, collect result stats: ;; If the tests use `rackunit`, collect result stats:
(define test-results (define test-results
(test-log #:display? #f #:exit? #f)) (test-log #:display? #f #:exit? #f))
;; Return test results. If we don't get this far, the result ;; Return test results. If we don't get this far, the result
;; code of the place determines whether it the test counts as ;; code of the place determines whether it the test counts as
;; successful. ;; successful.
(place-channel-put pch (place-channel-put pch
;; If the test did not use `rackunit`, claim ;; If the test did not use `rackunit`, claim
;; success: ;; success:
(if (zero? (car test-results)) (if (zero? (cdr test-results))
(cons 0 1) (cons 0 1)
test-results)))) test-results))))