summaryrefslogtreecommitdiff
path: root/mail/testsuite/mail/tag.exp
blob: bc878a51d3e803ea71ffbc0da830ab17dd99f620 (plain)
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, Free Software Foundation
#  
# This program 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 2 of the License, or
# (at your option) any later version.
#   
# This program 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 this program; if not, write to the Free Software Foundation,
# Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. 

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

Return to:

Send suggestions and report system problems to the System administrator.