From 1375d71ff41de7c189f9c3ac4f72a8a617d4a5a7 Mon Sep 17 00:00:00 2001
From: Carl Worth <cworth@cworth.org>
Date: Fri, 22 Oct 2010 12:10:15 -0700
Subject: [PATCH] test: Add the most rudimentary testing of the emacs
 interface.

So far, this is doing nothing more than adding a corpus of email and
ensuring that the `notmuch-hello' function produces the desired
output.
---
 test/emacs        | 25 +++++++++++++++++++++++++
 test/notmuch-test |  2 +-
 2 files changed, 26 insertions(+), 1 deletion(-)
 create mode 100755 test/emacs

diff --git a/test/emacs b/test/emacs
new file mode 100755
index 00000000..f9db5d11
--- /dev/null
+++ b/test/emacs
@@ -0,0 +1,25 @@
+#!/bin/bash
+test_description="emacs interface"
+. test-lib.sh
+
+add_email_corpus
+
+test_begin_subtest "Test emacs-hello interface"
+output=$(test_emacs '(notmuch-hello) (message (buffer-string))' 2>&1)
+test_expect_equal "$output" "   Welcome to notmuch. You have 50 messages (that's not much mail).
+
+Saved searches: [edit]
+
+	  50 inbox           50 unread    
+
+Search:                                                                     
+
+[Show all tags]
+
+	 Type a search query and hit RET to view matching threads.
+		Edit saved searches with the \`edit' button.
+  Hit RET or click on a saved search or tag name to view matching threads.
+    \`=' refreshes this screen. \`s' jumps to the search box. \`q' to quit."
+
+
+test_done
diff --git a/test/notmuch-test b/test/notmuch-test
index 13c5d806..7feb5bdf 100755
--- a/test/notmuch-test
+++ b/test/notmuch-test
@@ -8,7 +8,7 @@
 
 cd $(dirname "$0")
 
-TESTS="basic new search json thread-naming reply dump-restore uuencode thread-order author-order from-guessing long-id encoding"
+TESTS="basic new search json thread-naming reply dump-restore uuencode thread-order author-order from-guessing long-id encoding emacs"
 
 # Clean up any results from a previous run
 rm -r test-results >/dev/null 2>/dev/null