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

r5328: Auto commit for Debian build

Browse Source
This commit is contained in:
Kevin M. Rosenberg
2003-07-18 23:11:37 +00:00
parent 55f0e1f9f5
commit 583a97172b
2 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
puri.asd
View File

@ -25,5 +25,6 @@
((:file "tests"))) ((:file "tests")))
(defmethod perform ((o test-op) (c (eql (find-system 'puri-tests)))) (defmethod perform ((o test-op) (c (eql (find-system 'puri-tests))))
(or (funcall (intern (symbol-name '#:do-tests) (find-package :rt))) (or (funcall (intern (symbol-name '#:do-tests)
(find-package :puri-tests)))
(error "test-op failed"))) (error "test-op failed")))

12
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.2 2003/07/18 23:06:11 kevin Exp $ ;; $Id: tests.lisp,v 1.3 2003/07/18 23:11:37 kevin Exp $
(defpackage #:puri-tests (:use #:puri #:cl #:util.test)) (defpackage #:puri-tests (:use #:puri #:cl #:util.test))
@ -408,6 +408,10 @@
`(progn ,@(nreverse res))) `(progn ,@(nreverse res)))
) )
(eval (defun do-tests ()
`(with-tests (:name "puri") (eval
,@*tests*)) `(with-tests (:name "puri")
,*tests*))
t)