X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=xptestsuite.lisp;h=b2414b3e017f9398bf6fc2175c3111f7726d0564;hb=2babf5c99ffdecfb583759ed666753239650c9e4;hp=0ac9f4964ea047dd6326a826c30cc79eb1f7a6b0;hpb=811f8c443ebbc85bab095bfd75db974f6dd52ae8;p=xptest.git

diff --git a/xptestsuite.lisp b/xptestsuite.lisp
index 0ac9f49..b2414b3 100644
--- a/xptestsuite.lisp
+++ b/xptestsuite.lisp
@@ -7,7 +7,34 @@
 ;;;; 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.4 2003/04/23 22:24:27 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)
 
@@ -48,8 +75,8 @@ setup method did for this instance."
 (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))
 
@@ -243,7 +270,8 @@ or failed or errored out."
 	      (format stream "Errors:~%")
 	      (mapcar #'(lambda (fail) (format stream "    ~A" fail))
 		      (test-errors result))))))
-  (format stream "~%~%"))
+  ;(format stream "~%~%") ; debian bug #190398 
+  )
 
 (defmethod report-result ((results list) &key (stream t) (verbose nil))
   (dolist (foo results)