414 |
} else { |
} else { |
415 |
anubis_expect $tmt { |
anubis_expect $tmt { |
416 |
-ex "$pat" { |
-ex "$pat" { |
417 |
# if { $expect_out(buffer) != $expect_out(0,string) } { |
if { $expect_out(buffer) != $expect_out(0,string) } { |
418 |
# verbose "Got \"$expect_out(buffer)\"" 2 |
verbose "Got \"$expect_out(buffer)\"" 2 |
419 |
# verbose "instead of expected \"$pat\\r\\n\"" 2 |
verbose "instead of expected \"$pat\\r\\n\"" 2 |
420 |
# set result 1 |
set result 1 |
421 |
# break |
break |
422 |
# } |
} |
423 |
} |
} |
424 |
default { |
default { |
425 |
set result 1 |
set result 1 |
510 |
verbose "i=$i, pat=$pat, regexp=$regexp" 2 |
verbose "i=$i, pat=$pat, regexp=$regexp" 2 |
511 |
|
|
512 |
if {$regexp} { |
if {$regexp} { |
|
verbose "REGEX for $pat / [llength $pat] " 3 |
|
513 |
anubis_expect $tmt { |
anubis_expect $tmt { |
514 |
-re "$pat\[ \r\t\]*\r\n" { } |
-re "$pat\[ \r\t\]*\r\n" { } |
515 |
default { |
default { |
528 |
} else { |
} else { |
529 |
anubis_expect $tmt { |
anubis_expect $tmt { |
530 |
-ex "$pat" { |
-ex "$pat" { |
531 |
# if { $expect_out(buffer) != $expect_out(0,string) } { |
if { $expect_out(buffer) != $expect_out(0,string) } { |
532 |
# verbose "Got \"$expect_out(buffer)\"" 2 |
verbose "Got \"$expect_out(buffer)\"" 2 |
533 |
# verbose "instead of expected \"$pat\\r\\n\"" 2 |
verbose "instead of expected \"$pat\\r\\n\"" 2 |
534 |
# set result 1 |
set result 1 |
535 |
# break |
break |
536 |
# } |
} |
537 |
} |
} |
538 |
default { |
default { |
539 |
set result 1 |
set result 1 |