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
|
#!/bin/sh
######################################################
#
# Test many basic nmh capabilities.
#
######################################################
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
folders=$MH_TEST_DIR/Mail/.folders
expected=$MH_TEST_DIR/$$.expected
actual=$MH_TEST_DIR/$$.actual
# make second folder
cp -r $MH_TEST_DIR/Mail/inbox $MH_TEST_DIR/Mail/foo1
cp -r $MH_TEST_DIR/Mail/inbox $MH_TEST_DIR/Mail/foo2
# but only list inbox and foo2 in .folders, and sorted differently
cat > $folders <<EOF
inbox
foo2
EOF
# test with no sequence
cat > $expected <<EOF
new: must specify sequences or set Unseen-Sequence
EOF
run_prog new > $actual 2>&1
check $expected $actual
# test with no desired messages
cat > $expected <<EOF
total 0.
EOF
run_prog new aseq > $actual 2>&1
check $expected $actual 'keep first'
run_prog new -folders $folders aseq > $actual 2>&1
check $expected $actual
# test fnext/fprev with no desired messages
cat /dev/null > $expected
run_prog fnext aseq > $actual 2>&1
check $expected $actual 'keep first'
run_prog fprev aseq > $actual 2>&1
check $expected $actual
# add 1 desired message in each folder
echo 'aseq: 1' > $MH_TEST_DIR/Mail/inbox/.mh_sequences
echo 'aseq: 1' > $MH_TEST_DIR/Mail/foo1/.mh_sequences
echo 'aseq: 1' > $MH_TEST_DIR/Mail/foo2/.mh_sequences
# test with all folders
cat > $expected <<EOF
foo1 1. 1
foo2 1. 1
inbox 1.* 1
total 3.
EOF
run_prog new aseq > $actual 2>&1
check $expected $actual
# test with .folders
cat > $expected <<EOF
inbox 1.* 1
foo2 1. 1
total 2.
EOF
run_prog new -folders $folders aseq > $actual 2>&1
check $expected $actual
# add 2 desired messages to another sequence in each folder
echo 'bseq: 3-4' >> $MH_TEST_DIR/Mail/inbox/.mh_sequences
echo 'bseq: 3-4' >> $MH_TEST_DIR/Mail/foo1/.mh_sequences
echo 'bseq: 3-4' >> $MH_TEST_DIR/Mail/foo2/.mh_sequences
# test listing aseq and bseq
cat > $expected <<EOF
foo1 3. 1 3-4
foo2 3. 1 3-4
inbox 3.* 1 3-4
total 9.
EOF
run_prog new aseq bseq > $actual 2>&1
check $expected $actual 'keep first'
# set aseq bseq as unseen
echo 'Unseen-Sequence: aseq bseq' >> $MH
run_prog new > $actual 2>&1
check $expected $actual
# test unseen
cat > $expected <<EOF
3 aseq bseq messages in foo1
1 09/29 Test1 Testing message 1<<This is message number 1 >>
3 09/29 Test3 Testing message 3<<This is message number 3 >>
4 09/29 Test4 Testing message 4<<This is message number 4 >>
3 aseq bseq messages in foo2
1 09/29 Test1 Testing message 1<<This is message number 1 >>
3 09/29 Test3 Testing message 3<<This is message number 3 >>
4 09/29 Test4 Testing message 4<<This is message number 4 >>
3 aseq bseq messages in inbox (*: current folder)
1 09/29 Test1 Testing message 1<<This is message number 1 >>
3 09/29 Test3 Testing message 3<<This is message number 3 >>
4 09/29 Test4 Testing message 4<<This is message number 4 >>
EOF
run_prog unseen > $actual 2>&1
check $expected $actual
# test fnext with the current folder not in the list
echo 'Current-Folder: foo1' > $MH_TEST_DIR/Mail/context
echo 'inbox 1 3-4' > $expected
run_prog fnext -folders $folders > $actual 2>&1
check $expected $actual
# test fprev with the current folder not in the list
echo 'Current-Folder: foo1' > $MH_TEST_DIR/Mail/context
echo 'inbox 1 3-4' > $expected
run_prog fprev -folders $folders > $actual 2>&1
check $expected $actual
# test fnext with current folder in the middle of the list
echo 'Current-Folder: foo2' > $MH_TEST_DIR/Mail/context
echo 'inbox 1 3-4' > $expected
run_prog fnext > $actual 2>&1
check $expected $actual
# test fprev with current folder in the middle of the list
echo 'Current-Folder: foo2' > $MH_TEST_DIR/Mail/context
echo 'foo1 1 3-4' > $expected
run_prog fprev > $actual 2>&1
check $expected $actual
# test fprev with current folder at the beginning of the list
echo 'Current-Folder: foo1' > $MH_TEST_DIR/Mail/context
echo 'inbox 1 3-4' > $expected
run_prog fprev > $actual 2>&1
check $expected $actual
# test fnext with current folder at the end of the list
echo 'Current-Folder: inbox' > $MH_TEST_DIR/Mail/context
echo 'foo1 1 3-4' > $expected
run_prog fnext > $actual 2>&1
check $expected $actual
# test fnext with no current folder
rm $MH_TEST_DIR/Mail/context
echo 'foo1 1 3-4' > $expected
run_prog fnext > $actual 2>&1
check $expected $actual
# test fnext with only one folder in the list
cat > $folders <<EOF
inbox
EOF
echo 'inbox 1 3-4' > $expected
run_prog fnext -folders $folders > $actual 2>&1
check $expected $actual
exit $failed
|
