; Fix two wallpaper tests

* test/lisp/image/wallpaper-tests.el
(wallpaper--find-command/return-string)
(wallpaper--find-command-args/return-list): Fix tests.

diff --git a/test/lisp/image/wallpaper-tests.el b/test/lisp/image/wallpaper-tests.el
index c3feab0e20653d31a4407c6a5cf60dbbe43d02ca..52011fe797340f947f7fa068c9f0734ae36d0b6b 100644 (file)
--- a/test/lisp/image/wallpaper-tests.el
+++ b/test/lisp/image/wallpaper-tests.el
@@ -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))))