diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-01-27 15:49:55 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2004-01-27 15:49:55 +0000 |
commit | 6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71 (patch) | |
tree | 760b1bb535fc6f500171a2bae1e8d65e53ce4c3b /mail.remote | |
parent | d4de53bb22818c8a7ffa97daa5deeff2e849deff (diff) | |
download | mailutils-6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71.tar.gz mailutils-6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71.tar.bz2 |
(mail_remote_test):Added OPTION statement
Diffstat (limited to 'mail.remote')
-rw-r--r-- | mail.remote/testsuite/lib/mail.remote.exp | 2 | ||||
-rw-r--r-- | mail.remote/testsuite/mail.remote/send.exp | 8 |
2 files changed, 9 insertions, 1 deletions
diff --git a/mail.remote/testsuite/lib/mail.remote.exp b/mail.remote/testsuite/lib/mail.remote.exp index 14d3620ac..b1d6ac9a8 100644 --- a/mail.remote/testsuite/lib/mail.remote.exp +++ b/mail.remote/testsuite/lib/mail.remote.exp @@ -2,3 +2,3 @@ # This file is part of Mailutils testsuite. -# Copyright (C) 2002, Free Software Foundation +# Copyright (C) 2002, 2004, Free Software Foundation # diff --git a/mail.remote/testsuite/mail.remote/send.exp b/mail.remote/testsuite/mail.remote/send.exp index dfbf561ec..21e2ee52e 100644 --- a/mail.remote/testsuite/mail.remote/send.exp +++ b/mail.remote/testsuite/mail.remote/send.exp @@ -30,2 +30,3 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} { verbose "INPUT $input" 1 + verbose "OPTIONS $options" 1 verbose "PATTERN $pattern" 1 @@ -35,2 +36,5 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} { } + if {$options != ""} { + append args " $options" + } if {$to != ""} { @@ -46,2 +50,3 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} { set to "" + set options "" set input [list] @@ -56,2 +61,5 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} { } + "^OPTIONS" { + regexp "^OPTIONS (.*)" $line dummy options + } "^BODY BEGIN" { |