Searched refs:foo1 (Results 1 - 5 of 5) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Dswitch.t7 sub foo1 { subroutine
22 print do foo1(0) == 20 ? "ok 1\n" : "not ok 1\n";
23 print do foo1(1) == 1 ? "ok 2\n" : "not ok 2\n";
24 print do foo1(2) == 2 ? "ok 3\n" : "not ok 3\n";
25 print do foo1(3) == 3 ? "ok 4\n" : "not ok 4\n";
26 print do foo1(4) == 4 ? "ok 5\n" : "not ok 5\n";
27 print do foo1(5) == 20 ? "ok 6\n" : "not ok 6\n";
H A Dsubval.t5 sub foo1 { subroutine
38 if (&foo1(0) eq '0') {print "ok 1\n";} else {print "not ok 1 $foo\n";}
39 if (&foo1(1) eq 'true2') {print "ok 2\n";} else {print "not ok 2\n";}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Ddo.t5 sub foo1 subroutine
38 $result = do foo1(1);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t417 sub foo1 ($\@);
418 eval q{ foo1 "s" };
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Doverload.t389 $foo1 = 'f\'o\\o';
403 test($out1, $foo1); # 121

Completed in 43 milliseconds