projects
/
xlunit.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5453: *** empty log message ***
[xlunit.git]
/
assert.lisp
diff --git
a/assert.lisp
b/assert.lisp
index 8307e2fbfd82cb68ab5824e4f81cdaffd7a3fcd7..d46eaeb530e469e85e3f70dfff4afde0a947ac64 100644
(file)
--- a/
assert.lisp
+++ b/
assert.lisp
@@
-2,42
+2,42
@@
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;;
Name: assert.lisp
+;;;;
ID: $Id: assert.lisp,v 1.5 2003/08/04 16:42:27 kevin Exp $
;;;; Purpose: Assert functions for XLUnit
;;;; Purpose: Assert functions for XLUnit
-;;;; Author: Kevin Rosenberg
;;;;
;;;;
-;;;; $Id: assert.lisp,v 1.1 2003/08/04 12:01:54 kevin Exp $
;;;; *************************************************************************
(in-package #:xlunit)
;;;; *************************************************************************
(in-package #:xlunit)
-;;; Assertions
-
-(define-condition test-failure-condition (simple-condition)
- ((msg :initform nil :initarg :msg :accessor msg))
+(define-condition assertion-failed (simple-condition)
+ ((message :initform nil :initarg :message :accessor message))
(:documentation "Base class for all test failures."))
(:documentation "Base class for all test failures."))
-(defun failure
(
format-str &rest args)
+(defun failure
-message (message &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
+ :message message
: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-message nil format-str args
))
-(defun assert-equal (v1 v2 &optional m
sg
)
+(defun assert-equal (v1 v2 &optional m
essage
)
(unless (equal v1 v2)
(unless (equal v1 v2)
- (failure
"Test equal: ~s ~s
" v1 v2)))
+ (failure
-message message "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 message
)
+ (unless
(eql v1 v2)
+ (failure
-message message "Test eql: ~S ~S" v1 v2
)))
-(def
un assert-false (v &optional msg
)
-
(when
v
- (failure
"Test false ~A" (if msg msg "")
)))
+(def
macro assert-true (v &optional message
)
+
`(unless ,
v
+ (failure
-message message "Not true: ~S" ',v
)))
+(defmacro assert-false (v &optional message)
+ `(when ,v
+ (failure-message message "Not false: ~S" ',v)))