tag.exp
4.35 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
# -*- tcl -*-
# This file is part of Mailutils testsuite.
# Copyright (C) 2002, 2007, 2010-2012, 2014-2017 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 of the License, 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/>.
mail_start "--file=%teaparty.mbox"
mail_command "set readonly"
mail_test "from 1,2,5-7 9" \
">N 1 March Hare Mon Jul 29 22:00 10/301 Invitation"\
" N 2 Alice Mon Jul 29 22:00 10/311 Re: Invitation"\
" N 5 March Hare Mon Jul 29 22:00 10/352 Re: Invitation"\
" N 6 Alice Mon Jul 29 22:00 11/367 Re: Invitation"\
" N 7 March Hare Mon Jul 29 22:00 10/315 Personal remark"\
" N 9 March Hare Mon Jul 29 22:00 10/344 Riddle (was Re: Personal "
mail_test "from ^" \
">N 1 March Hare Mon Jul 29 22:00 10/301 Invitation"\
mail_test "from $" \
" N 95 Alice Mon Jul 29 22:01 11/379 Thoughts"
# FIXME: not yet functional
#mail_test "from hatter"
mail_test "tag from:/dormouse/"
mail_test "from :t" \
" T 17 Dormouse Mon Jul 29 22:00 12/442 Re: Be specific"\
" T 31 Dormouse Mon Jul 29 22:00 11/364 Re: Remark"\
" T 49 Dormouse Mon Jul 29 22:00 10/349 Re: Discussing Time"\
" T 61 Dormouse Mon Jul 29 22:01 11/382 Re: Request for a story"\
" T 65 Dormouse Mon Jul 29 22:01 12/471 Story (was Re: Request fo"\
" T 67 Dormouse Mon Jul 29 22:01 10/313 Re: Story"\
" T 69 Dormouse Mon Jul 29 22:01 10/315 Re: Story"\
" T 77 Dormouse Mon Jul 29 22:01 10/314 Re: Story"\
" T 79 Dormouse Mon Jul 29 22:01 11/358 Re: Story"\
" T 81 Dormouse Mon Jul 29 22:01 11/378 Re: Story"\
" T 83 Dormouse Mon Jul 29 22:01 10/300 Re: Story"\
" T 88 Dormouse Mon Jul 29 22:01 10/322 Re: Story"\
" T 89 Dormouse Mon Jul 29 22:01 11/390 Re: Story"\
" T 91 Dormouse Mon Jul 29 22:01 10/300 Re: Story"\
" T 92 Dormouse Mon Jul 29 22:01 13/487 Re: Story"
mail_command "untag :t"
mail_test "from :t"
# FIXME: This should be a single command, actually. But readline's echo
# seems to split it so that mail_command fails.
mail_command "tag subject:/invitation/"
mail_command "tag subject:/riddle/"
mail_command "tag subject:/time/"
mail_command "tag subject:/watch/"
mail_command "tag subject:/specific/"
mail_command "tag subject:/guess/"
mail_command "tag subject:/story/"
mail_test "from :T" \
" N 7 March Hare Mon Jul 29 22:00 10/315 Personal remark"\
" N 8 Alice Mon Jul 29 22:00 10/358 Re: Personal remark"\
" N 30 Hatter Mon Jul 29 22:00 10/327 Remark"\
" N 31 Dormouse Mon Jul 29 22:00 11/364 Re: Remark"\
" N 71 March Hare Mon Jul 29 22:01 10/301 Remark"\
" N 72 Alice Mon Jul 29 22:01 11/330 Re: Remark"\
" N 73 Hatter Mon Jul 29 22:01 11/358 Re: Remark"\
" N 74 Alice Mon Jul 29 22:01 10/317 Personal remark"\
" N 75 Hatter Mon Jul 29 22:01 10/330 Re: Personal remark"\
" N 84 Hatter Mon Jul 29 22:01 11/351 Let's move"\
" N 94 Hatter Mon Jul 29 22:01 10/311 Rude remark"\
" N 95 Alice Mon Jul 29 22:01 11/379 Thoughts"
mail_command "untag :t"
#FIXME: should be 'mail_command "print 2"'
mail_test "print 2" \
"Received: (from alice@wonder.land) "\
" by wonder.land id 3302"\
" for hare@wonder.land; Mon, 29 Jul 2002 22:00:07 +0100"\
"Date: Mon, 29 Jul 2002 22:00:02 +0100"\
"From: Alice <alice@wonder.land>"\
"Message-Id: <200207292200.3302@wonder.land>"\
"To: March Hare <hare@wonder.land>"\
"Subject: Re: Invitation"\
""\
"I don't see any wine"
mail_test "from :r" \
">R 2 Alice Mon Jul 29 22:00 10/311 Re: Invitation"
mail_stop
# End of tag.exp