-
- (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~%")
+
+ (do* ((columns 0 (+ columns 4)))
+ ((> columns length))
+ ;; Test against cl-base64 routines
+ (test integer (base64-string-to-integer
+ (integer-to-base64-string integer :columns columns)))
+ (test string (base64-string-to-string
+ (string-to-base64-string string :columns columns))
+ :test #'string=)
+
+ ;; 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=))))))