From 0ad028c91febd0d1a6c8c47babf3dddbe06b68b4 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 9 Sep 2022 10:31:25 +0200 Subject: [PATCH] ; 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 c726845bd3b..9cb98252f6a 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 -- 2.39.2