procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix wallpaper-tests on XFCE

Browse source 
* test/lisp/image/wallpaper-tests.el
(wallpaper--find-command-args/return-list): Account for
command-args being a function.  (Bug#62673)
This commit is contained in:
Eli Zaretskii 2023-04-11 17:47:48 +03:00
parent 7055fd8e43
commit 372e024acc
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test/lisp/image/wallpaper-tests.el
View file

@ -129,12 +129,16 @@
(should (equal called fil-jpg))))) (should (equal called fil-jpg)))))
(ert-deftest wallpaper--find-command/return-string () (ert-deftest wallpaper--find-command/return-string ()
(should (or (not (wallpaper--find-command)) (let ((cmd (wallpaper--find-command)))
(stringp (wallpaper--find-command))))) (should (or (not cmd)
(stringp cmd)))))
(ert-deftest wallpaper--find-command-args/return-list () (ert-deftest wallpaper--find-command-args/return-list ()
(should (or (not (wallpaper--find-command-args)) (let ((cmdargs (wallpaper--find-command-args)))
(listp (wallpaper--find-command-args))))) (if (functionp cmdargs)
(setq cmdargs (funcall cmdargs)))
(should (or (not cmdargs)
(listp cmdargs)))))
(ert-deftest wallpaper--image-file-regexp/return-string () (ert-deftest wallpaper--image-file-regexp/return-string ()
(should (stringp (wallpaper--image-file-regexp)))) (should (stringp (wallpaper--image-file-regexp))))