Searched refs:foo3 (Results 1 - 3 of 3) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Dswitch.t50 sub foo3 { subroutine
70 print do foo3(0) == 20 ? "ok 13\n" : "not ok 13\n";
71 print do foo3(1) == 1 ? "ok 14\n" : "not ok 14\n";
72 print do foo3(2) == 2 ? "ok 15\n" : "not ok 15\n";
73 print do foo3(3) == 3 ? "ok 16\n" : "not ok 16\n";
74 print do foo3(4) == 4 ? "ok 17\n" : "not ok 17\n";
75 print do foo3(5) == 20 ? "ok 18\n" : "not ok 18\n";
H A Dsubval.t16 sub foo3 { subroutine
43 if (&foo3(0) eq 'true2') {print "ok 5\n";} else {print "not ok 5\n";}
44 if (&foo3(1) eq '1') {print "ok 6\n";} else {print "not ok 6\n";}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t427 sub X::foo3;
428 *X::foo3 = sub {'ok'};
429 print "# $@not " unless eval {X->foo3} eq 'ok';

Completed in 46 milliseconds