From b8f49ceae4a3b513de21f385bb784729d2ddff3f Mon Sep 17 00:00:00 2001
From: Richard M Kreuter <kreuter@users.sourceforge.net>
Date: Wed, 23 Jan 2008 14:42:36 +0000
Subject: [PATCH] 1.0.13.53: Minor changes to SB-COVER, SB-MD5 tests for Win32

* Have SB-COVER use md5sums of filenames for URLs.

* Have the test of SB-MD5:MD5SUM-FILE take the md5sum of a fresh empty
  file, rather /dev/null or NUL, so that the test is independent of
  any other limitations in CL:OPEN on Windows.
---
 contrib/sb-cover/cover.lisp   |  5 ++++-
 contrib/sb-cover/sb-cover.asd |  1 +
 contrib/sb-md5/md5-tests.lisp | 18 +++++++++++++++---
 version.lisp-expr             |  2 +-
 4 files changed, 21 insertions(+), 5 deletions(-)

diff --git a/contrib/sb-cover/cover.lisp b/contrib/sb-cover/cover.lisp
index d697492a6..c273b8609 100644
--- a/contrib/sb-cover/cover.lisp
+++ b/contrib/sb-cover/cover.lisp
@@ -96,7 +96,10 @@ latter mode is generally easier to read."
     (ensure-directories-exist *default-pathname-defaults*)
     (maphash (lambda (k v)
                (declare (ignore v))
-               (let* ((n (substitute #\_ #\. (substitute #\_ #\/ k)))
+               (let* ((n (format nil "~(~{~2,'0X~}~)"
+                                (coerce (sb-md5:md5sum-string
+                                         (sb-ext:native-namestring k))
+                                        'list)))
                       (path (make-pathname :name n :type "html")))
                  (when (probe-file k)
                    (with-open-file (stream path
diff --git a/contrib/sb-cover/sb-cover.asd b/contrib/sb-cover/sb-cover.asd
index 93d88283d..b8009a6f4 100644
--- a/contrib/sb-cover/sb-cover.asd
+++ b/contrib/sb-cover/sb-cover.asd
@@ -3,6 +3,7 @@
 (defsystem sb-cover
     #+sb-building-contrib :pathname
     #+sb-building-contrib "SYS:CONTRIB;SB-COVER;"
+    :depends-on (sb-md5)
     :components ((:file "cover")))
 
 (defsystem sb-cover-tests
diff --git a/contrib/sb-md5/md5-tests.lisp b/contrib/sb-md5/md5-tests.lisp
index 210d30deb..ea9e4c82b 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")
diff --git a/version.lisp-expr b/version.lisp-expr
index ee15c9ba1..c508d2e22 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.13.52"
+"1.0.13.53"
-- 
2.11.4.GIT