From bdddd3c80d3b402ee0708b65d10811a1dc87ce57 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 8 Apr 2015 10:16:13 -0500 Subject: [PATCH] fix test case count reporting for the place case --- compiler-lib/compiler/commands/test.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler-lib/compiler/commands/test.rkt b/compiler-lib/compiler/commands/test.rkt index 55b2dc4f54..d456d42711 100644 --- a/compiler-lib/compiler/commands/test.rkt +++ b/compiler-lib/compiler/commands/test.rkt @@ -96,13 +96,14 @@ ;; If the tests use `rackunit`, collect result stats: (define test-results (test-log #:display? #f #:exit? #f)) + ;; Return test results. If we don't get this far, the result ;; code of the place determines whether it the test counts as ;; successful. (place-channel-put pch ;; If the test did not use `rackunit`, claim ;; success: - (if (zero? (car test-results)) + (if (zero? (cdr test-results)) (cons 0 1) test-results))))