diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2009-03-27 10:40:42 +0200 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2009-03-27 10:48:01 +0200 |
commit | 40fffffb6c6b5b10642428408f49bec401668f68 (patch) | |
tree | 1594a900cb0f835cfc69f0c1b46d759a582c8d19 /mail.remote/testsuite/mail.remote | |
parent | 4d8141cf92b2efa977ea0f214663b79e58ba0e1b (diff) | |
download | mailutils-40fffffb6c6b5b10642428408f49bec401668f68.tar.gz mailutils-40fffffb6c6b5b10642428408f49bec401668f68.tar.bz2 |
Finish removing mail.local and mail.remote
Diffstat (limited to 'mail.remote/testsuite/mail.remote')
-rw-r--r-- | mail.remote/testsuite/mail.remote/DISTFILES | 1 | ||||
-rw-r--r-- | mail.remote/testsuite/mail.remote/send.exp | 93 |
2 files changed, 0 insertions, 94 deletions
diff --git a/mail.remote/testsuite/mail.remote/DISTFILES b/mail.remote/testsuite/mail.remote/DISTFILES deleted file mode 100644 index 6a29f1d22..000000000 --- a/mail.remote/testsuite/mail.remote/DISTFILES +++ /dev/null @@ -1 +0,0 @@ -send.exp diff --git a/mail.remote/testsuite/mail.remote/send.exp b/mail.remote/testsuite/mail.remote/send.exp deleted file mode 100644 index 5723a0b47..000000000 --- a/mail.remote/testsuite/mail.remote/send.exp +++ /dev/null @@ -1,93 +0,0 @@ -# -*- tcl -*- -# This file is part of Mailutils testsuite. -# Copyright (C) 2002, 2004, 2007 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 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. - -set chan [open ${srcdir}/Data r] - -set state 0 -set command "" -for {gets $chan line} {![eof $chan]} {gets $chan line} { - verbose "LINE $line" 1 - switch -regexp -- "$line" { - "^#.*" { } - "^MESSAGE END" { - verbose "MAIL FROM $from" 1 - verbose "MAIL TO $to" 1 - verbose "INPUT $input" 1 - verbose "OPTIONS $options" 1 - verbose "PATTERN $pattern" 1 - set args "" - if {$from != ""} { - append args " --from $from" - } - if {$options != ""} { - append args " $options" - } - if {$to != ""} { - append args " $to" - } - mail_remote_test -message $message -input $input \ - -pattern $pattern -args $args - set state 0 - } - "^MESSAGE" { - regexp "^MESSAGE (.*)" $line dummy message - set from "" - set to "" - set options "" - set input [list] - set pattern [list] - set state 1 - } - "^FROM" { - regexp "^FROM (.*)" $line dummy from - } - "^TO" { - regexp "^TO (.*)" $line dummy to - } - "^OPTIONS" { - regexp "^OPTIONS (.*)" $line dummy options - } - "^BODY BEGIN" { - set state 2 - } - "^BODY END" { - set state 1 - } - "^PATTERN BEGIN" { - set state 3 - } - "^PATTERN END" { - set state 1 - } - "^STOP" { - break - } - default { - if {$state == 2} { - lappend input $line - } elseif {$state == 3} { - lappend pattern $line - } - } - } -} - -close $chan - -# End of send.exp |