Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Clean up recently added SVG test

Browse source 
* test/manual/image-tests.el (image-tests-load-image/svg-invalid):
Clean up.
This commit is contained in:
Stefan Kangas 2022-09-09 10:31:25 +02:00
parent 2d9674e865
commit 0ad028c91f
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
test/manual/image-tests.el
View file

@ -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