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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
|
#!/bin/sh
######################################################
#
# Test repl
#
######################################################
# This is not a comprehensive test of repl, but some day it will be :-)
# Please add to it.
set -e
if test -z "${MH_OBJ_DIR}"; then
srcdir=`dirname $0`/../..
MH_OBJ_DIR=`cd $srcdir && pwd`; export MH_OBJ_DIR
fi
. "$MH_OBJ_DIR/test/common.sh"
setup_test
expected=$MH_TEST_DIR/$$.expected
actual=$MH_TEST_DIR/Mail/draft
# check -help
cat >$expected <<EOF
Usage: repl: [+folder] [msg] [switches]
switches are:
-[no]group
-[no]annotate
-cc all|to|cc|me
-nocc type
-draftfolder +folder
-draftmessage msg
-nodraftfolder
-editor editor
-noedit
-fcc folder
-filter filterfile
-form formfile
-([no]forma)t
-[no]inplace
-[no]mime
-[no]query
-whatnowproc program
-nowhatnowproc
-width columns
-version
-help
-(file) file
-(build)
-[no]atfile
-fmtproc program
-nofmtproc
EOF
run_prog repl -help >$actual 2>&1
check $expected $actual
# check -version
case `repl -v` in
repl\ --*) ;;
* ) printf '%s: repl -v generated unexpected output\n' "$0" >&2
failed=`expr ${failed:-0} + 1`;;
esac
# check unknown switch
run_test "repl -nonexistent" 'repl: -nonexistent unknown'
# check with no switches
run_test "repl" 'repl: no cur message'
printf 'Local-Mailbox: mymailbox@localhost\n' >> "$MH"
# check -cc me
cat >$expected <<EOF
From: mymailbox@localhost
To: Test1 <test1@example.com>
cc: mymailbox@localhost
Fcc: +outbox
Subject: Re: Testing message 1
In-reply-to: 1@test.nmh
References: 1@test.nmh
Comments: In-reply-to Test1 <test1@example.com>
message dated "Fri, 29 Sep 2006 00:00:00."
--------
EOF
run_prog repl -cc me -editor true -nowhatnowproc 1
check $expected $actual
# check -nocc me
cat >$expected <<EOF
From: mymailbox@localhost
To: Test1 <test1@example.com>
cc:
Fcc: +outbox
Subject: Re: Testing message 1
In-reply-to: 1@test.nmh
References: 1@test.nmh
Comments: In-reply-to Test1 <test1@example.com>
message dated "Fri, 29 Sep 2006 00:00:00."
--------
EOF
run_prog repl -cc me -nocc me -editor true -nowhatnowproc 1
check $expected $actual
# check -cc me with Local- and Alternate-Mailbox addtions, Bug #36635:
# -nocc me doesn't account for Alternate-Mailboxes.
printf 'Alternate-Mailboxes: user@example.com\n' >> "$MH"
cat >$expected <<EOF
From: mymailbox@localhost
To: Test1 <test1@example.com>
cc: mymailbox@localhost
Fcc: +outbox
Subject: Re: Testing message 1
In-reply-to: 1@test.nmh
References: 1@test.nmh
Comments: In-reply-to Test1 <test1@example.com>
message dated "Fri, 29 Sep 2006 00:00:00."
--------
EOF
run_prog repl -cc me -editor true -nowhatnowproc 1
check $expected $actual
# check -nocc me with Local- and Alternate-Mailbox addtions, Bug #36635:
# -nocc me doesn't account for Alternate-Mailboxes.
cat >$expected <<EOF
From: mymailbox@localhost
To: Test1 <test1@example.com>
cc:
Fcc: +outbox
Subject: Re: Testing message 1
In-reply-to: 1@test.nmh
References: 1@test.nmh
Comments: In-reply-to Test1 <test1@example.com>
message dated "Fri, 29 Sep 2006 00:00:00."
--------
EOF
run_prog repl -cc me -nocc me -editor true -nowhatnowproc 1
check $expected $actual
# check quoting of local part of invalid address, Bug #26780
cat >`mhpath new` <<EOF
From: Test11 <test11@example.com>
To: before_auser@example.com, A. User <auser@example.com>,
after_user@example.com
Date: Fri, 29 Sep 2006 00:00:11
Message-Id: 11@test.nmh
Subject: Testing message 11
This is message number 11
EOF
cat >$expected <<EOF
From: mymailbox@localhost
To: Test11 <test11@example.com>
cc: before_auser@example.com, "A. User" <auser@example.com>,
after_user@example.com
Fcc: +outbox
Subject: Re: Testing message 11
In-reply-to: 11@test.nmh
References: 11@test.nmh
Comments: In-reply-to Test11 <test11@example.com>
message dated "Fri, 29 Sep 2006 00:00:11."
--------
EOF
run_prog repl -cc to -editor true -nowhatnowproc 11
check $expected $actual
exit ${failed:-0}
|
