Help me setup test coverage

[amirouche]

Hello all!


I have some difficulties setting up test coverage.

Here the procedure I use that inspired from guile/test-suite/guile-test:


(use-modules (system vm coverage)
            (system vm vm))


(define (run-test-with-coverage test)
 (call-with-values (lambda ()
                     (with-code-coverage
                      (lambda ()
                        (load test))))
   (lambda (data result)
     (let ((port (open-output-file (string-append test ".info"))))
       (coverage-data->lcov data port)
       (close port)))))

(run-test-with-coverage (cadr (program-arguments)))


It takes the name of a module as first argument and will load that file
inside 'with-code-coverage' and write the lcov .info file.

I've setup a simple example, it requires guile and lcov for genhtml.

You can reproduce the issue as follow:

 $ git clone https://github.com/a-guile-mind/coverage
 $ cd coverage
 $ make
   test echo
   Overall coverage rate:
     lines......: 0.0% (0 of 9164 lines)
     functions..: no data found

As you can see in the output, no lines seems to be visited by the vm.
The output should be at least one, the line inside test.scm.

What I am doing wrong?

Thanks in advance!