1# -*- tcl -*-
2# This file is part of Mailutils testsuite.
3# Copyright (C) 2002-2021 Free Software Foundation, Inc.
4#
5# GNU Mailutils is free software; you can redistribute it and/or modify
6# it under the terms of the GNU General Public License as published by
7# the Free Software Foundation; either version 3 of the License, or
8# (at your option) any later version.
9#
10# GNU Mailutils is distributed in the hope that it will be useful,
11# but WITHOUT ANY WARRANTY; without even the implied warranty of
12# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13# GNU General Public License for more details.
14#
15# You should have received a copy of the GNU General Public License
16# along with GNU Mailutils.  If not, see <http://www.gnu.org/licenses/>.
17
18# Test mailbox name expansion and various aspects of `file' and `folders'
19# functionality.
20
21mail_start "--file=%mbox1"
22mail_command "set readonly"
23
24mail_command "set folder=\"$MU_FOLDER_DIR\""
25mail_test "folders" -re "one.*two"
26
27mail_test "file +one" \
28 "Held 5 messages in $MU_SPOOL_DIR/mbox1"
29mail_test "sum" \
30 "\"$MU_FOLDER_DIR/one\": 1 message 1 new"
31mail_test "headers" \
32 ">N   1 Foo Bar            Fri Dec 28 22:18  11/351   Mailbox 1"
33
34mail_test "file +two" \
35 "Held 1 message in $MU_FOLDER_DIR/one"
36mail_test "sum" \
37 "\"$MU_FOLDER_DIR/two\": 1 message 1 new"
38mail_test "headers" \
39 ">N   1 Foo Bar            Fri Dec 28 22:18  11/351   Mailbox 2"
40
41mail_test "file #" \
42 "Held 1 message in $MU_FOLDER_DIR/two"
43mail_test "sum" \
44 "\"$MU_FOLDER_DIR/one\": 1 message 1 new"
45
46mail_test "file #" \
47 "Held 1 message in $MU_FOLDER_DIR/one"
48mail_test "sum" \
49 "\"$MU_FOLDER_DIR/two\": 1 message 1 new"
50
51mail_test "file &" \
52 "Held 1 message in $MU_FOLDER_DIR/two"
53mail_test "sum" \
54 "\"$MU_SPOOL_DIR/mbox\": 1 message 1 new"
55mail_test "headers" \
56 ">N   1 Sergey Poznyakoff  Tue Jul 16 12:11  13/391   MBOX"
57
58mail_stop
59
60#End of folder.exp
61