From 50301f502c7e32efe34ca3db3bf0c1c64ccd5df8 Mon Sep 17 00:00:00 2001 From: Jim Porter Date: Fri, 28 Jun 2024 10:40:05 -0700 Subject: [PATCH] ; Fix SHR test on MS-Windows * test/lisp/net/shr-tests.el (shr-test/zoom-image): Ensure the image URL is properly formatted: it should always have 3 slashes after "file:". --- test/lisp/net/shr-tests.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el index 4864fc488e2..1f8dcd57cbe 100644 --- a/test/lisp/net/shr-tests.el +++ b/test/lisp/net/shr-tests.el @@ -136,13 +136,15 @@ shr-srcset (ert-deftest shr-test/zoom-image () "Test that `shr-zoom-image' properly replaces the original image." (skip-unless (bound-and-true-p image-types)) - (let ((image (expand-file-name "data/image/blank-100x200.png" - (getenv "EMACS_TEST_DIRECTORY")))) + (let* ((image (expand-file-name "data/image/blank-100x200.png" + (getenv "EMACS_TEST_DIRECTORY"))) + (image-url (concat "file://" (if (string-prefix-p "/" image) + image (concat "/" image))))) (dolist (alt '(nil "" "nothing to see here")) (with-temp-buffer (ert-info ((format "image with alt=%S" alt)) (let ((attrs (if alt (format " alt=\"%s\"" alt) ""))) - (insert (format "