blob 3a7701778915a32b3653d2cd767ee67a6d4e2fed 2496 bytes (raw)
name: test/T454-emacs-dont-reply-names.sh # note: path name is non-authoritative(*)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
| | #!/usr/bin/env bash
test_description="message-dont-reply-to-names in emacs replies"
. $(dirname "$0")/test-lib.sh || exit 1
. $NOTMUCH_SRCDIR/test/test-lib-emacs.sh || exit 1
EXPECTED=$NOTMUCH_SRCDIR/test/emacs-show.expected-output
test_require_emacs
add_email_corpus default
test_begin_subtest "regular expression"
test_emacs '(let ((message-dont-reply-to-names "notmuchmail\\|noreply\\|harvard"))
(notmuch-mua-new-reply
"id:20091117203301.GV3165@dottiness.seas.harvard.edu" nil t)
(test-visible-output "OUTPUT-FULL.raw"))'
notmuch_dir_sanitize < OUTPUT-FULL.raw > OUTPUT-FULL
head -6 OUTPUT-FULL > OUTPUT
cat <<EOF > EXPECTED
From: Notmuch Test Suite <test_suite@notmuchmail.org>
To: Mikhail Gusarov <dottedmag@dottedmag.net>
Subject: Re: [notmuch] Working with Maildir storage?
In-Reply-To: <20091117203301.GV3165@dottiness.seas.harvard.edu>
Fcc: MAIL_DIR/sent
--text follows this line--
EOF
test_expect_equal_file EXPECTED OUTPUT
test_begin_subtest "predicate"
test_emacs '(let ((message-dont-reply-to-names
(lambda (m) (string-prefix-p "Mikhail" m))))
(notmuch-mua-new-reply
"id:20091117203301.GV3165@dottiness.seas.harvard.edu" nil t)
(test-visible-output "OUTPUT-FULL-PRED.raw"))'
notmuch_dir_sanitize < OUTPUT-FULL-PRED.raw > OUTPUT-FULL-PRED
head -7 OUTPUT-FULL-PRED > OUTPUT-PRED
cat <<EOF > EXPECTED-PRED
From: Notmuch Test Suite <test_suite@notmuchmail.org>
To: Lars Kellogg-Stedman <lars@seas.harvard.edu>
Cc: notmuch@notmuchmail.org
Subject: Re: [notmuch] Working with Maildir storage?
In-Reply-To: <20091117203301.GV3165@dottiness.seas.harvard.edu>
Fcc: MAIL_DIR/sent
--text follows this line--
EOF
test_expect_equal_file EXPECTED-PRED OUTPUT-PRED
test_begin_subtest "nil value"
test_emacs '(let ((message-dont-reply-to-names nil))
(notmuch-mua-new-reply
"id:20091117203301.GV3165@dottiness.seas.harvard.edu" nil t)
(test-visible-output "OUTPUT-FULL-NIL.raw"))'
notmuch_dir_sanitize < OUTPUT-FULL-NIL.raw > OUTPUT-FULL-NIL
head -7 OUTPUT-FULL-NIL > OUTPUT-NIL
cat <<EOF > EXPECTED-NIL
From: Notmuch Test Suite <test_suite@notmuchmail.org>
To: Lars Kellogg-Stedman <lars@seas.harvard.edu>, Mikhail Gusarov <dottedmag@dottedmag.net>
Cc: notmuch@notmuchmail.org
Subject: Re: [notmuch] Working with Maildir storage?
In-Reply-To: <20091117203301.GV3165@dottiness.seas.harvard.edu>
Fcc: MAIL_DIR/sent
--text follows this line--
EOF
test_expect_equal_file EXPECTED-NIL OUTPUT-NIL
test_done
|
debug log:
solving 3a770177 ...
found 3a770177 in https://yhetil.org/notmuch.git/
(*) Git path names are given by the tree(s) the blob belongs to.
Blobs themselves have no identifier aside from the hash of its contents.^
Code repositories for project(s) associated with this public inbox
https://yhetil.org/notmuch.git/
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).