r5329: Auto commit for Debian build
authorKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 18 Jul 2003 23:33:53 +0000 (23:33 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 18 Jul 2003 23:33:53 +0000 (23:33 +0000)
debian/changelog
tests.lisp

index 9591700..3527958 100644 (file)
@@ -1,3 +1,9 @@
+cl-puri (1.2.2-1) unstable; urgency=low
+
+  * Improve tests.lisp
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Fri, 18 Jul 2003 17:32:11 -0600
+
 cl-puri (1.2.1-1) unstable; urgency=low
 
   * Package name fixes, .asd files
index 8696767..eb16a1b 100644 (file)
@@ -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.3 2003/07/18 23:11:37 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"))
 
        :condition-type 'parse-error)
      res)
     
-    `(progn ,@(nreverse res)))
-  )
+    `(progn ,@(nreverse res))))
 
 (defun do-tests ()
-  (eval
-   `(with-tests (:name "puri")
-     ,*tests*))
+  (let ((util.test:*break-on-test-failures* t))
+    (with-tests (:name "puri")
+      (gen-test-forms)))
   t)