diff options
Diffstat (limited to '')
-rw-r--r-- | tests/unit/util/coverage.scm | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/tests/unit/util/coverage.scm b/tests/unit/util/coverage.scm new file mode 100644 index 00000000..7c10c9fd --- /dev/null +++ b/tests/unit/util/coverage.scm @@ -0,0 +1,33 @@ +(define-module (test util-coverage) + :use-module (srfi srfi-64) + :use-module (srfi srfi-64 test-error) + :use-module (srfi srfi-88) + :use-module (hnh util coverage)) + + +;;; coverage-info +;;; coverage-info? +;;; filename lines total-lines hit-lines +;;; output-coverage +;;; parse-coverage +;;; merge-coverage + +(test-equal + (list + (coverage-info + filename: "filename" + lines: '((2 . 3) + (1 . 2)) + total-lines: 3 + hit-lines: 2)) + (parse-coverage + "TN: +SF:filename +DA:1,2 +DA:2,3 +LH: 2 +LF: 3 +end_of_record")) + + +'((hnh util coverage)) |