Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; lib/rt/cover.lisp --- Test Coverage

2

3

;; wraps SB-COVER package

4

5

;;; Code:

6

(in-package :rt/cover)

7

(defvar *coverage-directory* #P"/tmp/rt/")

8

9

(defun enable-coverage ()

10

(proclaim '(optimize sb-cover:store-coverage-data)))

11

12

(defun disable-coverage ()

13

(proclaim '(optimize (sb-c:store-coverage-data 0))))

14

15

(defun coverage-report ()

16

"Generate a coverage report."

17

(sb-cover:report *coverage-directory*))