Lines Matching full:begin
106 --verbose do not suppress EXPECT begin and end lines
116 to occur with an 'EXPECT \\ : text' (begin) before triggering the
121 For each expected message, the 'EXPECT \\ : text' (begin) and
124 If 'EXPECT \\' (begin) and 'EXPECT /' (end) lines do not contain
128 reverse order of the corresponding 'EXPECT \\' (begin) lines.
130 'EXPECT \\ : text' (begin) and 'EXPECT / : text' (end) lines can
137 'EXPECT \\' (begin) and 'EXPECT /' (end) lines are suppressed.
141 'ok ' Line matches an enclosing EXPECT begin/end pair
235 # Patterns to match 'EXPECT \ : ' (begin) and 'EXPECT / : ' (end)
279 # ----- find EXPECT begin
313 $begin = pop @exp_found_or_begin;
314 if (compare($data, $begin)) {
318 } elsif (@begin > 0) {
319 $begin = pop @exp_begin_stack;
327 print "** ERROR: EXPECT end without matching EXPECT begin:\n";
340 } elsif (! compare($data, $begin) and ($data ne $begin)) {
343 print "** ERROR: EXPECT end does not match EXPECT begin:\n";
344 print " begin -> $begin\n";
353 # ----- find EXPECT_NOT begin
387 $begin = pop @expnot_found_or_begin;
388 if (compare($data, $begin)) {
399 print "** ERROR: EXPECT_NOT end without matching EXPECT_NOT begin:\n";
421 $begin = pop @expnot_begin_stack;
423 if (! compare($data, $begin) and ($data ne $begin)) {
426 print "** ERROR: EXPECT_NOT end does not match EXPECT_NOT begin:\n";
427 print " begin -> $begin\n";
448 foreach $begin (@exp_begin_stack) {
449 if (compare($begin, $line)) {
456 $begin = shift @exp_begin_stack;
457 while (! compare($begin, $line)) {
458 push @exp_found_or_begin, $begin;
459 $begin = shift @exp_begin_stack;
471 foreach $begin (@expnot_begin_stack) {
472 if (compare($begin, $line)) {
479 $begin = shift @begin;
480 while (! compare($begin, $line)) {
481 push @expnot_found_or_begin, $begin;
482 $begin = shift @begin;
516 printf "** missing EXPECT begin : %4i\n", $exp_missing_begin;
520 printf "** missing EXPECT_NOT begin : %4i\n", $expnot_missing_begin;
528 print "** ERROR: EXPECT begin without matching EXPECT end:\n";
530 foreach $begin (@exp_begin_stack) {
531 print " begin ---> $begin\n";
536 print "** ERROR: EXPECT_NOT begin without matching EXPECT_NOT end:\n";
538 foreach $begin (@expnot_begin_stack) {
539 print " begin ---> $begin\n";