test: add test for emacs notmuch-show-strip-re function

[notmuch] / test / emacs-show

diff --git a/test/emacs-show b/test/emacs-show
index 5700d2e707a50bdd2ff7fd07fd694976fe517681..1ddb28eb2d1ba47644c4a870ff21a4aa33d51d92 100755 (executable)
--- a/test/emacs-show
+++ b/test/emacs-show
@@ -1,6 +1,6 @@
 #!/usr/bin/env bash
 
-test_description="Testing emacs notmuch-show view"
+test_description="emacs notmuch-show view"
 . test-lib.sh
 
 test_begin_subtest "Hiding Original Message region at beginning of a message"
@@ -24,4 +24,17 @@ test_emacs "(notmuch-show \"id:$message_id\")
            (test-visible-output)"
 test_expect_equal_file OUTPUT EXPECTED
 
+test_begin_subtest "Bare subject #1"
+output=$(test_emacs '(notmuch-show-strip-re "Re: subject")')
+test_expect_equal "$output" '"subject"'
+
+test_begin_subtest "Bare subject #2"
+output=$(test_emacs '(notmuch-show-strip-re "re:Re: re:  Re:  re:subject")')
+test_expect_equal "$output" '"subject"'
+
+test_begin_subtest "Bare subject #3"
+test_subtest_known_broken
+output=$(test_emacs '(notmuch-show-strip-re "the cure: fix the regexp")')
+test_expect_equal "$output" '"the cure: fix the regexp"'
+
 test_done