Lines Matching refs:result
53 my ($result, $expected, $id) = @_;
69 shift @$result if $result->[0] eq "unix";
77 splice(@$result, 0, 2, "stdio")
78 if @$result >= 2 &&
79 $result->[0] eq "unix" &&
80 $result->[1] eq "perlio";
82 splice(@$result, 0, 2, "stdio")
83 if @$result >= 2 &&
84 $result->[0] eq "unix" &&
85 $result->[1] eq "crlf";
98 ok($j->($result->[$i]), "$id - $i is ok");
100 is($result->[$i], $j,