X-Git-Url: http://git.kpe.io/?p=puri.git;a=blobdiff_plain;f=puri.asd;fp=puri.asd;h=eda4fafce9b82883e321618bd6125175bfc70b88;hp=0e4ea9c52f9de44dd7f2b414e2629d4c5eea2800;hb=654461565dc29a7bbe6e1c478cab6231188b163b;hpb=ef5afb9e5286c8e952d4344f019c1a636a717b97

diff --git a/puri.asd b/puri.asd
index 0e4ea9c..eda4faf 100644
--- a/puri.asd
+++ b/puri.asd
@@ -6,28 +6,20 @@
 (defpackage #:puri-system (:use #:cl #:asdf))
 (in-package #:puri-system)
 
-
 (defsystem puri
   :name "cl-puri"
   :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
   :licence "GNU Lesser General Public License"
   :description "Portable Universal Resource Indentifier Library"
   :components
-  ((:file "src")))
-
-(defmethod perform ((o test-op) (c (eql (find-system 'puri))))
-  (oos 'load-op 'puri-tests)
-  (oos 'test-op 'puri-tests))
+  ((:file "src"))
+  :in-order-to ((test-op (test-op "puri/test"))))
 
-(defsystem puri-tests
-    :depends-on (:puri :ptester) 
+(defsystem puri/test
+    :depends-on (:ptester :puri)
     :components
-    ((:file "tests")))
-
-(defmethod perform ((o test-op) (c (eql (find-system 'puri-tests))))
-  (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))
+    ((:file "tests"))
+    :perform (test-op (o s)
+                      (or (funcall (intern (symbol-name '#:do-tests)
+		                           (find-package '#:puri/test)))
+                          (error "test-op failed"))))