;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: assert.lisp,v 1.6 2003/08/05 22:56:25 kevin Exp $
+;;;; ID: $Id: assert.lisp,v 1.7 2003/08/06 14:15:32 kevin Exp $
;;;; Purpose: Assert functions for XLUnit
;;;;
;;;; *************************************************************************
(defmacro assert-false (v &optional message)
`(when ,v
(failure-message ,message "Assert false: ~S" ',v)))
+
+(defmacro assert-condition (condition v &optional message)
+ )
+
+(defmacro assert-not-condition (condition v &optional message)
+ )
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
-;;;; ID: $Id: package.lisp,v 1.9 2003/08/05 22:56:25 kevin Exp $
+;;;; ID: $Id: package.lisp,v 1.10 2003/08/06 14:15:32 kevin Exp $
;;;; Purpose: Package definition for XLUnit
;;;;
-;;;; $Id: package.lisp,v 1.9 2003/08/05 22:56:25 kevin Exp $
+;;;; $Id: package.lisp,v 1.10 2003/08/06 14:15:32 kevin Exp $
;;;; *************************************************************************
(in-package #:cl-user)
#:assert-equal
#:assert-eql
#:assert-not-eql
+ #:assert-condition
+ #:assert-not-condition
#:test-failure
#:failure