; Clean up recently added SVG test

* test/manual/image-tests.el (image-tests-load-image/svg-invalid):
Clean up.

diff --git a/test/manual/image-tests.el b/test/manual/image-tests.el
index c726845bd3bdc3a31a1fec4f7fdc04761b56da6b..9cb98252f6a1aa681598e5411436106c88853c76 100644 (file)
--- 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))))))
 
 \f
 ;;;; image-test-size