; Fix two wallpaper tests

* test/lisp/image/wallpaper-tests.el
(wallpaper--find-command/return-string)
(wallpaper--find-command-args/return-list): Fix tests.
This commit is contained in:
Stefan Kangas 2022-10-01 22:38:58 +02:00
parent 179a1d5298
commit 8a2bc86039

View file

@ -24,12 +24,12 @@
(require 'wallpaper)
(ert-deftest wallpaper--find-command/return-string ()
(should (and (wallpaper--find-command)
(stringp (wallpaper--find-command)))))
(should (or (not (wallpaper--find-command))
(stringp (wallpaper--find-command)))))
(ert-deftest wallpaper--find-command-args/return-list ()
(should (and (wallpaper--find-command-args)
(listp (wallpaper--find-command-args)))))
(should (or (not (wallpaper--find-command-args))
(listp (wallpaper--find-command-args)))))
(ert-deftest wallpaper--image-file-regexp/return-string ()
(should (stringp (wallpaper--image-file-regexp))))