blob: 7c10c9fd44e50980e28aabc5df1ff8e6e0b297ee (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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))
|