1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00

tests-suite: resurrect invoking check-guile --coverage.

* test-suite/guile-test (main): remove (the-vm) from with-code-coverage call.
This commit is contained in:
Jan Nieuwenhuizen 2016-06-28 15:16:13 +02:00 committed by Andy Wingo
parent a62d46ffff
commit 516f70f9e9

View file

@ -246,7 +246,7 @@
tests)))) tests))))
(if (opt 'coverage #f) (if (opt 'coverage #f)
(let-values (((coverage-data _) (let-values (((coverage-data _)
(with-code-coverage (the-vm) run-tests))) (with-code-coverage run-tests)))
(let ((out (open-output-file "guile.info"))) (let ((out (open-output-file "guile.info")))
(coverage-data->lcov coverage-data out) (coverage-data->lcov coverage-data out)
(close out))) (close out)))