projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
message
[sbcl.git]
/
contrib
/
sb-md5
/
md5-tests.lisp
diff --git
a/contrib/sb-md5/md5-tests.lisp
b/contrib/sb-md5/md5-tests.lisp
index
a14a8c5
..
3e3afe8
100644
(file)
--- a/
contrib/sb-md5/md5-tests.lisp
+++ b/
contrib/sb-md5/md5-tests.lisp
@@
-11,7
+11,7
@@
`(deftest ,(intern (format nil "SB-MD5.RFC1321.~A" i))
(string= (format nil
"~(~{~2,'0X~}~)"
`(deftest ,(intern (format nil "SB-MD5.RFC1321.~A" i))
(string= (format nil
"~(~{~2,'0X~}~)"
- (coerce (md5sum-sequence ,string) 'list))
+ (coerce (md5sum-string ,string :external-format :ascii) 'list))
,expected-result)
t)))))
(define-rfc1321-tests
,expected-result)
t)))))
(define-rfc1321-tests
@@
-31,7
+31,8
@@
collect
`(deftest ,(intern (format nil "SB-MD5.OTHER.~A" i))
(string=
collect
`(deftest ,(intern (format nil "SB-MD5.OTHER.~A" i))
(string=
- (format nil "~(~{~2,'0X~}~)" (coerce (md5sum-sequence ,string) 'list))
+ (format nil "~(~{~2,'0X~}~)"
+ (coerce (md5sum-string ,string :external-format :ascii) 'list))
,expected-result)
t)))))
(define-other-tests
,expected-result)
t)))))
(define-other-tests