From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 17 Jul 2025 16:34:50 +0000 (+0300)
Subject: ; * test/lisp/net/shr-tests.el (shr-test/zoom-image): Fix <img> (bug#79041).
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c6cb4c2468972eaa7abbccf8f33ff302f21b97d;p=emacs.git

; * test/lisp/net/shr-tests.el (shr-test/zoom-image): Fix <img> (bug#79041).

(cherry picked from commit 462a541db904405ede8446c48ba0c71ad41c544d)
---

diff --git a/test/lisp/net/shr-tests.el b/test/lisp/net/shr-tests.el
index 363cd144e8f..a931d07a163 100644
--- a/test/lisp/net/shr-tests.el
+++ b/test/lisp/net/shr-tests.el
@@ -145,8 +145,8 @@ settings, then once more for each (OPTION . VALUE) pair.")
     (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 "<img src=\"%s\" %s" image-url attrs)))
+          (let ((attrs (if alt (format " alt=\"%s\">" alt) ">")))
+            (insert (format "<img src=\"%s\"%s" image-url attrs)))
           (cl-letf* (;; Pretend we're a graphical display.
                      ((symbol-function 'display-graphic-p) #'always)
                      ((symbol-function 'url-queue-retrieve)