From: Stefan Kangas <stefankangas@gmail.com>
Date: Sat, 1 Oct 2022 20:38:58 +0000 (+0200)
Subject: ; Fix two wallpaper tests
X-Git-Tag: emacs-29.0.90~1856^2~89
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a2bc8603996db24f206fc0c933536c7695a537a;p=emacs.git

; 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 c3feab0e206..52011fe7973 100644
--- 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))))