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 98005758e664b065b3f817c5c893c7adf8a78d35..1ddb28eb2d1ba47644c4a870ff21a4aa33d51d92 100755 (executable)
--- a/test/emacs-show
+++ b/test/emacs-show
@@ -1,10 +1,9 @@
 #!/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"
-test_subtest_known_broken
 message_id='OriginalMessageHiding.1@notmuchmail.org'
 add_message \
     [id]="$message_id" \
@@ -25,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