diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-11-04 17:47:30 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-11-04 17:47:30 +0000 |
commit | 7fe78e5f6bf91ebc15f786ede785c2a0d93337a4 (patch) | |
tree | ec512ca362a6f4145e439057764c5bcc0d57102f /mail.remote | |
parent | c2745178e58a2f0e1cd3e865ef858b3e828f23a7 (diff) | |
download | mailutils-7fe78e5f6bf91ebc15f786ede785c2a0d93337a4.tar.gz mailutils-7fe78e5f6bf91ebc15f786ede785c2a0d93337a4.tar.bz2 |
Invoke mu_init with -noflags.
Diffstat (limited to 'mail.remote')
-rw-r--r-- | mail.remote/testsuite/lib/mail.remote.exp | 36 |
1 files changed, 10 insertions, 26 deletions
diff --git a/mail.remote/testsuite/lib/mail.remote.exp b/mail.remote/testsuite/lib/mail.remote.exp index d3098884d..14d3620ac 100644 --- a/mail.remote/testsuite/lib/mail.remote.exp +++ b/mail.remote/testsuite/lib/mail.remote.exp @@ -18,16 +18,19 @@ source $top_srcdir/testsuite/lib/mailutils.exp -mu_init +mu_init -noflags mu_prepare_spools set mu_filename "$MU_FOLDER_DIR/mta.diag" set env(MTA_DIAG) "$mu_filename" -# mailer_remote_test [-message MESSAGE][-default (FAIL|XFAIL)] -# [-from FROM][-to TO][-pattern PATTERN-LIST][PATTERN...] +# mail_remote_test [-message MESSAGE][-default (FAIL|XFAIL)] +# [-input INPUT-LIST] +# [-args ARGS][-pattern PATTERN-LIST][PATTERN...] +# INPUT-LIST - List of input strings for MU_TOOL # PATTERN - Sequence to expect in return. # MESSAGE - [optional] message to output -proc mailer_remote_test { args } { +# ARGS - Additional arguments to MU_TOOL +proc mail_remote_test { args } { global MU_TOOL global top_builddir global verbose @@ -84,14 +87,6 @@ proc mailer_remote_test { args } { } } - verbose "Spawning $MU_TOOL --mailer $url $invocation" 1 - - set res [remote_spawn host "$MU_TOOL --mailer $url $invocation"] - if { $res < 0 || $res == "" } { - perror "Spawning $MU_TOOL $invocation failed." - return 1; - } - if {"$message" == ""} { set message [lindex $args 0] } @@ -100,20 +95,9 @@ proc mailer_remote_test { args } { send_user "Message is \"$message\"\n" } - set result "" - verbose "INPUT: $input" 1 - for {set i 0} {$result == "" && $i < [llength $input]} {incr i} { - set s [lindex $input $i] - verbose "SEND: $s" 1 - set result [mu_send "[lindex $input $i]\n"] - verbose "RESULT: $result" - } - - mu_send "" - - remote_wait host 60 - - return [mu_test_file -default $default -message $message -pattern $pattern $mu_filename] + return [mailer_test -default $default -message $message \ + -input $input -pattern $pattern -file \ + $mu_filename -args "--mailer $url $invocation"] } |