Lines Matching full:expect

30 	my ($expect, $got) = @_;
36 	while ($expect) {
38 		($expect_next, $type) = split(/<</, $expect);
40 		$expect =~ s/^.*?>>//;	# '?' is non-greedy, minimal match
102     --hide-expect      suppress output of EXPECTed lines
104     --no-expect-stats  do not report EXPECT statistics
106     --verbose          do not suppress EXPECT begin and end lines
116   to occur with an 'EXPECT \\ : text' (begin) before triggering the
117   message, and an 'EXPECT / : text' (end) after triggering the message.
121   For each expected message, the 'EXPECT \\ : text' (begin) and
122   'EXPECT / : text' (end), 'text' will contain the message text.
124   If 'EXPECT \\' (begin) and 'EXPECT /' (end) lines do not contain
127   If EXPECT lines are nested, 'EXPECT /' (end) lines must be in the
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
170 	"hide-expect"     => \$hide_expect,
172 	"no-expect-stats" => \$no_expect_stats,
221 	# names on the command line, but the EXPECT statistics are reported
235 # Patterns to match 'EXPECT \ : ' (begin) and 'EXPECT / : ' (end)
244 $exp_begin = "${pr_fmt}EXPECT \\\\ : ";
245 $exp_end   = "${pr_fmt}EXPECT / : ";
279 	# -----  find EXPECT begin
297 	# -----  find EXPECT end
327 			print "** ERROR: EXPECT end without matching EXPECT begin:\n";
343 			print "** ERROR: EXPECT end does not match EXPECT begin:\n";
437 	# -----  not an EXPECT line
506 	print  "** EXPECT statistics:\n";
510 	printf "**     EXPECT found              : %4i\n", $exp_found;
515 	printf "**     EXPECT not found          : %4i\n", $exp_missing;
516 	printf "**     missing EXPECT begin      : %4i\n", $exp_missing_begin;
517 	printf "**     missing EXPECT end        : %4i\n", $exp_missing_end;
528 	print "** ERROR: EXPECT begin without matching EXPECT end:\n";