emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 0ad028c91f 1/2: ; Clean up recently added SVG test


From: Stefan Kangas
Subject: master 0ad028c91f 1/2: ; Clean up recently added SVG test
Date: Fri, 9 Sep 2022 08:25:08 -0400 (EDT)

branch: master
commit 0ad028c91febd0d1a6c8c47babf3dddbe06b68b4
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; Clean up recently added SVG test
    
    * test/manual/image-tests.el (image-tests-load-image/svg-invalid):
    Clean up.
---
 test/manual/image-tests.el | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/test/manual/image-tests.el b/test/manual/image-tests.el
index c726845bd3..9cb98252f6 100644
--- a/test/manual/image-tests.el
+++ b/test/manual/image-tests.el
@@ -80,14 +80,15 @@
 
 (ert-deftest image-tests-load-image/svg-invalid ()
   (with-temp-buffer
-    (pop-to-buffer (current-buffer))
-    (insert (propertize " "
-                        'display '(image :data
-                                         "invalid foo bar"
-                                         :type svg)))
-    (redisplay))
-  (with-current-buffer "*Messages*"
-    (should (string-search "XML parse error" (buffer-string)))))
+    (let ((messages-buffer-name (buffer-name (current-buffer))))
+      (with-temp-buffer
+        (pop-to-buffer (current-buffer))
+        (insert (propertize " "
+                            'display '(image :data
+                                             "invalid foo bar"
+                                             :type svg)))
+        (redisplay))
+      (should (string-search "XML parse error" (buffer-string))))))
 
 
 ;;;; image-test-size



reply via email to

[Prev in Thread] Current Thread [Next in Thread]