/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | closure.t | 27 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 D | cmp.t | 34 @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 D | concat.t | 23 ($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 D | context.t | 7 sub foo { subroutine 16 $a=foo; 17 @a=foo; 18 foo;
|
H A D | delete.t | 7 $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 D | do.t | 5 sub foo1 subroutine 11 sub foo2 subroutine 38 $result = do foo1(1); 44 $result = do foo2(0,1,0);
|
H A D | each.t | 84 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 D | eval.t | 14 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 D | filetest.t | 65 is( "@{[grep -r, qw(foo io noo op zoo)]}", "io op" );
|
H A D | flip.t | 27 (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 D | fork.t | 267 $ENV{TST} = 'foo'; 280 child before: foo 282 parent before: foo 305 exec("$echo foo"); 308 foo
|
H A D | goto.t | 15 $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 D | groups.t | 45 # 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 D | gv.t | 17 $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 D | hashassign.t | 16 # $foo{string} into a shared hash key scalar. It might be worth making the
|
H A D | inccode.t | 31 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 D | index.t | 11 $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 D | int.t | 35 print "not " if $x["1foo"] != 8;
|
H A D | lc.t | 133 $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 D | lc_user.t | 15 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 D | length.t | 16 $_ = "foobar";
|
H A D | list.t | 5 @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 D | local.t | 5 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 D | magic.t | 56 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 D | method.t | 164 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...] |