mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-23 11:28:13 +01:00
bf9b9fe046
This fixes the bug reported in
id:6F2EF901-8B4B-44FF-83C5-22F732BA95A6@gmail.com
Unfortunately it turns out our test data has several tabs in the
subject lines. The expected output was updated to reflect their
removal and the ripple effect of several more subjects matching the
previous ones.
255 lines
8.8 KiB
Bash
Executable file
255 lines
8.8 KiB
Bash
Executable file
#!/usr/bin/env bash
|
|
|
|
test_description="emacs tree view interface"
|
|
. $(dirname "$0")/test-lib.sh || exit 1
|
|
. $NOTMUCH_SRCDIR/test/test-lib-emacs.sh || exit 1
|
|
|
|
EXPECTED=$NOTMUCH_SRCDIR/test/emacs-tree.expected-output
|
|
|
|
test_require_emacs
|
|
add_email_corpus
|
|
|
|
test_begin_subtest "Basic notmuch-tree view in emacs"
|
|
test_emacs '(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-tag-inbox OUTPUT
|
|
|
|
test_begin_subtest "Refreshed notmuch-tree view in emacs"
|
|
test_emacs '(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(notmuch-tree-refresh-view)
|
|
(notmuch-test-wait)
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-tag-inbox OUTPUT
|
|
|
|
# In the following tag tests we make sure the display is updated
|
|
# correctly and, in a separate test, that the database is updated
|
|
# correctly.
|
|
|
|
test_begin_subtest "Tag message in notmuch tree view (display)"
|
|
test_emacs '(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(forward-line)
|
|
(notmuch-tree-tag (list "+test_tag"))
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-tag-inbox-tagged OUTPUT
|
|
|
|
test_begin_subtest "Tag message in notmuch tree view (database)"
|
|
output=$(notmuch search --output=messages 'tag:test_tag')
|
|
test_expect_equal "$output" "id:877h1wv7mg.fsf@inf-8657.int-evry.fr"
|
|
|
|
test_begin_subtest "Untag message in notmuch tree view"
|
|
test_emacs '(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(forward-line)
|
|
(notmuch-tree-tag (list "-test_tag"))
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-tag-inbox OUTPUT
|
|
|
|
test_begin_subtest "Untag message in notmuch tree view (database)"
|
|
output=$(notmuch search --output=messages 'tag:test_tag')
|
|
test_expect_equal "$output" ""
|
|
|
|
test_begin_subtest "Tag thread in notmuch tree view"
|
|
test_emacs '(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
;; move to a sizable thread
|
|
(forward-line 26)
|
|
(notmuch-tree-tag-thread (list "+test_thread_tag"))
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-tag-inbox-thread-tagged OUTPUT
|
|
|
|
test_begin_subtest "Tag message in notmuch tree view (database)"
|
|
output=$(notmuch search --output=messages 'tag:test_thread_tag')
|
|
test_expect_equal "$output" \
|
|
"id:87ocn0qh6d.fsf@yoom.home.cworth.org
|
|
id:20091118005040.GA25380@dottiness.seas.harvard.edu
|
|
id:yunaayketfm.fsf@aiko.keithp.com
|
|
id:87fx8can9z.fsf@vertex.dottedmag
|
|
id:20091117203301.GV3165@dottiness.seas.harvard.edu
|
|
id:87iqd9rn3l.fsf@vertex.dottedmag
|
|
id:20091117190054.GU3165@dottiness.seas.harvard.edu"
|
|
|
|
test_begin_subtest "Untag thread in notmuch tree view"
|
|
test_emacs '(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
;; move to the same sizable thread as above
|
|
(forward-line 26)
|
|
(notmuch-tree-tag-thread (list "-test_thread_tag"))
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-tag-inbox OUTPUT
|
|
|
|
test_begin_subtest "Untag message in notmuch tree view (database)"
|
|
output=$(notmuch search --output=messages 'tag:test_thread_tag')
|
|
test_expect_equal "$output" ""
|
|
|
|
test_begin_subtest "Navigation of notmuch-hello to search results"
|
|
test_emacs '(notmuch-hello)
|
|
(goto-char (point-min))
|
|
(re-search-forward "inbox")
|
|
(widget-button-press (1- (point)))
|
|
(notmuch-test-wait)
|
|
(notmuch-tree-from-search-current-query)
|
|
(notmuch-test-wait)
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-tag-inbox-oldest-first OUTPUT
|
|
|
|
test_begin_subtest "Tree view of a single thread (from search)"
|
|
test_emacs '(notmuch-hello)
|
|
(goto-char (point-min))
|
|
(re-search-forward "inbox")
|
|
(widget-button-press (1- (point)))
|
|
(notmuch-test-wait)
|
|
(notmuch-tree-from-search-thread)
|
|
(notmuch-test-wait)
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-single-thread OUTPUT
|
|
|
|
test_begin_subtest "Tree view of a single thread (from show)"
|
|
test_emacs '(notmuch-hello)
|
|
(goto-char (point-min))
|
|
(re-search-forward "inbox")
|
|
(widget-button-press (1- (point)))
|
|
(notmuch-test-wait)
|
|
(notmuch-search-show-thread)
|
|
(notmuch-tree-from-show-current-query)
|
|
(notmuch-test-wait)
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-single-thread OUTPUT
|
|
|
|
test_begin_subtest "Message window of tree view"
|
|
test_emacs '(notmuch-hello)
|
|
(goto-char (point-min))
|
|
(re-search-forward "inbox")
|
|
(widget-button-press (1- (point)))
|
|
(notmuch-test-wait)
|
|
(notmuch-search-next-thread)
|
|
(notmuch-tree-from-search-thread)
|
|
(notmuch-test-wait)
|
|
(select-window notmuch-tree-message-window)
|
|
(test-output)
|
|
(delete-other-windows)'
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-show-window OUTPUT
|
|
|
|
test_begin_subtest "Stash id"
|
|
output=$(test_emacs '(notmuch-tree "id:1258498485-sup-142@elly")
|
|
(notmuch-test-wait)
|
|
(notmuch-show-stash-message-id)')
|
|
test_expect_equal "$output" "\"Stashed: id:1258498485-sup-142@elly\""
|
|
|
|
test_begin_subtest "Move to next matching message"
|
|
output=$(test_emacs '(notmuch-tree "from:cworth")
|
|
(notmuch-test-wait)
|
|
(notmuch-tree-next-matching-message)
|
|
(notmuch-show-stash-message-id)')
|
|
test_expect_equal "$output" "\"Stashed: id:878we4qdqf.fsf@yoom.home.cworth.org\""
|
|
|
|
test_begin_subtest "Move to next thread"
|
|
output=$(test_emacs '(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(forward-line 26)
|
|
(notmuch-tree-next-thread)
|
|
(notmuch-show-stash-message-id)')
|
|
test_expect_equal "$output" "\"Stashed: id:1258471718-6781-1-git-send-email-dottedmag@dottedmag.net\""
|
|
|
|
test_begin_subtest "Move to previous thread"
|
|
output=$(test_emacs '(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(forward-line 26)
|
|
(notmuch-tree-prev-thread)
|
|
(notmuch-show-stash-message-id)')
|
|
test_expect_equal "$output" "\"Stashed: id:20091117190054.GU3165@dottiness.seas.harvard.edu\""
|
|
|
|
test_begin_subtest "Move to previous previous thread"
|
|
output=$(test_emacs '(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(forward-line 26)
|
|
(notmuch-tree-prev-thread)
|
|
(notmuch-tree-prev-thread)
|
|
(notmuch-show-stash-message-id)')
|
|
test_expect_equal "$output" "\"Stashed: id:1258493565-13508-1-git-send-email-keithp@keithp.com\""
|
|
|
|
test_begin_subtest "Functions in tree-result-format"
|
|
test_emacs '
|
|
(let
|
|
((notmuch-tree-result-format
|
|
(quote (("date" . "%12s ")
|
|
("authors" . "%-20s")
|
|
((("tree" . "%s")
|
|
("subject" . "%s")) . " %-54s ")
|
|
(notmuch-test-result-flags . "(%s)")))))
|
|
(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(test-output))
|
|
'
|
|
test_expect_equal_file $EXPECTED/result-format-function OUTPUT
|
|
|
|
test_begin_subtest "notmuch-tree with nonexistent CWD"
|
|
test_emacs '(test-log-error
|
|
(let ((default-directory "/nonexistent"))
|
|
(notmuch-tree "*")))'
|
|
test_expect_equal "$(cat MESSAGES)" "COMPLETE"
|
|
|
|
# reinitialize database for outline tests
|
|
add_email_corpus
|
|
|
|
test_begin_subtest "start in outline mode"
|
|
test_emacs '(let ((notmuch-tree-outline-enabled t))
|
|
(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(test-visible-output))'
|
|
# folding all messages by height or depth should look the same
|
|
test_expect_equal_file $EXPECTED/inbox-outline OUTPUT
|
|
|
|
test_begin_subtest "outline-cycle-buffer"
|
|
test_emacs '(let ((notmuch-tree-outline-enabled t))
|
|
(notmuch-tree "tag:inbox")
|
|
(notmuch-test-wait)
|
|
(outline-cycle-buffer)
|
|
(outline-cycle-buffer)
|
|
(notmuch-test-wait)
|
|
(test-visible-output))'
|
|
# folding all messages by height or depth should look the same
|
|
test_expect_equal_file $EXPECTED/notmuch-tree-tag-inbox OUTPUT
|
|
|
|
test_begin_subtest "notmuch-tree for message with subject with embedded CRNL"
|
|
add_message "[subject]=\"=?UTF-8?B?8J+Pi++4jw==?= A SALE to boost your =?UTF-8?Q?workout=0D=0A?=\" [body]=the-message-body"
|
|
test_emacs "(notmuch-tree \"id:${gen_msg_id}\")
|
|
(notmuch-test-wait)
|
|
(test-output)"
|
|
# one line of output, plus "End of search results."
|
|
test_expect_equal "$(wc -l < OUTPUT)" 2
|
|
|
|
add_email_corpus duplicate
|
|
|
|
ID3=87r2ecrr6x.fsf@zephyr.silentflame.com
|
|
test_begin_subtest "duplicate=3, subject"
|
|
test_emacs "(notmuch-tree \"id:${ID3}\")
|
|
(notmuch-test-wait)
|
|
(notmuch-tree-show-message t)
|
|
(notmuch-show-choose-duplicate 3)
|
|
(test-visible-output \"OUTPUT\")"
|
|
output=$(grep "Subject:" OUTPUT)
|
|
file=$(notmuch search --output=files id:${ID3} | head -n 3 | tail -n 1)
|
|
subject=$(grep '^Subject:' $file)
|
|
test_expect_equal "$output" "$subject"
|
|
|
|
test_begin_subtest "duplicate=4"
|
|
test_emacs "(notmuch-show \"id:${ID3}\")
|
|
(notmuch-test-wait)
|
|
(notmuch-tree-show-message t)
|
|
(notmuch-show-choose-duplicate 4)
|
|
(test-visible-output \"OUTPUT\")"
|
|
test_expect_equal_file_nonempty $NOTMUCH_SRCDIR/test/emacs-show.expected-output/notmuch-show-duplicate-4 OUTPUT
|
|
|
|
test_done
|