X-Git-Url: http://git.kpe.io/?p=cl-base64.git;a=blobdiff_plain;f=base64-tests.lisp;h=7b8a14a0924db1f7d59f4e0312f4120125f80fe5;hp=f12a8ff8e9e58768e1135a6bc164c02406a00823;hb=90fa8d68b0f3ab59ccba908ca084e4959e0a2cc7;hpb=28e856fea59489fd4ec5d08c073d0a643313e622 diff --git a/base64-tests.lisp b/base64-tests.lisp index f12a8ff..7b8a14a 100644 --- a/base64-tests.lisp +++ b/base64-tests.lisp @@ -7,15 +7,12 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Jan 2003 ;;;; -;;;; $Id: base64-tests.lisp,v 1.4 2003/04/15 15:53:38 kevin Exp $ +;;;; $Id: base64-tests.lisp,v 1.6 2003/04/15 16:02:21 kevin Exp $ ;;;; ************************************************************************* (in-package :cl-user) -(defpackage #:base64-test - (:use #:cl #:kmrcl #:base64 #:util.test)) - -(in-package #:base64-test) +(in-package #:base64) (defun test-base64 () (setq *break-on-test-failures* t) @@ -73,5 +70,5 @@ (time-iterations n (string-to-base64-string str)) (time-iterations n (excl:usb8-array-to-base64-string usb8)))) - +(export 'test-base64) ;;(test-base64)