Searched defs:foo (Results 1 - 25 of 49) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/cmd/
H A Delsif.t5 sub foo { subroutine
22 if (($x = &foo(1)) == 1) {print "ok 1\n";} else {print "not ok 1 '$x'\n";}
23 if (($x = &foo(2)) == 2) {print "ok 2\n";} else {print "not ok 2 '$x'\n";}
24 if (($x = &foo(3)) == 3) {print "ok 3\n";} else {print "not ok 3 '$x'\n";}
25 if (($x = &foo(4)) == 4) {print "ok 4\n";} else {print "not ok 4 '$x'\n";}
H A Dfor.t25 $foo = 3210;
27 foreach $foo (@ary) {
28 $foo *= 2;
39 # this also tests that $foo was restored to 3210 after test 3
41 $foo .= $_;
43 if ($foo eq '3210abcde') {print "ok 5\n";} else {print "not ok 5 $foo\n";}
45 foreach $foo (("ok 6\n","ok 7\n")) {
46 print $foo;
49 sub foo { subroutine
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dchop.t12 $c = do foo();
19 sub foo { subroutine
23 @foo = ("hi \n","there\n","!\n");
24 @bar = @foo;
28 $foo = "\n";
29 chop($foo,@foo);
30 is (join('',$foo,@foo), 'hi there!');
32 $_ = "foo\
[all...]
H A Dcontext.t7 sub foo { subroutine
16 $a=foo;
17 @a=foo;
18 foo;
H A Dgv.t17 $foo = 'foo';
18 $bar = *main::foo;
19 $bar = $foo;
21 $foo = *main::bar;
25 if ($foo) {
26 print ref(\$foo) eq 'GLOB' ? "ok 2\n" : "not ok 2\n";
29 unless ($foo =~ /abcd/) {
30 print ref(\$foo) eq 'GLOB' ? "ok 3\n" : "not ok 3\n";
33 if ($foo e
52 sub foo { subroutine
[all...]
H A Dundef.t36 $ary{'foo'} = 'hi';
37 print defined($ary{'foo'}) ? "ok 10\n" : "not ok 10\n";
39 undef $ary{'foo'};
40 print defined($ary{'foo'}) ? "not ok 12\n" : "ok 12\n";
53 sub foo { print "ok 19\n"; } subroutine
55 &foo || print "not ok 19\n";
57 print defined &foo ? "ok 20\n" : "not ok 20\n";
58 undef &foo;
59 print defined(&foo) ? "not ok 21\n" : "ok 21\n";
69 tie my %foo, 'Ti
[all...]
H A Dcaller.t32 sub foo { @c = caller(0) } subroutine
33 my $fooref = delete $::{foo};
H A Dmy.t7 sub foo { subroutine
24 print &foo("ok 1\n","ok 2\n");
H A Dnothr5005.t24 sub foo { local(@_) = ('p', 'q', 'r'); } subroutine
29 print "not " unless join('',foo('a', 'b', 'c')) eq 'pqr';
H A Doverride.t55 # localizing *CORE::GLOBAL::foo should revert to finding CORE::foo
89 sub foo { "ok" } subroutine
90 warn( OverridenWarn->foo() );
91 warn OverridenWarn->foo();
95 sub foo { [ "ok" ] } subroutine
96 pop( OverridenPop->foo() );
97 pop OverridenPop->foo();
H A Darray.t12 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them
39 @foo = ();
40 $r = join(',', $#foo, @foo);
42 $foo[0] = '0';
43 $r = join(',', $#foo, @foo);
45 $foo[2] = '2';
46 $r = join(',', $#foo, @foo);
239 sub foo { "a" } subroutine
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/
H A Ddemo2.pl13 sub foo :Demo(till=>ears=>are=>bleeding) {} subroutine
14 sub foo :Demo(['till','ears','are','bleeding']) {} subroutine
15 sub foo :Demo(qw/till ears are bleeding/) {} subroutine
16 sub foo :Demo(till,ears,are,bleeding) {} subroutine
18 sub foo :Demo(my,ears,are,bleeding) {} subroutine
19 sub foo :Demo(my=>ears=>are=>bleeding) {} subroutine
20 sub foo :Demo(qw/my, ears, are, bleeding/) {} subroutine
21 sub foo :Demo(qw/my ears are bleeding) {} subroutine
H A Ddemo4.pl9 sub foo : Purpose(to foo all data before barring it) { } subroutine
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A Dstat.t64 package foo; package
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DSymbol.t10 BEGIN { $_ = 'foo'; } # because Symbol used to clobber $_
14 ok( $_ eq 'foo', 'check $_ clobbering' );
52 package foo; package
56 ::ok( qualify("x") eq "foo::x", 'qualify() with a simple identifier' );
64 ::ok( qualify("_foo") eq "foo::_foo",
H A DEnglish.t20 sub foo { subroutine
23 foo(1);
52 my $foo = <IN>;
53 like( $foo, qr/ok 7/, '$OFS' );
56 ok( chomp($foo), '$ORS should be \n' );
71 @foo = (8, 9);
72 @foo = split(/\n/, "@foo");
73 is( $foo[0], 8, '$"' );
74 is( $foo[
[all...]
/osnet-11/usr/src/lib/libmtmalloc/tests/
H A Ddblfree.c41 char *foo; local
43 foo = malloc(10);
44 free(foo);
50 free(foo);
52 foo = malloc(10);
53 free(foo);
60 free(foo);
H A Dfailwide.c43 char * foo; local
47 foo = malloc(request/2); /* prime the pump */
49 foo = (char *)sbrk(0);
50 printf ("Before big malloc brk is %p request %d\n", foo, request);
51 foo = malloc(request + request/2);
H A Dwideload.c42 char * foo; local
46 foo = malloc(0); /* prime the pump */
48 foo = (char *)sbrk(0);
49 printf ("Before big malloc brk is %p request %d\n", foo, request);
50 foo = malloc(request + 100);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dbproto.t15 sub foo {} subroutine
31 q[ defined(&foo, $bar);
32 undef(&foo, $bar);
37 q[ scalar(&foo,$bar);
38 defined &foo, &foo, &foo;
39 undef &foo, $bar;
H A Dpackage.t6 $foo = 3;
45 sub foo { subroutine
53 print((foo(1))[0] eq 'PQR' ? "ok 8\n" : "not ok 8\n");
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Dxref.t76 defined $xreftable{$thisfile}{'Testing::Xref::foo'}{main}{'%xreftable'},
84 $xreftable{$thisfile}{'(definitions)'}{'Testing::Xref'}{'&foo'}, 's1001',
85 'subroutine foo defined at line 1001'
92 $xreftable{$thisfile}{'Testing::Xref::bar'}{'Testing::Xref'}{'&foo'},
93 '&1002', 'subroutine foo called at line 1002 by bar'
96 $xreftable{$thisfile}{'Testing::Xref::foo'}{'Testing::Xref'}{'*FOO'},
97 '1001', 'glob FOO used in subroutine foo'
109 sub foo { print FOO %::xreftable; } subroutine
110 sub bar { print FOO foo; }
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/POSIX/t/
H A Dsigaction.t34 sub foo { subroutine
38 my $newaction=POSIX::SigAction->new('::foo', new POSIX::SigSet(SIGUSR1), 0);
51 print $SIG{HUP} eq '::foo' ? "ok 3\n" : "not ok 3\n";
54 if($oldaction->{HANDLER} eq '::foo')
87 sigaction(SIGHUP, POSIX::SigAction->new('::foo'));
90 my $act=POSIX::SigAction->new('::foo');
163 $SIG{HUP} = \&foo;
169 sigaction(SIGHUP, POSIX::SigAction->new(\&foo));
174 $newaction = POSIX::SigAction->new(\&foo);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dfreeze.t67 $foo = FOO->make;
68 print "not " unless $f2 = $foo->freeze;
71 print "not " unless $f3 = $foo->nfreeze;
78 print "not " unless &dump($foo) eq &dump($root3);
82 print "not " unless &dump($foo) eq &dump($root);
110 sub foo { $_[0] = 1 } subroutine
111 $foo = [];
112 foo($foo->[1]);
113 eval { freeze($foo) };
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/
H A Dlex.t23 print "foo\n";
28 eval '$foo{1} / 1;';
31 eval '$foo = 123+123.4+123e4+123.4E5+123.4e+5+.12;';
33 $foo = int($foo * 100 + .5);
34 if ($foo eq 2591024652) {print "ok 7\n";} else {print "not ok 7 :$foo:\n";}
40 $foo = 'ok 9';
42 $foo
50 $foo
264 sub foo::::::bar { print "ok $test\\n"; $test++ } subroutine
[all...]

Completed in 89 milliseconds

12