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

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

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

revision 1.2 by gray, Wed Aug 21 15:27:44 2002 UTC revision 1.3 by gray, Fri Aug 23 12:25:16 2002 UTC
# Line 287  proc mu_test { args } { Line 287  proc mu_test { args } {
287    
288      set result 0      set result 0
289      for {set i 0} {$i < [llength $pattern]} {incr i} {      for {set i 0} {$i < [llength $pattern]} {incr i} {
290            set regexp 0
291            switch -regexp -- "[lindex ${pattern} $i]" {
292                ^-re.*$     { set regexp 1; incr i }
293                ^--          { incr i }
294            }
295    
296          regsub "\[ \t\]*$" [lindex ${pattern} $i] "" pat          regsub "\[ \t\]*$" [lindex ${pattern} $i] "" pat
297          verbose "i=$i, pat=$pat" 2          verbose "i=$i, pat=$pat" 2
298    
299          if [regexp -- "-re.*$" $pat] {          if {$regexp} {
300             verbose "REGEX for $pat / [llength $pat] " 3             verbose "REGEX for $pat / [llength $pat] " 3
301             mu_expect $tmt {             mu_expect $tmt {
302                 $pat { }                 -re $pat { }
303                 default {                 default {
304                     set result 1                     set result 1
305                     break                     break
# Line 316  proc mu_test { args } { Line 322  proc mu_test { args } {
322                         set result 1                         set result 1
323                         break                         break
324                     }                     }
                    mu_expect $tmt {  
                        -re "\[ \t]*\r\n" { }  
                        default {  
                            set result 1  
                            break  
                        }  
                        timeout {  
                            set result -2  
                            break  
                        }  
                        eof {  
                            set result -3  
                            break  
                        }  
                    }  
325                 }                 }
326                 default {                 default {
327                     set result 1                     set result 1
# Line 346  proc mu_test { args } { Line 337  proc mu_test { args } {
337                 }                 }
338             }             }
339         }         }
340           if {$result == 0} {
341               mu_expect $tmt {
342                   -re "\[ \t]*\r\n" { }
343                   default { set result 1 }
344                   timeout { set result -2 }
345                   eof { set result -3 }
346               }
347            }
348      }      }
349      return $result      return $result
350  }  }

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