From 828daf200539d3a642fcf8210df7b58aa0d5fede Mon Sep 17 00:00:00 2001 From: Jessica Tallon Date: Wed, 13 Apr 2022 15:57:24 +0200 Subject: [PATCH] Fix missing modules argument for coverage-data->lcov The code coverage function `coverage-data->lcov` has a documented `modules` argument, however that was missing from the source. I have added it so when supplied it only converts the coverage data for the supplied modules. If not supplied it defaults the old behavour of including all the modules currently loaded. --- module/system/vm/coverage.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/module/system/vm/coverage.scm b/module/system/vm/coverage.scm index 0d51e261a..f1d65cc6c 100644 --- a/module/system/vm/coverage.scm +++ b/module/system/vm/coverage.scm @@ -300,7 +300,7 @@ was loaded at the time DATA was collected." ;;; LCOV output. ;;; -(define* (coverage-data->lcov data port) +(define* (coverage-data->lcov data port #:key (modules #f)) "Traverse code coverage information DATA, as obtained with `with-code-coverage', and write coverage information in the LCOV format to PORT. The report will include all the modules loaded at the time coverage data was @@ -325,6 +325,12 @@ gathered, even if their code was not executed." ;; Output per-file coverage data. (format port "TN:~%") + (define source-files + (filter + (lambda (file) + (or (not modules) (member file modules))) + (instrumented-source-files data))) + (for-each (lambda (file) (let ((path (search-path %load-path file))) (if (string? path) @@ -345,6 +351,6 @@ gathered, even if their code was not executed." (format port "end_of_record~%")) (begin (format (current-error-port) - "skipping unknown source file: ~a~%" + "skipping source file: ~a~%" file))))) - (instrumented-source-files data))) + source-files)) -- 2.35.1