+ (operate 'load-op 'base64-tests)
+ (operate 'test-op 'base64-tests :force t))
+
+(defsystem base64-tests
+ :depends-on (base64)
+ :components
+ ((:file "tests")))
+
+(defmethod perform ((o test-op) (c (eql (find-system 'base64-tests))))
+ (operate 'load-op 'base64-tests)