git.cworth.org Git - notmuch/blob - test/T220-reply.sh

   1 #!/usr/bin/env bash
   2 test_description="\"notmuch reply\" in several variations"
   3 . $(dirname "$0")/test-lib.sh || exit 1
   4
   5 test_begin_subtest "Basic reply"
   6 add_message '[from]="Sender <sender@example.com>"' \
   7              [to]=test_suite@notmuchmail.org \
   8              [subject]=notmuch-reply-test \
   9             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
  10             '[body]="basic reply test"'
  11
  12 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
  13 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
  14 Subject: Re: notmuch-reply-test
  15 To: Sender <sender@example.com>
  16 In-Reply-To: <${gen_msg_id}>
  17 References: <${gen_msg_id}>
  18
  19 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
  20 > basic reply test
  21 OK"
  22
  23 test_begin_subtest "Multiple recipients"
  24 add_message '[from]="Sender <sender@example.com>"' \
  25             '[to]="test_suite@notmuchmail.org, Someone Else <someone@example.com>"' \
  26              [subject]=notmuch-reply-test \
  27             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
  28             '[body]="Multiple recipients"'
  29
  30 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
  31 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
  32 Subject: Re: notmuch-reply-test
  33 To: Sender <sender@example.com>, Someone Else <someone@example.com>
  34 In-Reply-To: <${gen_msg_id}>
  35 References: <${gen_msg_id}>
  36
  37 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
  38 > Multiple recipients
  39 OK"
  40
  41 test_begin_subtest "Reply with CC"
  42 add_message '[from]="Sender <sender@example.com>"' \
  43              [to]=test_suite@notmuchmail.org \
  44             '[cc]="Other Parties <cc@example.com>"' \
  45              [subject]=notmuch-reply-test \
  46             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
  47             '[body]="reply with CC"'
  48
  49 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
  50 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
  51 Subject: Re: notmuch-reply-test
  52 To: Sender <sender@example.com>
  53 Cc: Other Parties <cc@example.com>
  54 In-Reply-To: <${gen_msg_id}>
  55 References: <${gen_msg_id}>
  56
  57 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
  58 > reply with CC
  59 OK"
  60
  61 test_begin_subtest "Reply from alternate address"
  62 add_message '[from]="Sender <sender@example.com>"' \
  63              [to]=test_suite_other@notmuchmail.org \
  64              [subject]=notmuch-reply-test \
  65             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
  66             '[body]="reply from alternate address"'
  67
  68 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
  69 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite_other@notmuchmail.org>
  70 Subject: Re: notmuch-reply-test
  71 To: Sender <sender@example.com>
  72 In-Reply-To: <${gen_msg_id}>
  73 References: <${gen_msg_id}>
  74
  75 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
  76 > reply from alternate address
  77 OK"
  78
  79 test_begin_subtest "Reply from address in named group list"
  80 add_message '[from]="Sender <sender@example.com>"' \
  81             '[to]=group:test_suite@notmuchmail.org,someone@example.com\;' \
  82              [cc]=test_suite_other@notmuchmail.org \
  83              [subject]=notmuch-reply-test \
  84             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
  85             '[body]="Reply from address in named group list"'
  86
  87 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
  88 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
  89 Subject: Re: notmuch-reply-test
  90 To: Sender <sender@example.com>, someone@example.com
  91 In-Reply-To: <${gen_msg_id}>
  92 References: <${gen_msg_id}>
  93
  94 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
  95 > Reply from address in named group list
  96 OK"
  97
  98 test_begin_subtest "Support for Reply-To"
  99 add_message '[from]="Sender <sender@example.com>"' \
 100              [to]=test_suite@notmuchmail.org \
 101              [subject]=notmuch-reply-test \
 102             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
 103             '[body]="support for reply-to"' \
 104             '[reply-to]="Sender <elsewhere@example.com>"'
 105
 106 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
 107 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
 108 Subject: Re: notmuch-reply-test
 109 To: Sender <elsewhere@example.com>
 110 In-Reply-To: <${gen_msg_id}>
 111 References: <${gen_msg_id}>
 112
 113 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
 114 > support for reply-to
 115 OK"
 116
 117 test_begin_subtest "Un-munging Reply-To"
 118 add_message '[from]="Sender <sender@example.com>"' \
 119             '[to]="Some List <list@example.com>"' \
 120              [subject]=notmuch-reply-test \
 121             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
 122             '[body]="Un-munging Reply-To"' \
 123             '[reply-to]="Evil Munging List <list@example.com>"'
 124
 125 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
 126 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
 127 Subject: Re: notmuch-reply-test
 128 To: Sender <sender@example.com>, Some List <list@example.com>
 129 In-Reply-To: <${gen_msg_id}>
 130 References: <${gen_msg_id}>
 131
 132 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
 133 > Un-munging Reply-To
 134 OK"
 135
 136 test_begin_subtest "Un-munging Reply-To With Exact Match"
 137 add_message '[from]="Sender <sender@example.com>"' \
 138             '[to]="Some List <list@example.com>"' \
 139              [subject]=notmuch-reply-test \
 140             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
 141             '[body]="Un-munging Reply-To"' \
 142             '[reply-to]="Some List <list@example.com>"'
 143
 144 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
 145 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
 146 Subject: Re: notmuch-reply-test
 147 To: Sender <sender@example.com>, Some List <list@example.com>
 148 In-Reply-To: <${gen_msg_id}>
 149 References: <${gen_msg_id}>
 150
 151 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
 152 > Un-munging Reply-To
 153 OK"
 154
 155 test_begin_subtest "Un-munging Reply-To With Raw addr-spec"
 156 add_message '[from]="Sender <sender@example.com>"' \
 157             '[to]="Some List <list@example.com>"' \
 158              [subject]=notmuch-reply-test \
 159             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
 160             '[body]="Un-munging Reply-To"' \
 161             '[reply-to]="list@example.com"'
 162
 163 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
 164 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
 165 Subject: Re: notmuch-reply-test
 166 To: Sender <sender@example.com>, Some List <list@example.com>
 167 In-Reply-To: <${gen_msg_id}>
 168 References: <${gen_msg_id}>
 169
 170 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
 171 > Un-munging Reply-To
 172 OK"
 173
 174 test_begin_subtest "Message with header of exactly 200 bytes"
 175 add_message '[subject]="This subject is exactly 200 bytes in length. Other than its length there is not much of note here. Note that the length of 200 bytes includes the Subject: and Re: prefixes with two spaces"' \
 176             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
 177             '[body]="200-byte header"'
 178 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
 179 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
 180 Subject: Re: This subject is exactly 200 bytes in length. Other than its
 181  length there is not much of note here. Note that the length of 200 bytes
 182  includes the Subject: and Re: prefixes with two spaces
 183 To: test_suite@notmuchmail.org
 184 In-Reply-To: <${gen_msg_id}>
 185 References: <${gen_msg_id}>
 186
 187 On Tue, 05 Jan 2010 15:43:56 -0000, Notmuch Test Suite <test_suite@notmuchmail.org> wrote:
 188 > 200-byte header
 189 OK"
 190
 191 test_begin_subtest "From guessing: Envelope-To"
 192 add_message '[from]="Sender <sender@example.com>"' \
 193             '[to]="Recipient <recipient@example.com>"' \
 194             '[subject]="From guessing"' \
 195             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
 196             '[body]="From guessing"' \
 197             '[header]="Envelope-To: test_suite_other@notmuchmail.org"'
 198
 199 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
 200 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite_other@notmuchmail.org>
 201 Subject: Re: From guessing
 202 To: Sender <sender@example.com>, Recipient <recipient@example.com>
 203 In-Reply-To: <${gen_msg_id}>
 204 References: <${gen_msg_id}>
 205
 206 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
 207 > From guessing
 208 OK"
 209
 210 test_begin_subtest "From guessing: X-Original-To"
 211 add_message '[from]="Sender <sender@example.com>"' \
 212             '[to]="Recipient <recipient@example.com>"' \
 213             '[subject]="From guessing"' \
 214             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
 215             '[body]="From guessing"' \
 216             '[header]="X-Original-To: test_suite@otherdomain.org"'
 217
 218 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
 219 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@otherdomain.org>
 220 Subject: Re: From guessing
 221 To: Sender <sender@example.com>, Recipient <recipient@example.com>
 222 In-Reply-To: <${gen_msg_id}>
 223 References: <${gen_msg_id}>
 224
 225 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
 226 > From guessing
 227 OK"
 228
 229 test_begin_subtest "From guessing: Delivered-To"
 230 add_message '[from]="Sender <sender@example.com>"' \
 231             '[to]="Recipient <recipient@example.com>"' \
 232             '[subject]="From guessing"' \
 233             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
 234             '[body]="From guessing"' \
 235             '[header]="Delivered-To: test_suite_other@notmuchmail.org"'
 236
 237 output=$(notmuch reply id:${gen_msg_id} 2>&1 && echo OK)
 238 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite_other@notmuchmail.org>
 239 Subject: Re: From guessing
 240 To: Sender <sender@example.com>, Recipient <recipient@example.com>
 241 In-Reply-To: <${gen_msg_id}>
 242 References: <${gen_msg_id}>
 243
 244 On Tue, 05 Jan 2010 15:43:56 -0000, Sender <sender@example.com> wrote:
 245 > From guessing
 246 OK"
 247
 248 test_begin_subtest "Reply with RFC 2047-encoded headers"
 249 add_message '[subject]="=?iso-8859-1?q?=e0=df=e7?="' \
 250             '[from]="=?utf-8?q?=e2=98=83?= <snowman@example.com>"' \
 251             '[date]="Tue, 05 Jan 2010 15:43:56 -0000"' \
 252             '[body]="Encoding"'
 253
 254 # GMime happens to change from Q- to B-encoding.  We canonicalize the
 255 # case of the encoding and charset because different versions of GMime
 256 # capitalize the encoding differently.
 257 output=$( (notmuch reply id:${gen_msg_id} 2>&1 && echo OK) | perl -pe 's/=\?[^?]+\?[bB]\?/lc($&)/ge')
 258 test_expect_equal "$output" "\
 259 From: Notmuch Test Suite <test_suite@notmuchmail.org>
 260 Subject: Re: =?iso-8859-1?b?4N/n?=
 261 To: =?utf-8?b?4piD?= <snowman@example.com>
 262 In-Reply-To: <${gen_msg_id}>
 263 References: <${gen_msg_id}>
 264
 265 On Tue, 05 Jan 2010 15:43:56 -0000, ☃ <snowman@example.com> wrote:
 266 > Encoding
 267 OK"
 268
 269 test_begin_subtest "Reply with RFC 2047-encoded headers (JSON)"
 270 output=$(echo '{"answer":' && notmuch reply --format=json id:${gen_msg_id} 2>&1 && echo ', "success": "OK"}')
 271 test_expect_equal_json "$output" '
 272 {  "answer": {
 273     "original": {
 274         "body": [
 275             {
 276                 "content": "Encoding\n",
 277                 "content-type": "text/plain",
 278                 "id": 1
 279             }
 280         ],
 281         "crypto": {},
 282         "date_relative": "2010-01-05",
 283         "excluded": false,
 284         "filename": ["'${MAIL_DIR}'/msg-014"],
 285         "headers": {
 286             "Date": "Tue, 05 Jan 2010 15:43:56 +0000",
 287             "From": "\u2603 <snowman@example.com>",
 288             "Subject": "\u00e0\u00df\u00e7",
 289             "To": "Notmuch Test Suite <test_suite@notmuchmail.org>"
 290         },
 291         "id": "'${gen_msg_id}'",
 292         "match": false,
 293         "tags": [
 294             "inbox",
 295             "unread"
 296         ],
 297         "timestamp": 1262706236
 298     },
 299     "reply-headers": {
 300         "From": "Notmuch Test Suite <test_suite@notmuchmail.org>",
 301         "In-reply-to": "<'${gen_msg_id}'>",
 302         "References": "<'${gen_msg_id}'>",
 303         "Subject": "Re: \u00e0\u00df\u00e7",
 304         "To": "\u2603 <snowman@example.com>"
 305     }
 306   },
 307   "success": "OK"
 308 }'
 309
 310 test_begin_subtest "Reply to a message with multiple Cc headers"
 311 add_email_corpus broken
 312 output=$(notmuch reply id:multiple-cc@example.org 2>&1 && echo OK)
 313 test_expect_equal "$output" "From: Notmuch Test Suite <test_suite@notmuchmail.org>
 314 Subject: Re: wowsers!
 315 To: Alice <alice@example.org>, Daniel <daniel@example.org>
 316 Cc: Bob <bob@example.org>, Charles <charles@example.org>
 317 In-Reply-To: <multiple-cc@example.org>
 318 References: <multiple-cc@example.org>
 319
 320 On Thu, 16 Jun 2016 22:14:41 -0400, Alice <alice@example.org> wrote:
 321 > Note the Cc: and cc: headers.
 322 OK"
 323
 324 test_done