Lines Matching refs:expect
13 # y expect a match
14 # n expect no match
15 # c expect an error
59 ($pat, $subject, $result, $repl, $expect, $reason) = split(/\t/,$_,6);
60 $input = join(':',$pat,$subject,$result,$repl,$expect);
62 infty_subst(\$expect);
68 $expect =~ s/(\$\{\w+\})/$1/eeg;
69 $expect =~ s/\\n/\n/g;
70 $expect = $repl = '-' if $skip_amp and $input =~ /\$[&\`\']/;
79 if ($err !~ m!^\Q$expect!) { print "not ok $. (compile) $input => `$err'\n"; next TEST }
93 if (!$match || $got ne $expect) {