r10883: update policy

[puri.git] / puri.asd

diff --git a/puri.asd b/puri.asd
index 193f98db936a5ed6a78a171ec42b8645fa74c329..0e4ea9c52f9de44dd7f2b414e2629d4c5eea2800 100644 (file)
--- a/puri.asd
+++ b/puri.asd
@@ -20,10 +20,14 @@
   (oos 'test-op 'puri-tests))
 
 (defsystem puri-tests
-    :depends-on (:puri :tester) 
+    :depends-on (:puri :ptester) 
     :components
     ((: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")))
+
+(defmethod operation-done-p ((o test-op) (c (eql (find-system 'puri-tests))))
+  (values nil))