X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=cl-base64.asd;h=59a3e6b5338490cc8a501e2fc240d1029dc87773;hb=ecff5c5549684a5636a0436961b879177dc1039f;hp=219ddd52ecd2d8359a19e4478f3a5f19078a96f5;hpb=8cf30dbe0a946abe7872251eb6bbdfc2850bc4d4;p=cl-base64.git

diff --git a/cl-base64.asd b/cl-base64.asd
index 219ddd5..59a3e6b 100644
--- a/cl-base64.asd
+++ b/cl-base64.asd
@@ -7,7 +7,6 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
 ;;;;
-;;;; $Id$
 ;;;; *************************************************************************
 
 (in-package #:cl-user)
@@ -18,31 +17,21 @@
 (defsystem cl-base64
   :name "cl-base64"
   :author "Kevin M. Rosenberg based on initial code by Juri Pakaste"
-  :version "3.1"
+  :version "3.4"
   :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
   :licence "BSD-style"
   :description "Base64 encoding and decoding with URI support."
-  
-  ;; depends-on only needed for test-op
-  :depends-on (:kmrcl) 
-  
   :components
   ((:file "package")
    (:file "encode" :depends-on ("package"))
-   (:file "decode" :depends-on ("package"))
-   ))
+   (:file "decode" :depends-on ("package")))
+  :in-order-to ((test-op (test-op "cl-base64/test"))))
 
-(defmethod perform ((o test-op) (c (eql (find-system 'cl-base64))))
-  (operate 'load-op 'cl-base64-tests)
-  (operate 'test-op 'cl-base64-tests :force t))
-
-(defsystem cl-base64-tests
-    :depends-on (cl-base64 ptester)
+(defsystem cl-base64/test
+    :depends-on (cl-base64 ptester kmrcl)
     :components
-    ((:file "tests")))
-
-(defmethod perform ((o test-op) (c (eql (find-system 'cl-base64-tests))))
-  (operate 'load-op 'cl-base64-tests)
-  (or (funcall (intern (symbol-name '#:do-tests)
-		       (find-package '#:cl-base64-tests)))
-      (error "test-op failed")))
+    ((:file "tests"))
+    :perform (test-op (o s)
+                      (or (funcall (intern (symbol-name '#:do-tests)
+                                           (find-package '#:cl-base64/test)))
+                          (error "test-op failed"))))