0.9.11.7

[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 5c0aff6..210d30d 100644 (file)
--- a/contrib/sb-md5/md5-tests.lisp
+++ b/contrib/sb-md5/md5-tests.lisp
@@ -34,7 +34,7 @@
                 t) into test-forms
        finally (return `(progn ,@test-forms))))
 ) ; EVAL-WHEN
-    
+
 (macrolet
     ((define-rfc1321-tests (test-list)
          `(progn
@@ -132,7 +132,7 @@
        ("aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa" . "ab75504250558b788f99d1ebd219abf2"))))
 
 (deftest sb-md5.md5sum-file.0
-    (string= (format nil "~(~{~2,'0X~}~)" (coerce (md5sum-file "/dev/null") 'list))
+    (string= (format nil "~(~{~2,'0X~}~)" (coerce (md5sum-file #-win32 "/dev/null" #+win32 "nul") 'list))
              "d41d8cd98f00b204e9800998ecf8427e")
   t)