mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-11-22 02:48:08 +01:00
a8aa437bbc
We simulate the act of selecting the "inbox" saved search from notmuch-hello and the act of selecting a desired thread from the notmuch-search results. The test for the navigation of notmuch-hello is currently marked as BROKEN since its output is in the opposite order compared to the '(notmuch-search "tag:inbox")' test. This question of ordering is a currently open issue on the notmuch mailing list, so we'll let the test suite reflect that for now. Finally, this commit also abstracts some common emacs lisp code, (waiting for the current buffer's process to complete), into a new notmuch-test-wait function that is made available to anything calling test_emacs.
33 lines
1.5 KiB
Bash
Executable file
33 lines
1.5 KiB
Bash
Executable file
#!/bin/bash
|
|
test_description="emacs interface"
|
|
. test-lib.sh
|
|
|
|
EXPECTED=../emacs.expected-output
|
|
|
|
add_email_corpus
|
|
|
|
test_begin_subtest "Basic notmuch-hello view in emacs"
|
|
output=$(test_emacs '(notmuch-hello) (message (buffer-string))' 2>&1)
|
|
expected=$(cat $EXPECTED/notmuch-hello)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "Basic notmuch-search view in emacs"
|
|
output=$(test_emacs '(notmuch-search "tag:inbox") (notmuch-test-wait) (message (buffer-string))' 2>&1)
|
|
expected=$(cat $EXPECTED/notmuch-search-tag-inbox)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "Navigation of notmuch-hello to search results
|
|
[XXX: Need to decide the correct order of the search results]"
|
|
output=$(test_emacs '(notmuch-hello) (goto-char (point-min)) (re-search-forward "inbox") (widget-button-press (point)) (notmuch-test-wait) (message (buffer-string))' 2>&1)
|
|
test_expect_equal_failure "$output" "$expected"
|
|
|
|
test_begin_subtest "Basic notmuch-show view in emacs"
|
|
output=$(test_emacs '(notmuch-show "thread:0000000000000009") (message (buffer-string))' 2>&1)
|
|
expected=$(cat $EXPECTED/notmuch-show-thread-9)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "Navigation of notmuch-search to thread view"
|
|
output=$(test_emacs '(notmuch-search "tag:inbox") (notmuch-test-wait) (goto-char (point-min)) (re-search-forward "Working with Maildir") (notmuch-search-show-thread) (notmuch-test-wait) (message (buffer-string))' 2>&1)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_done
|