changelog shortlog graph tags branches changeset files revisions annotate raw help

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

changeset 632: bbd9024f2fe2
parent: b9cd591b9c10
author: Richard Westhaver <ellis@rwest.io>
date: Sat, 31 Aug 2024 22:34:56 -0400
permissions: -rw-r--r--
description: lib/rt upgrades and refactoring 
     1 ;;; lib/rt/err.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)))))