test: Add simple tests for navigating notmuch-hello and notmuch-search views

[notmuch] / test / test-lib.sh

diff --git a/test/test-lib.sh b/test/test-lib.sh
index 6c9c93eb8a63c425f5f6da28df4048a63fdfb784..d9bb2541bdc907c877162628befc51de1ccc091b 100644 (file)
--- a/test/test-lib.sh
+++ b/test/test-lib.sh
@@ -735,7 +735,11 @@ test_done () {
 
 test_emacs () {
     emacs_code="$1"
-    emacs --batch --no-site-file --directory ../../emacs --load notmuch.el --eval "(progn (set-frame-width (window-frame (get-buffer-window)) 80) ${emacs_code})"
+    emacs --batch --no-site-file --directory ../../emacs --load notmuch.el \
+       --eval "(defun notmuch-test-wait ()
+                       (while (get-buffer-process (current-buffer))
+                               (sleep-for 0.1)))" \
+       --eval "(progn (set-frame-width (window-frame (get-buffer-window)) 80) ${emacs_code})"
 }