aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/lisp/net/shr-tests.el4
1 files changed, 2 insertions, 2 deletions
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.")
145 (dolist (alt '(nil "" "nothing to see here")) 145 (dolist (alt '(nil "" "nothing to see here"))
146 (with-temp-buffer 146 (with-temp-buffer
147 (ert-info ((format "image with alt=%S" alt)) 147 (ert-info ((format "image with alt=%S" alt))
148 (let ((attrs (if alt (format " alt=\"%s\"" alt) ""))) 148 (let ((attrs (if alt (format " alt=\"%s\">" alt) ">")))
149 (insert (format "<img src=\"%s\" %s" image-url attrs))) 149 (insert (format "<img src=\"%s\"%s" image-url attrs)))
150 (cl-letf* (;; Pretend we're a graphical display. 150 (cl-letf* (;; Pretend we're a graphical display.
151 ((symbol-function 'display-graphic-p) #'always) 151 ((symbol-function 'display-graphic-p) #'always)
152 ((symbol-function 'url-queue-retrieve) 152 ((symbol-function 'url-queue-retrieve)