summaryrefslogtreecommitdiffabout
path: root/mail.remote
authorSergey Poznyakoff <gray@gnu.org.ua>2002-11-04 17:47:30 (GMT)
committer Sergey Poznyakoff <gray@gnu.org.ua>2002-11-04 17:47:30 (GMT)
commit7fe78e5f6bf91ebc15f786ede785c2a0d93337a4 (patch) (side-by-side diff)
treeec512ca362a6f4145e439057764c5bcc0d57102f /mail.remote
parentc2745178e58a2f0e1cd3e865ef858b3e828f23a7 (diff)
downloadmailutils-7fe78e5f6bf91ebc15f786ede785c2a0d93337a4.tar.gz
mailutils-7fe78e5f6bf91ebc15f786ede785c2a0d93337a4.tar.bz2
Invoke mu_init with -noflags.
Diffstat (limited to 'mail.remote') (more/less context) (ignore whitespace changes)
-rw-r--r--mail.remote/testsuite/lib/mail.remote.exp36
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 d309888..14d3620 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"]
}

Return to:

Send suggestions and report system problems to the System administrator.