;;;; 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.7 2003/04/15 16:12:01 kevin Exp $
;;;; *************************************************************************
(in-package :cl-user)
(defpackage #:base64-test
- (:use #:cl #:kmrcl #:base64 #:util.test))
+ (:use #:cl #:kmrcl #:base64 #:util.test))
(in-package #:base64-test)
(time-iterations n (string-to-base64-string str))
(time-iterations n (excl:usb8-array-to-base64-string usb8))))
-
+(export 'test-base64)
;;(test-base64)