From 7a5a533595ec3df028adea46eebeb76f72c832ec Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 8 Nov 2013 08:56:52 +0100 Subject: [PATCH] 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. --- test-suite/tests/coverage.test | 7 +++---- 1 file 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"