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