diff options
-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 @@ -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 dfbf561ec..21e2ee52e 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 } |