+;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
+;;;; *************************************************************************
+;;;; FILE IDENTIFICATION
+;;;;
+;;;; Name: test.lisp
+;;;; Purpose: Regression tests for cl-base64
+;;;; Programmer: Kevin M. Rosenberg
+;;;; Date Started: Jan 2003
+;;;;
+;;;; $Id: tests.lisp,v 1.1 2003/08/24 20:38:08 kevin Exp $
+;;;; *************************************************************************
+
+(in-package #:cl-user)
+(defpackage #:base64-test
+ (:use #:cl #:kmrcl #:base64)
+ (:export #:test-base64))
+(in-package #:base64-test)
+
+(defun test-base64 ()
+ (do* ((length 0 (+ 3 length))
+ (string (make-string length) (make-string length))
+ (usb8 (make-usb8-array length) (make-usb8-array length))
+ (integer (random (expt 10 length)) (random (expt 10 length))))
+ ((>= length 300))
+ (dotimes (i length)
+ (declare (fixnum i))
+ (let ((code (random 256)))
+ (setf (schar string i) (code-char code))
+ (setf (aref usb8 i) code)))
+
+ (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= string
+ (base64-string-to-string
+ (string-to-base64-string string :columns columns))))
+
+ ;; Test against AllegroCL built-in routines
+ #+allegro
+ (progn
+ (assert (= integer (excl:base64-string-to-integer
+ (integer-to-base64-string integer :columns columns))))
+ (assert (= integer (base64-string-to-integer
+ (excl:integer-to-base64-string integer))))
+ (assert (string= (string-to-base64-string string :columns columns)
+ (excl:usb8-array-to-base64-string usb8
+ (if (zerop columns)
+ nil
+ columns))))
+ (assert (string= string (base64-string-to-string
+ (excl:usb8-array-to-base64-string
+ usb8
+ (if (zerop columns)
+ nil
+ columns))))))))
+ (format t "~&All tests passed~%")
+ t)
+
+
+(defun time-routines ()
+ (let* ((str "abcdefghijklmnopqwertyu1234589jhwf2ff")
+ (usb8 (string-to-usb8-array str))
+ (int 12345678901234567890)
+ (n 50000))
+ (time-iterations n (integer-to-base64-string int))
+ #+allegro
+ (time-iterations n (excl:integer-to-base64-string int))
+ (time-iterations n (string-to-base64-string str))
+ #+allegro
+ (time-iterations n (excl:usb8-array-to-base64-string usb8))))
+
+;;(test-base64)