X-Git-Url: https://git.notmuchmail.org/git?a=blobdiff_plain;f=test%2Femacs;h=74155f8c6fc1515d9cccf96e90b9a72fc87fbb4f;hb=20b7e0ff2f12e612dee00efc6ff1634aae8172a4;hp=c4ead5143a249354733a56a2100f6a67b634aa62;hpb=5ea1dbe977790294d73d3522228ce1ede58b8404;p=notmuch diff --git a/test/emacs b/test/emacs index c4ead514..74155f8c 100755 --- a/test/emacs +++ b/test/emacs @@ -1,7 +1,7 @@ #!/usr/bin/env bash test_description="emacs interface" -. test-lib.sh +. ./test-lib.sh EXPECTED=$TEST_DIRECTORY/emacs.expected-output @@ -593,6 +593,44 @@ test_emacs '(notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail. (test-visible-output)' test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-with-hidden-messages +test_begin_subtest "notmuch-show: show message headers" +test_emacs \ + '(let ((notmuch-message-headers '\''("Subject" "To" "Cc" "Date")) + (notmuch-message-headers-visible t)) + (notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com") + (test-visible-output))' +test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-visible + +test_begin_subtest "notmuch-show: hide message headers" +test_emacs \ + '(let ((notmuch-message-headers '\''("Subject" "To" "Cc" "Date")) + (notmuch-message-headers-visible nil)) + (notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com") + (test-visible-output))' +test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-hidden + +test_begin_subtest "notmuch-show: hide message headers (w/ notmuch-show-toggle-visibility-headers)" +test_emacs \ + '(let ((notmuch-message-headers '\''("Subject" "To" "Cc" "Date")) + (notmuch-message-headers-visible t)) + (notmuch-show "id:f35dbb950911171438k5df6eb56k77b6c0944e2e79ae@mail.gmail.com") + (notmuch-show-toggle-visibility-headers) + (test-visible-output))' +test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-message-with-headers-hidden + +test_begin_subtest "notmuch-show: collapse all messages in thread" +test_emacs '(notmuch-show "id:f35dbb950911171435ieecd458o853c873e35f4be95@mail.gmail.com") + (let ((current-prefix-arg t)) + (notmuch-show-open-or-close-all) + (test-visible-output))' +test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-with-all-messages-collapsed + +test_begin_subtest "notmuch-show: uncollapse all messages in thread" +test_emacs '(notmuch-show "id:f35dbb950911171435ieecd458o853c873e35f4be95@mail.gmail.com") + (notmuch-show-open-or-close-all) + (test-visible-output)' +test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-thread-with-all-messages-uncollapsed + test_begin_subtest "Stashing in notmuch-show" add_message '[date]="Sat, 01 Jan 2000 12:00:00 -0000"' \ '[from]="Some One "' \ @@ -629,7 +667,7 @@ Some One Some One Else Notmuch Stash my stashables -id:"bought" +id:bought bought inbox,stashtest ${gen_msg_filename} @@ -750,13 +788,12 @@ counter=$(test_emacs \ test_expect_equal "$counter" 2 -test_begin_subtest "Rendering HTML mail with images" add_message '[subject]="HTML mail with images"' \ '[content-type]="multipart/related; boundary=abcd"' \ '[body]="--abcd Content-Type: text/html - + smiley --abcd Content-Type: image/gif @@ -766,79 +803,16 @@ Content-ID: <330@goomoji.gmail> R0lGODlhDAAMAKIFAF5LAP/zxAAAANyuAP/gaP///wAAAAAAACH5BAEAAAUALAAAAAAMAAwAAAMl WLPcGjDKFYi9lxKBOaGcF35DhWHamZUW0K4mAbiwWtuf0uxFAgA7 --abcd--"' -test_emacs "(notmuch-show \"id:${gen_msg_id}\") - (test-output)" -# Normalize output for Emacs 23 and Emacs 24 -sed -i 's/\[cid\]/*/' OUTPUT -cat <EXPECTED -Notmuch Test Suite (2001-01-05) (inbox) -Subject: HTML mail with images -To: Notmuch Test Suite -Date: Fri, 05 Jan 2001 15:43:57 +0000 - -[ multipart/related ] -[ text/html ] -* -EOF -test_expect_equal_file OUTPUT EXPECTED - - -test_begin_subtest "don't process cryptographic MIME parts" -test_emacs '(let ((notmuch-crypto-process-mime nil)) - (notmuch-show "id:20091117203301.GV3165@dottiness.seas.harvard.edu") - (test-visible-output))' -test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-process-crypto-mime-parts-off - -test_begin_subtest "process cryptographic MIME parts" -test_emacs '(let ((notmuch-crypto-process-mime t)) - (notmuch-show "id:20091117203301.GV3165@dottiness.seas.harvard.edu") - (test-visible-output))' -test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-process-crypto-mime-parts-on - -test_begin_subtest "process cryptographic MIME parts (w/ notmuch-show-toggle-process-crypto)" -test_emacs '(let ((notmuch-crypto-process-mime nil)) - (notmuch-show "id:20091117203301.GV3165@dottiness.seas.harvard.edu") - (notmuch-show-toggle-process-crypto) - (test-visible-output))' -test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-process-crypto-mime-parts-on - -test_begin_subtest "notmuch-show: don't elide non-matching messages" -test_emacs '(let ((notmuch-show-only-matching-messages nil)) - (notmuch-search "from:lars@seas.harvard.edu and subject:\"Maildir storage\"") - (notmuch-test-wait) - (notmuch-search-show-thread) - (notmuch-test-wait) - (test-visible-output))' -test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-elide-non-matching-messages-off - -test_begin_subtest "notmuch-show: elide non-matching messages" -test_emacs '(let ((notmuch-show-only-matching-messages t)) - (notmuch-search "from:lars@seas.harvard.edu and subject:\"Maildir storage\"") - (notmuch-test-wait) - (notmuch-search-show-thread) - (notmuch-test-wait) - (test-visible-output))' -test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-elide-non-matching-messages-on - -test_begin_subtest "notmuch-show: elide non-matching messages (w/ notmuch-show-toggle-elide-non-matching)" -test_emacs '(let ((notmuch-show-only-matching-messages nil)) - (notmuch-search "from:lars@seas.harvard.edu and subject:\"Maildir storage\"") - (notmuch-test-wait) - (notmuch-search-show-thread) - (notmuch-test-wait) - (notmuch-show-toggle-elide-non-matching) - (test-visible-output))' -test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-elide-non-matching-messages-on - -test_begin_subtest "notmuch-show: elide non-matching messages (w/ prefix arg to notmuch-show)" -test_emacs '(let ((notmuch-show-only-matching-messages nil)) - (notmuch-search "from:lars@seas.harvard.edu and subject:\"Maildir storage\"") - (notmuch-test-wait) - (let ((current-prefix-arg t)) - (notmuch-search-show-thread)) - (notmuch-test-wait) - (test-visible-output))' -test_expect_equal_file OUTPUT $EXPECTED/notmuch-show-elide-non-matching-messages-on +test_emacs "(let ((mm-text-html-renderer + (if (assq 'shr mm-text-html-renderer-alist) + 'shr 'html2text))) + (notmuch-show \"id:${gen_msg_id}\")) + (test-output)" > /dev/null +# Different Emacs versions and renderers give very different results, +# so just check that something reasonable showed up. We first cat the +# output so the test framework will print it if the test fails. +test_expect_success "Rendering HTML mail with images" \ + 'cat OUTPUT && grep -q smiley OUTPUT' test_done