mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 19:50:24 +02:00
Code Activity

Fix coverage.test: "procedure-execution-count: never"

Browse source 
* test-suite/tests/coverage.test ("procedure-execution-count"): Adapt
  test to new behavior of procedure-execution-count of an unseen
  procedure: zero, not false.
This commit is contained in:
Andy Wingo 2013-11-08 09:00:06 +01:00
parent 7a5a533595
commit 697c4f29d9
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -213,7 +213,7 @@
(lambda () (+ 1 2))))) (lambda () (+ 1 2)))))
(and (coverage-data? data) (and (coverage-data? data)
(= 3 result) (= 3 result)
(not (procedure-execution-count data proc)))))) (zero? (procedure-execution-count data proc))))))
(pass-if "applicable struct" (pass-if "applicable struct"
(let* ((<box> (make-struct <applicable-struct-vtable> 0 'pw)) (let* ((<box> (make-struct <applicable-struct-vtable> 0 'pw))