;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jan 2003
;;;;
-;;;; $Id: base64-tests.lisp,v 1.11 2003/04/15 16:22:45 kevin Exp $
+;;;; $Id: base64-tests.lisp,v 1.13 2003/05/06 16:19:51 kevin Exp $
;;;; *************************************************************************
(in-package :cl-user)
-(defpackage #:base64-test
- (:use #:cl #:kmrcl #:base64))
-
+(defpackage #:base64-test (:use #:cl #:kmrcl #:base64))
(in-package #:base64-test)
(defun test-base64 ()
(do* ((columns 0 (+ columns 4)))
((> columns length))
;; Test against cl-base64 routines
- (assert (= integer (base64-string-to-integer
- (integer-to-base64-string integer :columns columns))))
- (assert (string= (base64-string-to-string
+ (assert (= integer
+ (base64-string-to-integer
+ (integer-to-base64-string integer :columns columns))))
+ (assert (string= string
+ (base64-string-to-string
(string-to-base64-string string :columns columns))))
;; Test against AllegroCL built-in routines