; 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:
parent
179a1d5298
commit
8a2bc86039
1 changed files with 4 additions and 4 deletions
|
@ -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))))
|
||||
|
|
Loading…
Add table
Reference in a new issue