From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Tue, 25 Aug 2020 17:31:05 +0000 (-0600)
Subject: Update testing to use newer ASDF test-op features
X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=commitdiff_plain;h=639eae034168813cf2b981ef1f6efe373a4adf6b;hp=fc62a5342445d4ec1dd44e95f7dc513473a8c89a

Update testing to use newer ASDF test-op features
---

diff --git a/cl-base64.asd b/cl-base64.asd
index 252389d..1fcb683 100644
--- a/cl-base64.asd
+++ b/cl-base64.asd
@@ -6,8 +6,6 @@
 ;;;; Purpose:       ASDF definition file for Cl-Base64
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Dec 2002
-;;;;
-;;;; $Id$
 ;;;; *************************************************************************
 
 (in-package #:cl-user)
@@ -26,19 +24,14 @@
   ((:file "package")
    (:file "encode" :depends-on ("package"))
    (:file "decode" :depends-on ("package"))
-   ))
-
-(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))
+   )
+  :in-order-to ((test-op (test-op "cl-base64/tests"))))
 
-(defsystem cl-base64-tests
+(defsystem cl-base64/tests
     :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-tests)))
+                          (error "test-op failed"))))