From 639eae034168813cf2b981ef1f6efe373a4adf6b Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 25 Aug 2020 11:31:05 -0600 Subject: [PATCH] Update testing to use newer ASDF test-op features --- cl-base64.asd | 23 ++++++++--------------- 1 file changed, 8 insertions(+), 15 deletions(-) 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")))) -- 2.34.1