projects
/
cl-base64.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r4492: Auto commit for Debian build
[cl-base64.git]
/
base64-tests.lisp
diff --git
a/base64-tests.lisp
b/base64-tests.lisp
index f12a8ff8e9e58768e1135a6bc164c02406a00823..7b8a14a0924db1f7d59f4e0312f4120125f80fe5 100644
(file)
--- a/
base64-tests.lisp
+++ b/
base64-tests.lisp
@@
-7,15
+7,12
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jan 2003
;;;;
;;;; 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)
;;;; *************************************************************************
(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)
(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))))
(time-iterations n (string-to-base64-string str))
(time-iterations n (excl:usb8-array-to-base64-string usb8))))
-
+(export 'test-base64)
;;(test-base64)
;;(test-base64)