summaryrefslogtreecommitdiff
path: root/mail.remote
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2004-01-27 15:49:55 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2004-01-27 15:49:55 +0000
commit6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71 (patch)
tree760b1bb535fc6f500171a2bae1e8d65e53ce4c3b /mail.remote
parentd4de53bb22818c8a7ffa97daa5deeff2e849deff (diff)
downloadmailutils-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.exp2
-rw-r--r--mail.remote/testsuite/mail.remote/send.exp8
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" {

Return to:

Send suggestions and report system problems to the System administrator.