OSCL/PURI
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

r5329: Auto commit for Debian build

Browse Source
This commit is contained in:
Kevin M. Rosenberg
2003-07-18 23:33:53 +00:00
parent 583a97172b
commit bdc30e1c2c
2 changed files with 12 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
debian/changelog vendored
View 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 cl-puri (1.2.1-1) unstable; urgency=low
* Package name fixes, .asd files * Package name fixes, .asd files

13
tests.lisp
View File

@ -20,7 +20,7 @@
;; Original version from ACL 6.1: ;; Original version from ACL 6.1:
;; t-uri.cl,v 1.3.6.3.2.1 2001/08/09 17:42:43 layer ;; 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)) (defpackage #:puri-tests (:use #:puri #:cl #:util.test))
@ -28,7 +28,7 @@
(unintern-uri t) (unintern-uri t)
(defparameter *tests* (defmacro gen-test-forms ()
(let ((res '()) (let ((res '())
(base-uri "http://a/b/c/d;p?q")) (base-uri "http://a/b/c/d;p?q"))
@ -405,13 +405,12 @@
:condition-type 'parse-error) :condition-type 'parse-error)
res) res)
`(progn ,@(nreverse res))) `(progn ,@(nreverse res))))
)
(defun do-tests () (defun do-tests ()
(eval (let ((util.test:*break-on-test-failures* t))
`(with-tests (:name "puri") (with-tests (:name "puri")
,*tests*)) (gen-test-forms)))
t) t)