Searched full:foo* (Results 326 - 350 of 797) sorted by relevance

<<11121314151617181920>>

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dclosure.t27 sub foo { $i = shift if @_; $i } subroutine
30 test { foo == 1 };
31 foo(2);
32 test { foo == 2 };
35 my $foo = sub {$i = shift if @_; $i };
37 test {&$foo() == 2 };
38 &$foo(3);
39 test {&$foo() == 3 };
41 test { foo == 3 and $i == 3};
51 $foo
[all...]
H A Dcmp.t34 @FOO = ('s', 'N/A', 'a', 'NaN', -1, undef, 0, 1, 3.14, 1e37, 0.632120558, -.5,
39 $expect = 7 * ($#FOO+2) * ($#FOO+1);
49 for my $i (0..$#FOO) {
50 for my $j ($i..$#FOO) {
56 ($FOO[$i], $FOO[$i], $FOO[$i], $FOO[$i], $FOO[
[all...]
H A Dconcat.t23 ($a, $b, $c) = qw(foo bar);
25 ok("$a" eq "foo", "verifying assign");
26 ok("$a$b" eq "foobar", "basic concatenation");
27 ok("$c$a$c" eq "foo", "concatenate undef, fore and aft");
H A Dcontext.t7 sub foo { subroutine
16 $a=foo;
17 @a=foo;
18 foo;
H A Ddelete.t7 $foo{1} = 'a';
8 $foo{2} = 'b';
9 $foo{3} = 'c';
10 $foo{4} = 'd';
11 $foo{5} = 'e';
13 $foo = delete $foo{2};
15 if ($foo eq 'b') {print "ok 1\n";} else {print "not ok 1 $foo\n";}
16 unless (exists $foo{
[all...]
H A Ddo.t5 sub foo1 subroutine
11 sub foo2 subroutine
38 $result = do foo1(1);
44 $result = do foo2(0,1,0);
H A Deach.t84 for (1..3) { @foo = each %hash }
90 for (1..3) { @foo = each %hash }
95 for (1..3) { @foo = each %hash }
136 %u = ("\x{12}", "f", "\x{123}", "fo", "\x{1234}", "foo");
H A Deval.t14 eval "\$foo\n = # this is a comment\n'ok 3';";
15 print $foo,"\n";
17 eval "\$foo\n = # this is a comment\n'ok 4\n';";
18 print $foo;
21 $foo =;'; # this tests for a call through yyerror()
24 print eval '$foo = /'; # this tests for a call through fatal()
31 $foo = 5;
32 $fact = 'if ($foo <= 1) {1;} else {push(@x,$foo--); (eval $fact) * pop(@x);}';
36 $foo
224 foo: print "not ok 41\\n"; label
423 sub Foo {} print Foo(eval {}); subroutine
[all...]
H A Dfiletest.t65 is( "@{[grep -r, qw(foo io noo op zoo)]}", "io op" );
H A Dflip.t27 (3 .. 5) && ($foo .= $_);
29 $x = ($foo =~ y/\n/\n/);
31 if ($x eq 3) {print "ok 8\n";} else {print "not ok 8 $x:$foo:\n";}
57 $x = "foo".."bar";
H A Dfork.t267 $ENV{TST} = 'foo';
280 child before: foo
282 parent before: foo
305 exec("$echo foo");
308 foo
H A Dgoto.t15 $foo = 1;
17 $foo = 2;
20 $foo = 0;
23 $foo = 4;
28 $foo = 3;
31 print "#1\t:$foo: == 2\n";
32 if ($foo == 2) {print "ok 1\n";} else {print "not ok 1\n";}
36 print "#2\t:$foo: == 4\n";
37 if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
40 $CMD = qq[$PERL -e "goto foo;"
45 sub foo { subroutine
263 package Foo; package
[all...]
H A Dgroups.t45 # foo bar zot # accept
46 # foo 22 42 bar zot # accept
48 # groups=(42),foo(1),bar(2),zot me(3) # parse
49 # groups=22,42,1(foo),2(bar),3(zot me) # parse
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 Dhashassign.t16 # $foo{string} into a shared hash key scalar. It might be worth making the
H A Dinccode.t31 sub fooinc { subroutine
33 if (substr($filename,0,3) eq 'Foo') {
41 push @INC, \&fooinc;
46 $evalret = eval { require Foo; 1 };
48 ok( $evalret, 'require Foo; magic via code ref' );
49 ok( exists $INC{'Foo.pm'}, ' %INC sees Foo.pm' );
50 is( ref $INC{'Foo.pm'}, 'CODE', ' val Foo.pm is a coderef in %INC' );
51 is( $INC{'Foo
70 sub fooinc2 { subroutine
108 sub FooLoader::INC { subroutine
[all...]
H A Dindex.t11 $foo = 'Now is the time for all good men to come to the aid of their country.';
13 $first = substr($foo,0,index($foo,'the'));
16 $last = substr($foo,rindex($foo,'the'),100);
19 $last = substr($foo,index($foo,'Now'),2);
22 $last = substr($foo,rindex($foo,'Now'),2);
25 $last = substr($foo,inde
[all...]
H A Dint.t35 print "not " if $x["1foo"] != 8;
H A Dlc.t133 $a = "\x{3c3}foo.bar"; # \x{3c3} == GREEK SMALL LETTER SIGMA.
134 $b = "\x{3a3}FOO.BAR"; # \x{3a3} == GREEK CAPITAL LETTER SIGMA.
143 is($c , "\x{3c3}FOO.bAR", "Using s///e to change case.");
146 is($c , "\x{3a3}foo.Bar", "Using s///e to change case.");
H A Dlc_user.t15 is("\Ufoo\x{101}", "foo\x{101}", "no changes on 'foo'");
24 is("\LFOO\x{100}", "FOO\x{100}", "no changes on 'FOO'");
H A Dlength.t16 $_ = "foobar";
H A Dlist.t5 @foo = (1, 2, 3, 4);
6 if ($foo[0] == 1 && $foo[3] == 4) {print "ok 1\n";} else {print "not ok 1\n";}
8 $_ = join(':',@foo);
29 @foo = (1,2,3,4,5,6,7,8);
30 ($a, $b, $c, $d) = @foo;
34 @foo = @bar = (1);
35 if (join(':',@foo,@bar) eq '1:1') {print "ok 12\n";} else {print "not ok 12\n";}
37 @foo = ();
38 @foo
[all...]
H A Dlocal.t5 sub foo { subroutine
20 print &foo("ok 1\n","ok 2\n");
26 sub foo2 { subroutine
41 print &foo2("ok 11\n","ok 12\n");
58 local($a[1]) = 'foo';
60 print +($a[1] eq 'foo') ? "" : "not ", "ok 24\n";
77 local($h{'a'}) = 'foo';
79 print +($h{'a'} eq 'foo') ? "" : "not ", "ok 30\n";
118 local($a[1]) = 'foo';
120 print +($a[1] eq 'foo')
[all...]
H A Dmagic.t56 eval '$ENV{"FOO"} = "hi there";'; # check that ENV is inited inside eval
59 if ($Is_MSWin32) { ok `set FOO` =~ /^(?:FOO=)?hi there$/; }
61 elsif ($Is_VMS) { ok `write sys\$output f\$trnlnm("FOO")` eq "hi there\n"; }
62 else { ok `echo \$FOO` eq "hi there\n"; }
66 open(FOO,'ajslkdfpqjsjfk');
68 close FOO; # just mention it, squelch used-only-once
142 'foobarbaz' =~ /b(a)r/;
143 ok $` eq 'foo', $`;
149 @a = qw(foo ba
[all...]
H A Dmethod.t164 sub foo { "foo" } subroutine
168 is(A2->foo(), "foo");
169 is(do { eval 'A2::foo()'; $@ ? 1 : 0}, 1);
170 is(A2->foo(), "foo");
175 ## %Foo::Bar instead of the package Foo::Bar:: -- and Config.pm just
178 # is(do { use Config; eval 'Config->foo()';
241 sub Foo::x : lvalue { $x } subroutine
[all...]

Completed in 47 milliseconds

<<11121314151617181920>>