diff options
Diffstat (limited to 'libmailutils/testsuite/mailbox/address.exp')
-rw-r--r-- | libmailutils/testsuite/mailbox/address.exp | 48 |
1 files changed, 0 insertions, 48 deletions
diff --git a/libmailutils/testsuite/mailbox/address.exp b/libmailutils/testsuite/mailbox/address.exp deleted file mode 100644 index 2809580e9..000000000 --- a/libmailutils/testsuite/mailbox/address.exp +++ /dev/null @@ -1,48 +0,0 @@ -# -*- tcl -*- -# This file is part of Mailutils testsuite. -# Copyright (C) 2002, 2007, 2010 Free Software Foundation, Inc. -# -# 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 3 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., 51 Franklin Street, Fifth Floor, Boston, MA -# 02110-1301 USA. - -mailbox_run ${top_builddir}/examples/addr - -set chan [open ${srcdir}/Addrs r] - -set command "" -for {gets $chan line} {![eof $chan]} {gets $chan line} { - switch -regexp -- "$line" { - "^#.*" { } - "^[^ \t].*=>.*" { - regexp "(.*)=>.*" $line dummy command - set pattern [list $line] - } - "^\$" { - if {$command != ""} { - mailbox_test -pattern $pattern $command - set command "" - } - } - default { - if [info exist pattern] { - set pattern [concat $pattern [list $line]] - } - } - } -} - -close $chan - -# end of address.exp |