master a57a3746d8: ; * test/lisp/image/wallpaper-tests.el: Simplify last change.

[Stefan Kangas]

branch: master
commit a57a3746d8404abef82b6d0de670b2358ef01a24
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    ; * test/lisp/image/wallpaper-tests.el: Simplify last change.
---
 test/lisp/image/wallpaper-tests.el | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/test/lisp/image/wallpaper-tests.el 
b/test/lisp/image/wallpaper-tests.el
index ab980a11bb..a5d3343bd4 100644
--- a/test/lisp/image/wallpaper-tests.el
+++ b/test/lisp/image/wallpaper-tests.el
@@ -100,15 +100,11 @@
                  :init-action (lambda () (setq called t)))))
               (wallpaper-command (wallpaper--find-command))
               (wallpaper-command-args (wallpaper--find-command-args))
-              (start (time-convert nil 'integer))
-              (timeout 3) process)
+              process)
         (should (functionp (wallpaper-setter-init-action 
wallpaper--current-setter)))
         (setq process (wallpaper-set fil-jpg))
         ;; Wait for "touch" process to exit so temp file is removed.
-        (while (and (< (- (time-convert nil 'integer) start)
-                       timeout)
-                    (process-live-p process))
-          (sit-for 0.01))
+        (accept-process-output process 3)
         (should called)))))
 
 (ert-deftest wallpaper-set/calls-wallpaper-set-function ()