mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 22:31:12 +02:00
Code Activity

Fix coverage.test: "line-execution-counts: one proc hit, one proc unused"

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2013-11-08 08:56:52 +01:00
parent 581a4eb82b
commit 7a5a533595
1 changed files with 3 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

7
test-suite/tests/coverage.test
View file

@ -156,10 +156,9 @@
(let ((line (car line+count)) (let ((line (car line+count))
(count (cdr line+count))) (count (cdr line+count)))
(case line (case line
((0 1) (= count 1)) ((0 1) (= count 1))
((2 3 4) (= count 0)) ((2 3 4 5) (= count 0))
((5) (= count 1)) (else #f))))
(else #f))))
counts)))))) counts))))))
(pass-if "case-lambda" (pass-if "case-lambda"