test: Add tests for emacs notmuch-search and notmuch-show functions.

[notmuch] / test / test-lib.sh

diff --git a/test/test-lib.sh b/test/test-lib.sh
index 5f7fa14172efc7a01d5c337540f9e771f84811f9..f67fbd1b7c7ebb9e18b99172961363617085d893 100644 (file)
--- a/test/test-lib.sh
+++ b/test/test-lib.sh
@@ -377,7 +377,7 @@ add_email_corpus ()
        cp -a ../corpus.mail ${MAIL_DIR}
     else
        cp -a ../corpus ${MAIL_DIR}
-       notmuch new
+       notmuch new >/dev/null
        cp -a ${MAIL_DIR} ../corpus.mail
     fi
 }
@@ -715,6 +715,12 @@ test_done () {
        fi
 }
 
+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})"
+}
+
+
 find_notmuch_path ()
 {
     dir="$1"