[PATCH 2/4] test: add test for `notmuch-hello-mode-hook'

2011-12-17 Thread Dmitry Kurochkin
Test that `notmuch-hello-mode-hook' is called once when
`notmuch-hello' function is called.
---
 test/emacs |9 +
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/test/emacs b/test/emacs
index 6e922de..a864ffa 100755
--- a/test/emacs
+++ b/test/emacs
@@ -476,4 +476,13 @@ test_emacs "(let ((notmuch-command 
\"$notmuch_counter_command\"))
  (notmuch-show \"id:$id\"))"
 test_expect_equal $(notmuch_counter_value) 1

+test_begin_subtest "notmuch-hello-mode hook is called"
+counter=$(test_emacs \
+'(let ((notmuch-hello-mode-hook-counter 0))
+   (kill-buffer "*notmuch-hello*")
+   (notmuch-hello)
+   notmuch-hello-mode-hook-counter)'
+)
+test_expect_equal "$counter" 1
+
 test_done
-- 
1.7.7.3



[PATCH 2/4] test: add test for `notmuch-hello-mode-hook'

2011-12-16 Thread Dmitry Kurochkin
Test that `notmuch-hello-mode-hook' is called once when
`notmuch-hello' function is called.
---
 test/emacs |9 +
 1 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/test/emacs b/test/emacs
index 6e922de..a864ffa 100755
--- a/test/emacs
+++ b/test/emacs
@@ -476,4 +476,13 @@ test_emacs (let ((notmuch-command 
\$notmuch_counter_command\))
  (notmuch-show \id:$id\))
 test_expect_equal $(notmuch_counter_value) 1
 
+test_begin_subtest notmuch-hello-mode hook is called
+counter=$(test_emacs \
+'(let ((notmuch-hello-mode-hook-counter 0))
+   (kill-buffer *notmuch-hello*)
+   (notmuch-hello)
+   notmuch-hello-mode-hook-counter)'
+)
+test_expect_equal $counter 1
+
 test_done
-- 
1.7.7.3

___
notmuch mailing list
notmuch@notmuchmail.org
http://notmuchmail.org/mailman/listinfo/notmuch