Lines Matching refs:expect
122 # default is to expect no output.
126 # default is to expect no output.
801 local($name, $file, $what, $expect, $expect_pat) = @_;
815 return compare_output($name, $what, $expect, $expect_pat, $got);
821 local($name, $what, $expect, $expect_pat, $got) = @_;
838 $expect = '' if !defined $expect;
839 if ($got ne $expect) {
840 $why .= "\tunexpected $what - " . &first_diff($expect, $got) . "\n";
842 $why .= &wrap_lines($expect);
946 local($name, $status, $expect) = @_;
952 if (!defined $expect) {
954 } elsif ($expect =~ /^(|-)\d+$/) {
955 $expr = "\$e == $expect";
957 $expr = $expect;
963 print STDERR "$prog:$test{':long-name'}: bad expected-exit expression: $expect ($@)\n";