[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 02/02: Add another code coverage test
From: |
Andy Wingo |
Subject: |
[Guile-commits] 02/02: Add another code coverage test |
Date: |
Tue, 21 Jun 2016 07:08:15 +0000 (UTC) |
wingo pushed a commit to branch master
in repository guile.
commit 845c873acf8cb57766dfbd565640a84d5d05ddb0
Author: Andy Wingo <address@hidden>
Date: Tue Jun 21 09:07:26 2016 +0200
Add another code coverage test
* test-suite/tests/coverage.test ("line-execution-counts"): Add a test
from Taylan Ulrich B, from bug #14849.
---
test-suite/tests/coverage.test | 20 +++++++++++++++++++-
1 file changed, 19 insertions(+), 1 deletion(-)
diff --git a/test-suite/tests/coverage.test b/test-suite/tests/coverage.test
index 0fa1c10..c1b417f 100644
--- a/test-suite/tests/coverage.test
+++ b/test-suite/tests/coverage.test
@@ -196,7 +196,25 @@
(with-code-coverage
(lambda () (proc 451 1884)))))
(let ((counts (line-execution-counts data "one-liner.scm")))
- (equal? counts '((0 . 1))))))))
+ (equal? counts '((0 . 1)))))))
+
+ (pass-if "tail calls"
+ (let ((proc (code "tail-calls.scm"
+ "(begin
+ (define (tail-call-test)
+ (display \"foo\\n\")
+ (tail-call-target))
+
+ (define (tail-call-target)
+ (display \"bar\\n\"))
+
+ tail-call-test)")))
+ (let-values (((data result)
+ (with-code-coverage
+ (lambda () (with-output-to-string proc)))))
+ (let ((counts (line-execution-counts data "tail-calls.scm")))
+ (lset= equal? '((1 . 1) (2 . 1) (3 . 1) (5 . 1) (6 . 1))
+ counts))))))
(with-test-prefix "procedure-execution-count"