/[mailutils]/mailutils/sieve/testsuite/lib/sieve.exp
ViewVC logotype

Diff of /mailutils/sieve/testsuite/lib/sieve.exp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by gray, Mon Nov 18 17:11:12 2002 UTC revision 1.4 by gray, Tue Nov 19 13:52:02 2002 UTC
# Line 30  proc sieve_test {args} { Line 30  proc sieve_test {args} {
30      global top_builddir      global top_builddir
31            
32      set default ""      set default ""
33      set sw [list "-M sendmail:$top_builddir/examples/mta" \      set sw [list "--verbose" \
34                     "-M sendmail:$top_builddir/examples/mta" \
35                   "--email foobar@nonexistent.net"]                   "--email foobar@nonexistent.net"]
36      set reuse_spool 0      set reuse_spool 0
37        set retcode 0
38      for {set i 0} {$i < [llength $args]} {incr i} {      for {set i 0} {$i < [llength $args]} {incr i} {
39          set a [lindex $args $i]          set a [lindex $args $i]
40          if {"$a" == "-default"} {          if {"$a" == "-default"} {
             set default [lindex $args [expr $i + 1]]  
41              incr i              incr i
42                set default [lindex $args $i]
43          } elseif {"$a" == "-message"} {          } elseif {"$a" == "-message"} {
             set message [lindex $args [expr $i + 1]]  
44              incr i              incr i
45                set message [lindex $args $i]
46          } elseif {"$a" == "-pattern"} {          } elseif {"$a" == "-pattern"} {
47              incr i              incr i
48              set pattern [lrange $args $i end]              set pattern [lrange $args $i end]
# Line 48  proc sieve_test {args} { Line 50  proc sieve_test {args} {
50          } elseif {"$a" == "-reuse-spool"} {          } elseif {"$a" == "-reuse-spool"} {
51              set reuse_spool 1              set reuse_spool 1
52              break              break
53            } elseif {"$a" == "-retcode"} {
54                incr i
55                set retcode [lindex $args $i]
56          } else {          } else {
57              set sw [concat $sw [lindex $args $i]]              set sw [concat $sw [lindex $args $i]]
58          }          }
# Line 71  proc sieve_test {args} { Line 76  proc sieve_test {args} {
76    
77      if [info exists pattern] {      if [info exists pattern] {
78          mu_exec -default $default -message $message -arg-list $sw \          mu_exec -default $default -message $message -arg-list $sw \
79                  -pattern $pattern                  -pattern $pattern -retcode $retcode
80      } else {      } else {
81          mu_exec -default $default -message $message -arg-list $sw          mu_exec -default $default -message $message -arg-list $sw \
82                    -retcode $retcode
83      }      }
84      #FIXME: examine the output mailbox      #FIXME: examine the output mailbox
85  }  }

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26