X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-md5%2Fmd5-tests.lisp;h=ea9e4c82bc4be9e75ef94405dd0a817e643769ea;hb=17b58770189ea2427f7fc13e76a73ff543d58b03;hp=210d30deb24a516e1600c191404c7fed57a99eac;hpb=596ede16ae71b6a59654cc9a03bf6c9b9c85f0a9;p=sbcl.git

diff --git a/contrib/sb-md5/md5-tests.lisp b/contrib/sb-md5/md5-tests.lisp
index 210d30d..ea9e4c8 100644
--- a/contrib/sb-md5/md5-tests.lisp
+++ b/contrib/sb-md5/md5-tests.lisp
@@ -132,9 +132,21 @@
        ("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" . "ab75504250558b788f99d1ebd219abf2"))))
 
 (deftest sb-md5.md5sum-file.0
-    (string= (format nil "~(~{~2,'0X~}~)" (coerce (md5sum-file #-win32 "/dev/null" #+win32 "nul") 'list))
-             "d41d8cd98f00b204e9800998ecf8427e")
-  t)
+    (let ((file
+           (loop with ret
+                 for filename = (format nil "md5-test-~6,'0D" (random 100000))
+                 do (with-open-file (stream filename :direction :output
+                                            :if-exists nil
+                                            :if-does-not-exist :create)
+                      (when stream
+                        (setf ret stream)))
+                 when ret return ret)))
+      (unwind-protect
+          (string= (format nil "~(~{~2,'0X~}~)"
+                           (coerce (md5sum-file file) 'list))
+                   "d41d8cd98f00b204e9800998ecf8427e")
+        (delete-file file)))
+      t)
 
 (deftest sb-md5.md5sum-sequence.error.0
     (handler-case (md5sum-sequence "foo")