diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-11-03 13:03:09 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-11-03 13:03:09 +0000 |
commit | 92491e13cc83dc802b06b509fd0ec54e3fdcc9eb (patch) | |
tree | 907dca5611ca164ce9a64b7ef289c082193add1f /testsuite | |
parent | a6265e25a3e0274d2a9c5b328962d9de0aedd3d7 (diff) | |
download | mailutils-92491e13cc83dc802b06b509fd0ec54e3fdcc9eb.tar.gz mailutils-92491e13cc83dc802b06b509fd0ec54e3fdcc9eb.tar.bz2 |
Minor fixes
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/lib/mailutils.exp | 13 |
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." |