X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-md5%2Fmd5-tests.lisp;fp=contrib%2Fsb-md5%2Fmd5-tests.lisp;h=82183b34d7ffdbfc032eec1f6b24960c654aba24;hb=e8bb87b256ccd00a7985ff978bbc1a495890c60c;hp=3e3afe806f5a183a163a048e54392ab7fad82736;hpb=637495a7d041887ffe10f6b740574df65ae88c98;p=sbcl.git

diff --git a/contrib/sb-md5/md5-tests.lisp b/contrib/sb-md5/md5-tests.lisp
index 3e3afe8..82183b3 100644
--- a/contrib/sb-md5/md5-tests.lisp
+++ b/contrib/sb-md5/md5-tests.lisp
@@ -113,4 +113,9 @@
 (deftest sb-md5.md5sum-file.0
     (string= (format nil "~(~{~2,'0X~}~)" (coerce (md5sum-file "/dev/null") 'list))
 	     "d41d8cd98f00b204e9800998ecf8427e")
-  t)
\ No newline at end of file
+  t)
+
+(deftest sb-md5.md5sum-sequence.error.0
+    (handler-case (md5sum-sequence "foo")
+      (type-error () :good))
+  :good)