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

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

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

revision 1.2 by gray, Fri Aug 23 12:26:16 2002 UTC revision 1.3 by gray, Sun Aug 25 12:40:40 2002 UTC
# Line 155  proc imap4d_command { cmd } { Line 155  proc imap4d_command { cmd } {
155      return [mu_command [imap4d_make_command $cmd]]      return [mu_command [imap4d_make_command $cmd]]
156  }  }
157    
158    proc imap4d_uidvalidity {} {
159            regsub "(\[0-9\]*)\[0-9\]" "[clock seconds]" "\\1\[0-9\]" val
160            return $val
161    }
162    
163  proc imap4d_exit {} {  proc imap4d_exit {} {
164      if [imap4d_test "LOGOUT"\      if [imap4d_test "LOGOUT"\
165              "BYE Session terminating." \              "BYE Session terminating." \
# Line 217  proc imap4d_test { args } { Line 222  proc imap4d_test { args } {
222    
223      if {$len >= 2} {      if {$len >= 2} {
224          set regexp 0          set regexp 0
225            set literal 0
226          for {set i 1} {$i <= [expr $len - 1]} {incr i} {          for {set i 1} {$i <= [expr $len - 1]} {incr i} {
227              switch -regexp -- "[lindex $args $i]" {              switch -regexp -- "[lindex $args $i]" {
228                  -re.*$  -                  ^-re.*$ -
229                  --      { set item "[lindex $args $i]"; set regexp 1 }                  ^--     { set item "[lindex $args $i]"; set regexp 1 }
230                  default { if {$regexp} {                  ^-literal   { set literal 1; continue }
231                                set item "\\* [lindex $args $i]"                  ^-noliteral { set literal 0; continue }
232                            } else {                  default {  if {!$literal} {
233                                set item "* [lindex $args $i]"                                  if {$regexp} {
234                            }                                      set item "\\* [lindex $args $i]"
235                            set regexp 0                                  } else {
236                        }                                      set item "* [lindex $args $i]"
237                                    }
238                               } else {
239                                    set item [lindex $args $i]
240                               }
241                               set regexp 0
242                           }
243              }              }
244                            
245              set pattern [concat $pattern [list $item]]              set pattern [concat $pattern [list $item]]

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

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