From 583a97172bb9211d20bc6f9d6266c3f6b37a304f Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 18 Jul 2003 23:11:37 +0000 Subject: [PATCH] r5328: Auto commit for Debian build --- puri.asd | 3 ++- tests.lisp | 12 ++++++++---- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/puri.asd b/puri.asd index 193f98d..07253f2 100644 --- a/puri.asd +++ b/puri.asd @@ -25,5 +25,6 @@ ((:file "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"))) diff --git a/tests.lisp b/tests.lisp index 0a4f2d9..8696767 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.3 2003/07/18 23:11:37 kevin Exp $ (defpackage #:puri-tests (:use #:puri #:cl #:util.test)) @@ -408,6 +408,10 @@ `(progn ,@(nreverse res))) ) -(eval - `(with-tests (:name "puri") - ,@*tests*)) +(defun do-tests () + (eval + `(with-tests (:name "puri") + ,*tests*)) + t) + + -- 1.7.10.4