mirror of
https://git.notmuchmail.org/git/notmuch
synced 2024-12-23 09:54:52 +01:00
a0ebd5c5e4
The patch replaces all (message (buffer-string)) calls in emacs tests with (princ (buffer-string)). This avoids accidentally interpreting '%' as format specifiers and makes code simpler because we do not need to capture stderr. Also, the patch works around an Emacs (23.3+1-1 on current Debian Unstable) segfault in "Ensure that emacs doesn't drop results" test. Note: the segfault does not happen on every test run. Though, it seems to be consistently reproducible if the test uses 300 messages instead of 30. Hopefully, it is the crash described in Emacs bug #8545 [1] which is already fixed. [1] http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8545
138 lines
8.1 KiB
Bash
Executable file
138 lines
8.1 KiB
Bash
Executable file
#!/usr/bin/env 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) (princ (buffer-string))')
|
|
expected=$(cat $EXPECTED/notmuch-hello)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "Saved search with 0 results"
|
|
output=$(test_emacs '(setq notmuch-show-empty-saved-searches t) (setq notmuch-saved-searches '\''(("inbox" . "tag:inbox") ("unread" . "tag:unread") ("empty" . "tag:doesnotexist"))) (notmuch-hello) (princ (buffer-string))')
|
|
expected=$(cat $EXPECTED/notmuch-hello-with-empty)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "No saved searches displayed (all with 0 results)"
|
|
output=$(test_emacs '(setq notmuch-saved-searches '\''(("empty" . "tag:doesnotexist"))) (notmuch-hello) (princ (buffer-string))')
|
|
expected=$(cat $EXPECTED/notmuch-hello-no-saved-searches)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "Basic notmuch-search view in emacs"
|
|
output=$(test_emacs '(notmuch-search "tag:inbox") (notmuch-test-wait) (princ (buffer-string))')
|
|
expected=$(cat $EXPECTED/notmuch-search-tag-inbox)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "Navigation of notmuch-hello to search results"
|
|
output=$(test_emacs '(notmuch-hello) (goto-char (point-min)) (re-search-forward "inbox") (widget-button-press (point)) (notmuch-test-wait) (princ (buffer-string))')
|
|
expected=$(cat $EXPECTED/notmuch-hello-view-inbox)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "Basic notmuch-show view in emacs"
|
|
maildir_storage_thread=$(notmuch search --output=threads id:20091117190054.GU3165@dottiness.seas.harvard.edu)
|
|
output=$(test_emacs "(notmuch-show \"$maildir_storage_thread\") (princ (buffer-string))")
|
|
expected=$(cat $EXPECTED/notmuch-show-thread-maildir-storage)
|
|
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) (princ (buffer-string))')
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "Add tag from search view"
|
|
os_x_darwin_thread=$(notmuch search --output=threads id:ddd65cda0911171950o4eea4389v86de9525e46052d3@mail.gmail.com)
|
|
test_emacs "(notmuch-search \"$os_x_darwin_thread\") (notmuch-test-wait) (notmuch-search-add-tag \"tag-from-search-view\")"
|
|
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox tag-from-search-view unread)"
|
|
|
|
test_begin_subtest "Remove tag from search view"
|
|
test_emacs "(notmuch-search \"$os_x_darwin_thread\") (notmuch-test-wait) (notmuch-search-remove-tag \"tag-from-search-view\")"
|
|
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox unread)"
|
|
|
|
test_begin_subtest "Add tag from notmuch-show view"
|
|
test_emacs "(notmuch-show \"$os_x_darwin_thread\") (notmuch-show-add-tag \"tag-from-show-view\")"
|
|
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox tag-from-show-view unread)"
|
|
|
|
test_begin_subtest "Remove tag from notmuch-show view"
|
|
test_emacs "(notmuch-show \"$os_x_darwin_thread\") (notmuch-show-remove-tag \"tag-from-show-view\")"
|
|
output=$(notmuch search $os_x_darwin_thread | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2009-11-18 [4/4] Jjgod Jiang, Alexander Botero-Lowry; [notmuch] Mac OS X/Darwin compatibility issues (inbox unread)"
|
|
|
|
test_begin_subtest "Message with .. in Message-Id:"
|
|
add_message [id]=123..456@example '[subject]="Message with .. in Message-Id"'
|
|
test_emacs '(notmuch-search "id:\"123..456@example\"") (notmuch-test-wait) (notmuch-search-add-tag "search-add") (notmuch-search-add-tag "search-remove") (notmuch-search-remove-tag "search-remove") (notmuch-show "id:\"123..456@example\"") (notmuch-test-wait) (notmuch-show-add-tag "show-add") (notmuch-show-add-tag "show-remove") (notmuch-show-remove-tag "show-remove")'
|
|
output=$(notmuch search 'id:"123..456@example"' | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 2001-01-05 [1/1] Notmuch Test Suite; Message with .. in Message-Id (inbox search-add show-add)"
|
|
|
|
test_begin_subtest "Sending a message via (fake) SMTP"
|
|
|
|
# Before we can send a message, we have to prepare the FCC maildir
|
|
mkdir -p mail/sent/cur
|
|
mkdir -p mail/sent/new
|
|
mkdir -p mail/sent/tmp
|
|
|
|
../smtp-dummy sent_message &
|
|
smtp_dummy_pid=$!
|
|
test_emacs "(setq message-send-mail-function 'message-smtpmail-send-it) (setq smtpmail-smtp-server \"localhost\") (setq smtpmail-smtp-service \"25025\") (notmuch-hello) (notmuch-mua-mail) (message-goto-to) (insert \"user@example.com\nDate: Fri, 29 Mar 1974 10:00:00 -0000\") (message-goto-subject) (insert \"Testing message sent via SMTP\") (message-goto-body) (insert \"This is a test that messages are sent via SMTP\") (message-send-and-exit)" >/dev/null 2>&1
|
|
wait ${smtp_dummy_pid}
|
|
|
|
output=$(sed \
|
|
-e s',^User-Agent: Notmuch/.* Emacs/.*,User-Agent: Notmuch/XXX Emacs/XXX,' \
|
|
-e s',^Message-ID: <.*>$,Message-ID: <XXX>,' < sent_message)
|
|
test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To: user@example.com
|
|
Subject: Testing message sent via SMTP
|
|
Date: Fri, 29 Mar 1974 10:00:00 -0000
|
|
User-Agent: Notmuch/XXX Emacs/XXX
|
|
Message-ID: <XXX>
|
|
MIME-Version: 1.0
|
|
Content-Type: text/plain; charset=us-ascii
|
|
|
|
This is a test that messages are sent via SMTP"
|
|
|
|
test_begin_subtest "Verify that sent messages are saved/searchable (via FCC)"
|
|
notmuch new > /dev/null
|
|
output=$(notmuch search 'subject:"testing message sent via SMTP"' | notmuch_search_sanitize)
|
|
test_expect_equal "$output" "thread:XXX 1974-03-29 [1/1] Notmuch Test Suite; Testing message sent via SMTP (inbox)"
|
|
|
|
test_begin_subtest "Reply within emacs"
|
|
# We sed away everything before the ^From in the output to avoid getting
|
|
# confused by messages such as "Parsing /home/cworth/.mailrc... done"
|
|
output=$(test_emacs '(notmuch-search "subject:\"testing message sent via SMTP\"") (notmuch-test-wait) (notmuch-search-reply-to-thread) (princ (buffer-string))' | sed -ne '/^From/,$ p' | sed -e 's/^In-Reply-To: <.*>$/In-Reply-To: <XXX>/')
|
|
test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
|
|
To: user@example.com
|
|
Subject: Re: Testing message sent via SMTP
|
|
In-Reply-To: <XXX>
|
|
Fcc: $(pwd)/mail/sent
|
|
--text follows this line--
|
|
On Fri, 29 Mar 1974 10:00:00 -0000, Notmuch Test Suite <test_suite@notmuchmail.org> wrote:
|
|
> This is a test that messages are sent via SMTP"
|
|
|
|
test_begin_subtest "Save attachment from within emacs"
|
|
echo "./attachment" | test_emacs '(notmuch-show "id:cf0c4d610911171136h1713aa59w9cf9aa31f052ad0a@mail.gmail.com") (notmuch-show-save-attachments)' > /dev/null 2>&1
|
|
output=$(cat attachment)
|
|
expected=$(cat $EXPECTED/attachment)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "View raw message within emacs"
|
|
expected=$(cat $EXPECTED/raw-message-cf0c4d-52ad0a)
|
|
first_line=$(echo "$expected" | head -n1)
|
|
output=$(test_emacs '(notmuch-show "id:cf0c4d610911171136h1713aa59w9cf9aa31f052ad0a@mail.gmail.com") (notmuch-show-view-raw-message) (princ (buffer-string))' | sed -ne "/$first_line/,\$ p")
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_begin_subtest "Hiding/showing signature in notmuch-show view"
|
|
maildir_storage_thread=$(notmuch search --output=threads id:20091117190054.GU3165@dottiness.seas.harvard.edu)
|
|
output=$(test_emacs "(notmuch-show \"$maildir_storage_thread\")
|
|
(search-forward \"Click/Enter to show.\")
|
|
(button-activate (button-at (point)))
|
|
(search-backward \"Click/Enter to hide.\")
|
|
(button-activate (button-at (point)))
|
|
(princ (buffer-string))")
|
|
expected=$(cat $EXPECTED/notmuch-show-thread-maildir-storage)
|
|
test_expect_equal "$output" "$expected"
|
|
|
|
test_done
|