Skip to content
Snippets Groups Projects
Commit 639eae03 authored by Kevin M. Rosenberg's avatar Kevin M. Rosenberg
Browse files

Update testing to use newer ASDF test-op features

parent fc62a534
No related branches found
No related tags found
No related merge requests found
......@@ -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"))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment