Key

Not instrumented

Conditionalized out

Executed

Not executed

Both branches taken

One branch taken

Neither branch taken

1

;;; lib/rt/condition.lisp --- RT Errors

2

3

;; Errors which may occur within the Regression Testing framework.

4

5

;;; Code:

6

7

(in-package :rt)

8

9

(define-condition test-condition () ())

10

11

(define-condition test-failed (test-condition error)

12

((reason :accessor fail-reason :initarg :reason :initform "unknown")

13

(name :accessor fail-name :initarg :name)

14

(form :accessor fail-form :initarg :form))

15

(:documentation "Signaled when a test fails.")

16

(:report (lambda (c s)

17

(format s "The following expression failed: ~S~%~A."

18

(fail-form c)

19

(fail-reason c)))))