X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=test%2Femacs;h=afe35bae09f26a8e938657575e8ff48672c4f685;hb=a89a2b276f59d8a97a7e3e6213f385aab79094a1;hp=5f238d9a1aff09e2f9812f55e57018e9bf959301;hpb=7fb8ab9f0b470dc236c92686ed33f8e0fa1d5727;p=notmuch
diff --git a/test/emacs b/test/emacs
index 5f238d9a..afe35bae 100755
--- a/test/emacs
+++ b/test/emacs
@@ -35,6 +35,16 @@ test_emacs '(notmuch-search "tag:inbox")
(test-output)'
test_expect_equal_file OUTPUT $EXPECTED/notmuch-search-tag-inbox
+test_begin_subtest "Incremental parsing of search results"
+test_emacs "(ad-enable-advice 'notmuch-search-process-filter 'around 'pessimal)
+ (ad-activate 'notmuch-search-process-filter)
+ (notmuch-search \"tag:inbox\")
+ (notmuch-test-wait)
+ (ad-disable-advice 'notmuch-search-process-filter 'around 'pessimal)
+ (ad-activate 'notmuch-search-process-filter)
+ (test-output)"
+test_expect_equal_file OUTPUT $EXPECTED/notmuch-search-tag-inbox
+
test_begin_subtest "Navigation of notmuch-hello to search results"
test_emacs '(notmuch-hello)
(goto-char (point-min))
@@ -445,10 +455,9 @@ EOF
test_expect_equal_file OUTPUT EXPECTED
test_begin_subtest "Reply within emacs to an html-only message"
-test_subtest_known_broken
add_message '[content-type]="text/html"' \
'[body]="Hi,
This is an HTML test message.
OK?"'
-test_emacs "(let ((message-hidden-headers '()))
+test_emacs "(let ((message-hidden-headers '()) (mm-text-html-renderer 'html2text))
(notmuch-show \"id:${gen_msg_id}\")
(notmuch-show-reply)
(test-output))"
@@ -464,10 +473,7 @@ User-Agent: Notmuch/XXX Emacs/XXX
--text follows this line--
Notmuch Test Suite writes:
-> Hi,
-> This is an HTML test message.
->
-> OK?
+> Hi,This is an HTML test message.OK?
EOF
test_expect_equal_file OUTPUT EXPECTED