projects
/
puri.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r5332: Auto commit for Debian build
[puri.git]
/
tests.lisp
diff --git
a/tests.lisp
b/tests.lisp
index 0a4f2d9ccd5d309459fa0070603532f6bd7509f5..eb16a1b11a74aaa9209e0d24a8f52242f097cd0a 100644
(file)
--- 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
;;
;; 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))
(defpackage #:puri-tests (:use #:puri #:cl #:util.test))
@@
-28,7
+28,7
@@
(unintern-uri t)
(unintern-uri t)
-(def
parameter *tests*
+(def
macro gen-test-forms ()
(let ((res '())
(base-uri "http://a/b/c/d;p?q"))
(let ((res '())
(base-uri "http://a/b/c/d;p?q"))
@@
-405,9
+405,12
@@
:condition-type 'parse-error)
res)
: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*))