Skip to content
Snippets Groups Projects
Commit 748abc42 authored by Kevin M. Rosenberg's avatar Kevin M. Rosenberg
Browse files

r4499: Auto commit for Debian build

parent ea86d529
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;;; Programmer: Kevin M. Rosenberg ;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Jan 2003 ;;;; 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.12 2003/04/15 16:24:37 kevin Exp $
;;;; ************************************************************************* ;;;; *************************************************************************
(in-package :cl-user) (in-package :cl-user)
...@@ -32,9 +32,11 @@ ...@@ -32,9 +32,11 @@
(do* ((columns 0 (+ columns 4))) (do* ((columns 0 (+ columns 4)))
((> columns length)) ((> columns length))
;; Test against cl-base64 routines ;; Test against cl-base64 routines
(assert (= integer (base64-string-to-integer (assert (= integer
(integer-to-base64-string integer :columns columns)))) (base64-string-to-integer
(assert (string= (base64-string-to-string (integer-to-base64-string integer :columns columns))))
(assert (string= string
(base64-string-to-string
(string-to-base64-string string :columns columns)))) (string-to-base64-string string :columns columns))))
;; Test against AllegroCL built-in routines ;; Test against AllegroCL built-in routines
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment