diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-11-19 13:52:02 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-11-19 13:52:02 +0000 |
commit | 1861e5c6a8d5c28cce82f364fdf0e6746a14496a (patch) | |
tree | 61ef84ef0260a08d7a7cafc4017e68e0de797f06 | |
parent | aafe991b7aae4b7653dfe5a1473e1c86c0f1311e (diff) | |
download | mailutils-1861e5c6a8d5c28cce82f364fdf0e6746a14496a.tar.gz mailutils-1861e5c6a8d5c28cce82f364fdf0e6746a14496a.tar.bz2 |
(sieve_test): Pass --verbose switch to sieve. Added -retcode option.
-rw-r--r-- | sieve/testsuite/lib/sieve.exp | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/sieve/testsuite/lib/sieve.exp b/sieve/testsuite/lib/sieve.exp index 196a21b8e..d5e2cbaad 100644 --- a/sieve/testsuite/lib/sieve.exp +++ b/sieve/testsuite/lib/sieve.exp @@ -30,17 +30,19 @@ proc sieve_test {args} { global top_builddir set default "" - set sw [list "-M sendmail:$top_builddir/examples/mta" \ + set sw [list "--verbose" \ + "-M sendmail:$top_builddir/examples/mta" \ "--email foobar@nonexistent.net"] set reuse_spool 0 + set retcode 0 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" == "-message"} { - set message [lindex $args [expr $i + 1]] incr i + set message [lindex $args $i] } elseif {"$a" == "-pattern"} { incr i set pattern [lrange $args $i end] @@ -48,6 +50,9 @@ proc sieve_test {args} { } elseif {"$a" == "-reuse-spool"} { set reuse_spool 1 break + } elseif {"$a" == "-retcode"} { + incr i + set retcode [lindex $args $i] } else { set sw [concat $sw [lindex $args $i]] } @@ -71,9 +76,10 @@ proc sieve_test {args} { if [info exists pattern] { mu_exec -default $default -message $message -arg-list $sw \ - -pattern $pattern + -pattern $pattern -retcode $retcode } else { - mu_exec -default $default -message $message -arg-list $sw + mu_exec -default $default -message $message -arg-list $sw \ + -retcode $retcode } #FIXME: examine the output mailbox } |