summaryrefslogtreecommitdiff
path: root/test-suite/tests/coverage.test
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-11-08 08:56:52 +0100
committerAndy Wingo <wingo@pobox.com>2013-11-08 09:00:35 +0100
commit7a5a533595ec3df028adea46eebeb76f72c832ec (patch)
treea6310a88236f5cdb706f319d774ac0c5d186a460 /test-suite/tests/coverage.test
parent581a4eb82b1534970060e3cbd79b9a96d351edf9 (diff)
downloadguile-7a5a533595ec3df028adea46eebeb76f72c832ec.tar.gz
Fix coverage.test: "line-execution-counts: one proc hit, one proc unused"
* test-suite/tests/coverage.test ("line-execution-counts"): Fix test for even/odd? in letrec. The test profiles the execution of even?, not the letrec, so the last line is in fact not reached.
Diffstat (limited to 'test-suite/tests/coverage.test')
-rw-r--r--test-suite/tests/coverage.test7
1 files changed, 3 insertions, 4 deletions
diff --git a/test-suite/tests/coverage.test b/test-suite/tests/coverage.test
index 336c87a33..8e498e997 100644
--- a/test-suite/tests/coverage.test
+++ b/test-suite/tests/coverage.test
@@ -156,10 +156,9 @@
(let ((line (car line+count))
(count (cdr line+count)))
(case line
- ((0 1) (= count 1))
- ((2 3 4) (= count 0))
- ((5) (= count 1))
- (else #f))))
+ ((0 1) (= count 1))
+ ((2 3 4 5) (= count 0))
+ (else #f))))
counts))))))
(pass-if "case-lambda"