coverage.scm

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

(add-to-load-path (dirname (current-filename)))

(call-with-values (lambda ()
		    (with-code-coverage (lambda ()
					  (load "tests.scm"))))
  (lambda (tests-coverage-data . useless-values)
    (call-with-output-file "lcov.info"
      (lambda (lcov-file)
	(coverage-data->lcov tests-coverage-data lcov-file)))))

;; Focus coverage on my module
(when (not (zero? (system* "lcov" "--remove" "lcov.info" "-o" "lcov-final.info" "/gnu/*")))
  (error "lcov remove failed"))
(when (not (zero? (system* "genhtml" "lcov-final.info" "-o" "coverage")))
  (error "genhtml failed"))

(delete-file "lcov.info")
(delete-file "lcov-final.info")