diff options
author | Andy Wingo <wingo@pobox.com> | 2013-11-08 08:56:52 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-11-08 09:00:35 +0100 |
commit | 7a5a533595ec3df028adea46eebeb76f72c832ec (patch) | |
tree | a6310a88236f5cdb706f319d774ac0c5d186a460 /test-suite/tests/coverage.test | |
parent | 581a4eb82b1534970060e3cbd79b9a96d351edf9 (diff) | |
download | guile-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.test | 7 |
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" |