summaryrefslogtreecommitdiffabout
path: root/mail.remote
authorSergey Poznyakoff <gray@gnu.org.ua>2004-01-27 15:49:55 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2004-01-27 15:49:55 (GMT)
commit6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71 (patch) (side-by-side diff)
tree760b1bb535fc6f500171a2bae1e8d65e53ce4c3b /mail.remote
parentd4de53bb22818c8a7ffa97daa5deeff2e849deff (diff)
downloadmailutils-6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71.tar.gz
mailutils-6b9f7ed98b4bdb0a21c54aaf9eb5cfefc48cbc71.tar.bz2
(mail_remote_test):Added OPTION statement
Diffstat (limited to 'mail.remote') (more/less context) (ignore whitespace changes)
-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 14d3620..b1d6ac9 100644
--- a/mail.remote/testsuite/lib/mail.remote.exp
+++ b/mail.remote/testsuite/lib/mail.remote.exp
@@ -1,6 +1,6 @@
# -*- tcl -*-
# This file is part of Mailutils testsuite.
-# Copyright (C) 2002, Free Software Foundation
+# Copyright (C) 2002, 2004, 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
diff --git a/mail.remote/testsuite/mail.remote/send.exp b/mail.remote/testsuite/mail.remote/send.exp
index dfbf561..21e2ee5 100644
--- a/mail.remote/testsuite/mail.remote/send.exp
+++ b/mail.remote/testsuite/mail.remote/send.exp
@@ -28,11 +28,15 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
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"
}
@@ -44,6 +48,7 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
regexp "^MESSAGE (.*)" $line dummy message
set from ""
set to ""
+ set options ""
set input [list]
set pattern [list]
set state 1
@@ -54,6 +59,9 @@ for {gets $chan line} {![eof $chan]} {gets $chan line} {
"^TO" {
regexp "^TO (.*)" $line dummy to
}
+ "^OPTIONS" {
+ regexp "^OPTIONS (.*)" $line dummy options
+ }
"^BODY BEGIN" {
set state 2
}

Return to:

Send suggestions and report system problems to the System administrator.