projects
/
xlunit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5452: *** empty log message ***
[xlunit.git]
/
assert.lisp
diff --git
a/assert.lisp
b/assert.lisp
index 269e797af812df4c46f63a38e30d922d46b10e9b..fa2f100e92a216cf3bec1e0a4872b301e8e564e6 100644
(file)
--- a/
assert.lisp
+++ b/
assert.lisp
@@
-2,7
+2,7
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: assert.lisp,v 1.
2 2003/08/04 12:16:13
kevin Exp $
+;;;; ID: $Id: assert.lisp,v 1.
4 2003/08/04 16:13:58
kevin Exp $
;;;; Purpose: Assert functions for XLUnit
;;;;
;;;; *************************************************************************
;;;; Purpose: Assert functions for XLUnit
;;;;
;;;; *************************************************************************
@@
-10,32
+10,34
@@
(in-package #:xlunit)
(in-package #:xlunit)
-;;; Assertions
-
-(define-condition test-failure-condition (simple-condition)
+(define-condition assertion-failed (simple-condition)
((msg :initform nil :initarg :msg :accessor msg))
(:documentation "Base class for all test failures."))
((msg :initform nil :initarg :msg :accessor msg))
(:documentation "Base class for all test failures."))
-(defun failure
(
format-str &rest args)
+(defun failure
-msg (msg &optional
format-str &rest args)
"Signal a test failure and exit the test."
"Signal a test failure and exit the test."
- (signal 'test-failure-condition
+ (signal 'assertion-failed
+ :msg msg
:format-control format-str
:format-arguments args))
:format-control format-str
:format-arguments args))
-(def
macro test-assert (test &optional msg
)
- `(unless ,test
-
(failure "Test assertion: ~s" ',test)
))
+(def
un failure (format-str &rest args
)
+ "Signal a test failure and exit the test."
+
(apply #'failure-msg nil format-str args
))
(defun assert-equal (v1 v2 &optional msg)
(unless (equal v1 v2)
(defun assert-equal (v1 v2 &optional msg)
(unless (equal v1 v2)
- (failure
"Test equal: ~s ~s
" v1 v2)))
+ (failure
-msg msg "Test equal: ~S ~S
" v1 v2)))
-(defun assert-
true (v
&optional msg)
- (unless
v
- (failure
"Test true: ~s [~A]" v (if msg msg "")
)))
+(defun assert-
eql (v1 v2
&optional msg)
+ (unless
(eql v1 v2)
+ (failure
-msg msg "Test eql: ~S ~S" v1 v2
)))
-(def
un assert-fals
e (v &optional msg)
-
(when
v
- (failure
"Test false ~A" (if msg msg "")
)))
+(def
macro assert-tru
e (v &optional msg)
+
`(unless ,
v
+ (failure
-msg msg "Not true: ~S" ',v
)))
+(defmacro assert-false (v &optional msg)
+ `(when ,v
+ (failure-msg msg "Not false: ~S" ',v)))