-(defmethod ((o test-op) (c (eql (find-system :base64))))
- (or (load (compile-file "base64-tests.lisp"))
- (error "test-op failed")))
+(defmethod perform ((o test-op) (c (eql (find-system :base64))))
+ (or (funcall (intern (symbol-name #:test-base64) (find-package 'base64)))
+ (error "test-op failed")))