;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jan 2003
;;;;
-;;;; $Id: base64-tests.lisp,v 1.1 2003/04/15 15:34:43 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)
(with-tests (:name "cl-base64 tests")
(do* ((length 0 (+ 3 length))
(string (make-string length) (make-string length))
(if (zerop columns)
nil
columns)))
- :test #'string=))))))
+ :test #'string=)))))
+ t)
(defun time-routines ()
(time-iterations n (string-to-base64-string str))
(time-iterations n (excl:usb8-array-to-base64-string usb8))))
-
-;;#+run-test (test-base64)
+(export 'test-base64)
+;;(test-base64)