diff options
author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-09 10:31:25 +0200 |
---|---|---|
committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-09 14:20:29 +0200 |
commit | 0ad028c91febd0d1a6c8c47babf3dddbe06b68b4 (patch) | |
tree | a3ed57377019031b39cef0acccf26745484bc74e | |
parent | 2d9674e865028357da69d92f18f18f0a3a8d65a0 (diff) | |
download | emacs-0ad028c91febd0d1a6c8c47babf3dddbe06b68b4.tar.gz emacs-0ad028c91febd0d1a6c8c47babf3dddbe06b68b4.tar.bz2 emacs-0ad028c91febd0d1a6c8c47babf3dddbe06b68b4.zip |
; Clean up recently added SVG test
* test/manual/image-tests.el (image-tests-load-image/svg-invalid):
Clean up.
-rw-r--r-- | test/manual/image-tests.el | 17 |
1 files 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 |