Lines Matching refs:result
308 my $result = runperl (switches => ['-wl'], stderr => 1,
311 if ($? == 0 and $result eq $expect) {
315 print "# expected ", _qq ($expect), ", got ", _qq ($result), "\n";
330 my $result = runperl (switches=>['-l'],
333 if ($result eq $expect) {
337 foreach ($expect, $result) {
340 print "# expected \"$expect\", got \"$result\"\n";
363 $result = runperl(
367 print "not " if length $result;
369 print "# got: $result\n" if length $result;