;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jan 2003
;;;;
-;;;; $Id: base64-tests.lisp,v 1.6 2003/04/15 16:02:21 kevin Exp $
+;;;; $Id: base64-tests.lisp,v 1.7 2003/04/15 16:12:01 kevin Exp $
;;;; *************************************************************************
(in-package :cl-user)
-(in-package #:base64)
+(defpackage #:base64-test
+ (:use #:cl #:kmrcl #:base64 #:util.test))
+
+(in-package #:base64-test)
(defun test-base64 ()
(setq *break-on-test-failures* t)
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Dec 2002
;;;;
-;;;; $Id: base64.asd,v 1.17 2003/04/15 16:09:50 kevin Exp $
+;;;; $Id: base64.asd,v 1.18 2003/04/15 16:12:01 kevin Exp $
;;;; *************************************************************************
(in-package :asdf)
))
(defmethod perform ((o test-op) (c (eql (find-system :base64))))
- (or (funcall (intern (symbol-name '#:test-base64) (find-package 'base64)))
+ (or (funcall (intern (symbol-name '#:test-base64) (find-package 'base64-test)))
(error "test-op failed")))