changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > core / lisp/lib/rt/cover.lisp

changeset 698: 96958d3eb5b0
parent: 03c2017b1405
author: Richard Westhaver <ellis@rwest.io>
date: Fri, 04 Oct 2024 22:04:59 -0400
permissions: -rw-r--r--
description: fixes 
     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 start-coverage ()
    10   (progn
    11     (declaim (optimize sb-c:store-coverage-data))))
    12 
    13 (defun stop-coverage ()
    14   (progn
    15     (declaim (optimize (sb-c:store-coverage-data 0)))))
    16 
    17 (defmacro with-coverage (&body body)
    18   `(progn
    19      (start-coverage)
    20      ,@body
    21      (stop-coverage)))
    22 
    23 (defun coverage-report ()
    24   "Generate a coverage report."
    25   (sb-cover:report *coverage-directory*))