r4495: Auto commit for Debian build
authorKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 15 Apr 2003 16:13:55 +0000 (16:13 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Tue, 15 Apr 2003 16:13:55 +0000 (16:13 +0000)
base64-tests.lisp

index eb37fec..c388e3e 100644 (file)
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Jan 2003
 ;;;;
-;;;; $Id: base64-tests.lisp,v 1.7 2003/04/15 16:12:01 kevin Exp $
+;;;; $Id: base64-tests.lisp,v 1.8 2003/04/15 16:13:55 kevin Exp $
 ;;;; *************************************************************************
 
 (in-package :cl-user)
       ;; Test against AllegroCL built-in routines
       #+allegro
       (progn
-      (test integer (excl:base64-string-to-integer
-                              (integer-to-base64-string integer :columns columns)))
-      (test integer (base64-string-to-integer
-                              (excl:integer-to-base64-string integer)))
-      (test (string-to-base64-string string :columns columns)
-           (excl:usb8-array-to-base64-string usb8
-                                             (if (zerop columns)
-                                                 nil
-                                                 columns))
-           :test #'string=)
-      (test string (base64-string-to-string
-                   (excl:usb8-array-to-base64-string
-                    usb8
-                    (if (zerop columns)
-                        nil
-                        columns)))
-           :test #'string=)))))
+       (test integer (excl:base64-string-to-integer
+                      (integer-to-base64-string integer :columns columns)))
+       (test integer (base64-string-to-integer
+                      (excl:integer-to-base64-string integer)))
+       (test (string-to-base64-string string :columns columns)
+             (excl:usb8-array-to-base64-string usb8
+                                               (if (zerop columns)
+                                                   nil
+                                                   columns))
+             :test #'string=)
+       (test string (base64-string-to-string
+                     (excl:usb8-array-to-base64-string
+                      usb8
+                      (if (zerop columns)
+                          nil
+                          columns)))
+             :test #'string=)))))
   t)
 
 
         (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))))
 
 (export 'test-base64)