summaryrefslogtreecommitdiff
path: root/testsuite
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2002-11-03 13:03:09 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2002-11-03 13:03:09 +0000
commit92491e13cc83dc802b06b509fd0ec54e3fdcc9eb (patch)
tree907dca5611ca164ce9a64b7ef289c082193add1f /testsuite
parenta6265e25a3e0274d2a9c5b328962d9de0aedd3d7 (diff)
downloadmailutils-92491e13cc83dc802b06b509fd0ec54e3fdcc9eb.tar.gz
mailutils-92491e13cc83dc802b06b509fd0ec54e3fdcc9eb.tar.bz2
Minor fixes
Diffstat (limited to 'testsuite')
-rw-r--r--testsuite/lib/mailutils.exp13
1 files changed, 9 insertions, 4 deletions
diff --git a/testsuite/lib/mailutils.exp b/testsuite/lib/mailutils.exp
index ebd8409b2..34cb3c862 100644
--- a/testsuite/lib/mailutils.exp
+++ b/testsuite/lib/mailutils.exp
@@ -620,11 +620,14 @@ proc mu_test_file {args} {
for {set i 0} {$i < [llength $args]} {incr i} {
set a [lindex $args $i]
if {"$a" == "-default"} {
- set default [lindex $args [expr $i + 1]]
incr i
+ set default [lindex $args $i]
+ } elseif {"$a" == "-pattern"} {
+ incr i
+ set pattern [lindex $args $i]
} elseif {"$a" == "-message"} {
- set message [lindex $args [expr $i + 1]]
incr i
+ set message [lindex $args $i]
} else {
set args [lrange $args $i end]
break
@@ -640,8 +643,10 @@ proc mu_test_file {args} {
}
set filename [lindex $args 0]
- set pattern [lrange $args 1 end]
-
+ if ![info exists pattern] {
+ set pattern [lrange $args 1 end]
+ }
+
set res [remote_spawn host "/bin/cat $filename"]
if { $res < 0 || $res == "" } {
perror "Reading $filename failed."

Return to:

Send suggestions and report system problems to the System administrator.