Le vendredi 12 avril 2019 à 12:35 +0200, jer...@korwin-zmijowski.fr a écrit : > Hello dear guilers ! > > I have implemented a code coverage test with a piece of code I > modified > for my usage, here it is (filename : cybo-cov.scm): > > (use-modules (system vm coverage) > (system vm vm) > (srfi srfi-11)) > > (let ((output-directory > (string-append > (getenv "HOME") "/Workspace/guile-cybo/coverage"))) > (let-values (((data . values) > (with-code-coverage (the-vm) > (lambda () > (load "cybo-test.scm"))))) > (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage- > XXXXXX"))) > (file (port-filename port))) > (coverage-data->lcov data port) > (close port) > (when (not (zero? (system* "genhtml" file "-o" output- > directory))) > (error "genhtml failed")) > (delete-file file)))) > > When I execute > > $ guile -L . > > then > > scheme@(guile-user)> (load "cybo-cov.scm") > > The report seems to cover my project and all Guile 2.0 code. I would > like the test to focus on my project only. > Does someone know how I can configure the test ? > > Thank you in advance for your help. > > Jeko >
The code for Guile 2.2.3 is (use-modules (system vm coverage) (system vm vm) (srfi srfi-11)) (let ((output-directory (string-append (getenv "HOME") "/Workspace/guile-cybo/coverage"))) (let-values (((data . values) (with-code-coverage (lambda () (load "cybo-test.scm"))))) (let* ((port (mkstemp! (string-copy "/tmp/cybo-coverage-XXXXXX"))) (file (port-filename port))) (coverage-data->lcov data port) (close port) (when (not (zero? (system* "genhtml" file "-o" output- directory))) (error "genhtml failed")) (delete-file file)))) Jeko