351 |
|
|
352 |
set result 0 |
set result 0 |
353 |
for {set i 0} {$i < [llength $pattern]} {incr i} { |
for {set i 0} {$i < [llength $pattern]} {incr i} { |
354 |
verbose "i=$i, pat=[lindex ${pattern} $i]" 2 |
regsub "\[ \t\]*$" [lindex ${pattern} $i] "" pat |
355 |
set pat [lindex ${pattern} $i] |
verbose "i=$i, pat=$pat" 2 |
356 |
mail_expect $tmt { |
mail_expect $tmt { |
357 |
-ex "$pat\r\n" { |
-ex "$pat" { |
358 |
if { $expect_out(buffer) != $expect_out(0,string) } { |
if { $expect_out(buffer) != $expect_out(0,string) } { |
359 |
verbose "Got \"$expect_out(buffer)\"" 2 |
verbose "Got \"$expect_out(buffer)\"" 2 |
360 |
verbose "instead of expected \"$pat\\r\\n\"" 2 |
verbose "instead of expected \"$pat\\r\\n\"" 2 |
361 |
set result 1 |
set result 1 |
362 |
break |
break |
363 |
} |
} |
364 |
|
mail_expect $tmt { |
365 |
|
-re "\[ \t]*\r\n" { } |
366 |
|
default { |
367 |
|
set result 1 |
368 |
|
break |
369 |
|
} |
370 |
|
timeout { |
371 |
|
set result -2 |
372 |
|
break |
373 |
|
} |
374 |
|
eof { |
375 |
|
set result -3 |
376 |
|
break |
377 |
|
} |
378 |
|
} |
379 |
} |
} |
380 |
default { |
default { |
381 |
set result 1 |
set result 1 |