;;;; Author: Craig Brozefsky <craig@onshore.com>
;;;; Put in public domain by onShore, Inc
;;;;
-;;;; $Id: xptestsuite.lisp,v 1.1 2002/10/22 18:46:20 kevin Exp $
+;;;; $Id: xptestsuite.lisp,v 1.3 2003/04/19 16:16:16 kevin Exp $
+
+(in-package #:cl-user)
+
+(defpackage #:xp-test-framework
+ (:use #:common-lisp)
+ (:nicknames #:xp-test #:xptest)
+ (:export
+ ;;; Framework classes
+ #:setup
+ #:teardown
+ #:perform-test
+ #:test-failure
+ #:failure
+ #:run-test
+ #:def-test-fixture
+ #:make-test-case
+ #:make-test-suite
+ #:setup-testsuite-named
+ #:teardown-testsuite-named
+ #:add-test
+ #:test-named
+ #:remove-test
+ #:tests
+ #:test-result
+ #:report-result
+ )
+ (:documentation "This is the XP TestSuite Framework."))
(in-package :xp-test)
(defun failure (format-str &rest args)
"Signal a test failure and exit the test."
(signal 'test-failure
- #+(or cmu allegro) :format-control
- #-(or cmu allegro) :format-string
+ #+(or cmu allegro openmcl) :format-control
+ #-(or cmu allegro openmcl) :format-string
format-str
:format-arguments args))