test emacs: Add tests for hiding messages in notmuch-show view

[notmuch] / test / emacs

diff --git a/test/emacs b/test/emacs
index f2e95980039773fb83e6ba4e2c867d9c117f5127..fa3426ed7ab7b7dcfbb7088309b0e8ece056f395 100755 (executable)
--- a/test/emacs
+++ b/test/emacs
@@ -196,4 +196,20 @@ Thanks for the advice! I will be sure to put it to good use.
 [ 9-line hidden original message. Click/Enter to show. ]" > EXPECTED
 test_expect_equal_file OUTPUT EXPECTED
 
+test_begin_subtest "Hiding message in notmuch-show view"
+output=$(test_emacs '(notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com")
+                    (notmuch-show-toggle-message)
+                    (princ (visible-buffer-string))')
+expected=$(cat $EXPECTED/notmuch-show-thread-with-hidden-messages)
+test_expect_equal "$output" "$expected"
+
+test_begin_subtest "Hiding message with visible citation in notmuch-show view"
+output=$(test_emacs '(notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com")
+                    (search-forward "Click/Enter to show.")
+                    (button-activate (button-at (point)))
+                    (notmuch-show-toggle-message)
+                    (princ (visible-buffer-string))')
+expected=$(cat $EXPECTED/notmuch-show-thread-with-hidden-messages)
+test_expect_equal "$output" "$expected"
+
 test_done