guile-commits
[Top][All Lists]
Advanced

[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"



reply via email to

[Prev in Thread] Current Thread [Next in Thread]