X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests.lisp;h=eb16a1b11a74aaa9209e0d24a8f52242f097cd0a;hb=bdc30e1c2c227e480722a8a0bd13ab3b05ed7973;hp=0a4f2d9ccd5d309459fa0070603532f6bd7509f5;hpb=55f0e1f9f5e0d485daa152c164d38d8f2cceb45e;p=puri.git

diff --git a/tests.lisp b/tests.lisp
index 0a4f2d9..eb16a1b 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -20,7 +20,7 @@
 ;; Original version from ACL 6.1:
 ;; t-uri.cl,v 1.3.6.3.2.1 2001/08/09 17:42:43 layer
 ;;
-;; $Id: tests.lisp,v 1.2 2003/07/18 23:06:11 kevin Exp $
+;; $Id: tests.lisp,v 1.4 2003/07/18 23:33:53 kevin Exp $
 
 
 (defpackage #:puri-tests (:use #:puri #:cl #:util.test))
@@ -28,7 +28,7 @@
 
 (unintern-uri t)
 
-(defparameter *tests*
+(defmacro gen-test-forms ()
   (let ((res '())
 	(base-uri "http://a/b/c/d;p?q"))
 
@@ -405,9 +405,12 @@
        :condition-type 'parse-error)
      res)
     
-    `(progn ,@(nreverse res)))
-  )
+    `(progn ,@(nreverse res))))
+
+(defun do-tests ()
+  (let ((util.test:*break-on-test-failures* t))
+    (with-tests (:name "puri")
+      (gen-test-forms)))
+  t)
+
 
-(eval
- `(with-tests (:name "puri")
-   ,@*tests*))