testsuite.at
2.69 KB
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
# This file is part of GNU Mailutils. -*- Autotest -*-
# Copyright (C) 2007-2012, 2014 Free Software Foundation, Inc.
#
# GNU Mailutils is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 3, or (at
# your option) any later version.
#
# GNU Mailutils is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with GNU Mailutils. If not, see <http://www.gnu.org/licenses/>.
m4_include([testsuite.inc])
dnl ------------------------------------------------------------
dnl FRM_MAILBOX -- mailbox used for testing
m4_define([FRM_MAILBOX],[mbox1])
dnl ------------------------------------------------------------
dnl FRM_OPTIONS -- default options for frm
m4_define([FRM_OPTIONS],[--no-site --no-user])
dnl ------------------------------------------------------------
dnl FRMTEST(DESCR, KW, CMDLINE, [STATUS = `0'], [STDOUT = `'],
dnl [STDERR = `'], [RUN-IF-FAIL], [RUN-IF-PASS])
dnl
m4_define([FRMTEST],[
AT_SETUP([$1])
AT_KEYWORDS([$2])
AT_CHECK([
MAIL=$abs_top_srcdir/testsuite/spool/FRM_MAILBOX
FOLDER=$MAIL
export MAIL FOLDER
frm FRM_OPTIONS $3],
m4_shift(m4_shift(m4_shift($@))))
AT_CLEANUP])
AT_INIT
AT_TESTED([frm])
MUT_VERSION(frm)
FRMTEST([no options],[frm00],
[],
[1],
[Foo Bar Jabberwocky
Bar Re: Jabberwocky
Sergey Poznyakoff Simple MIME
Sergey Poznyakoff Nested MIME
Sergey Poznyakoff Empty MIME Parts
])
FRMTEST([frm -n],[frm-n frm01],
[-n],
[1],
[ 1: Foo Bar Jabberwocky
2: Bar Re: Jabberwocky
3: Sergey Poznyakoff Simple MIME
4: Sergey Poznyakoff Nested MIME
5: Sergey Poznyakoff Empty MIME Parts
])
FRMTEST([frm -l],[frm-l frm02],
[-l],
[1],
[(Bar) Foo Bar Jabberwocky
(Foo Bar) Bar Re: Jabberwocky
(Foo Bar) Sergey Poznyakoff Simple MIME
(Foo Bar) Sergey Poznyakoff Nested MIME
(Foo Bar) Sergey Poznyakoff Empty MIME Parts
])
FRMTEST([frm -qS],[frm-qS frm03],
[-qS],
[1],
[Folder contains 5 new messages.
])
FRMTEST([frm -q],[frm-q frm04],
[-q],
[1],
[There are messages in that folder.
])
FRMTEST([frm +mbox],[frm+mbox frm05],
[--set ":mailbox:folder=$abs_top_srcdir/testsuite/spool" +mbox],
[1],
[Sergey Poznyakoff MBOX
])
FRMTEST([nonexistent mailbox],[frm06],
[-q %nonexistent],
[2],
[No messages in that folder!
])
m4_pushdef([FRM_MAILBOX],[bigto.mbox])
FRMTEST([frm -l on long headers],[frm07],
[-l],
[1],
[(Ayoung-Chee, Nigel Paul -- Nigel Paul Ayoung-Chee) Patrick Chan New email address, etc.
])
m4_popdef([FRM_MAILBOX])