diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-28 23:36:56 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
commit | c5ed058b70c4d9188cfe8a4f3307d1b43c7fc197 (patch) | |
tree | 9fde29f1a7f5cc4ffe33fd86fb9da0492532b2b1 /tests/unit | |
parent | Add tests for xmllint. (diff) | |
download | calp-c5ed058b70c4d9188cfe8a4f3307d1b43c7fc197.tar.gz calp-c5ed058b70c4d9188cfe8a4f3307d1b43c7fc197.tar.xz |
Add basic tests for coverage manipulation.
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)) |