/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | bproto.t | 16 my $bar = "bar"; 31 q[ defined(&foo, $bar); 32 undef(&foo, $bar); 33 uc($bar,$bar); 37 q[ scalar(&foo,$bar); 39 undef &foo, $bar; 40 uc $bar,$bar; [all...] |
H A D | package.t | 10 $bar = 4; 27 print $xyz eq 'bar:main:xyz:ABC' ? "ok 1\n" : "not ok 1 '$xyz'\n"; 29 print $xyz eq 'ABC:bar:main:xyz' ? "ok 1\n" : "not ok 1 '$xyz'\n";
|
H A D | parser.t | 111 1 { foo => 'bar' } 112 1 { qoo => 'bar' } 113 1 { q => 'bar' } 114 1 { qq => 'bar' } 115 0 { q,'bar', } 116 0 { q=bar= } 117 0 { qq=bar= } 118 1 { q=bar= => 'bar' }
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/ |
H A D | rs.t | 20 $bar = <TESTFILE>; 21 if ($bar eq "1\n") {print "ok 1\n";} else {print "not ok 1\n";} 25 $bar = <TESTFILE>; 26 if ($bar eq "12\n") {print "ok 2\n";} else {print "not ok 2\n";} 30 $bar = <TESTFILE>; 31 if ($bar eq "123") {print "ok 3\n";} else {print "not ok 3\n";} 35 $bar = <TESTFILE>; 39 $bar = <TESTFILE>; 40 if ($bar eq "1234") {print "ok 4\n";} else {print "not ok 4\n";} 44 $bar [all...] |
/osnet-11/usr/src/grub/grub2/tests/ |
H A D | grub_script_vars1.in | 30 echo $bar $foo 32 bar="" 33 echo $bar $foo
|
H A D | grub_cmd_echo.in | 22 echo foo bar
|
H A D | grub_script_echo1.in | 46 foo=bar 54 bar=h 55 echo e"$foo"${bar}o 56 e"$foo"${bar}o hello world 95 # bar
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/examples/ |
H A D | crash.cgi | 6 foo bar baz;
|
/osnet-11/usr/src/lib/libmtmalloc/tests/ |
H A D | align.c | 44 char *bar[N]; local 47 bar[i] = malloc(1<<i); 48 if ((uintptr_t)bar[i] & 7) { 50 bar[i]); 58 free(bar[i]);
|
H A D | wideload.c | 43 char * bar; local 51 bar = (char *)sbrk(0); 52 printf ("After big malloc brk is %p\n", bar);
|
H A D | failwide.c | 44 char * bar; local 52 bar = (char *)sbrk(0); 53 printf ("After big malloc brk is %p, should be the same.\n", bar);
|
H A D | general.c | 66 char *bar[N]; local 69 bar[i] = malloc(rand()%64); 73 free(bar[i]);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | array.t | 12 # @foo, @bar, and @ary are also used from tie-stdarray after tie-ing them 48 @bar = (); 49 $bar[0] = '0'; 50 $bar[1] = '1'; 51 $r = join(',', $#bar, @bar); 53 @bar = (); 54 $r = join(',', $#bar, @bar); 56 $bar[ [all...] |
H A D | nothr5005.t | 25 sub bar { unshift @_, 'D'; @_ } subroutine 31 print "not" unless join('',bar('d')) eq 'Dd';
|
H A D | delete.t | 40 $foo{'bar'} = 'y'; 46 $refhash{"top"}->{"bar"} = "BAR"; 48 delete $refhash{"top"}->{"bar"}; 54 my %a = ('bar', 33); 56 my $b = \$a{bar}; 57 my $c = \delete $a{bar}; 81 @bar = delete @foo[4,5]; 83 if (@bar == 2) {print "ok 24\n";} else {print "not ok 24 ", @bar+0, "\n";} 84 if ($bar[ [all...] |
H A D | vec.t | 29 $foo = $bar = $baz = 0; 31 vec($bar = 0,1,1) = 1; 32 $baz = $foo | $bar; 34 print $bar eq "2" && $bar == 2 ? "ok 17\n" : "not ok 17\n"; 35 print "$foo $bar $baz" eq "1 2 3" ? "ok 18\n" : "not ok 18\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | safe2.t | 14 use vars qw($bar); 26 $bar = "invisible"; 51 print defined($bar) ? "not ok 4\n" : "ok 4\n"; 52 print defined($::bar) ? "not ok 5\n" : "ok 5\n"; 53 print defined($main::bar) ? "not ok 6\n" : "ok 6\n"; 58 %bar = (key => "ok 9\n"); 65 $cpt->share(qw($foo %bar @baz *glob sayok)); 73 print $bar{key} ? $bar{key} : "not ok 9\n"; 78 $bar{ne [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | SelfLoader.t | 28 sub bar; 37 sub bar { shift; shift || "bar" } 121 print "not " unless $foo->bar($1) eq 'foo'; 124 print "not " unless $foo->bar($1) eq 'foo'; 139 $bar = new Bar; 143 print "not " unless $bar->b() eq 'b Baz'; 147 print "not " unless $bar->c() eq 'c Baz'; 152 print "not " unless $bar->a() eq 'a Bar'; 155 print "not " unless $bar [all...] |
H A D | dumpvar.t | 50 my $bar = Bar->new(1..5); 145 stringify($bar); 209 dumpValue($bar,1); 217 dumpValue($bar); 273 dumpvalue($bar);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/Array/ |
H A D | std.t | 12 tie @bar,Tie::StdArray;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | param_fetch.t | 9 my $q = CGI->new('b=baz;a=foo;a=bar'); 14 is $q->param_fetch('a')->[1] => 'bar', 'second "a" is "bar"'; 15 is_deeply $q->param_fetch('a') => [qw/ foo bar /], 'a is array ref'; 16 is_deeply $q->param_fetch( -name => 'a' ) => [qw/ foo bar /], 24 is_deeply $q->param_fetch( 'a', 'b' ), [qw/ foo bar /],
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | More.t | 24 isnt( "foo", "bar", 'foo isnt bar'); 25 isn't("foo", "bar", 'foo isn\'t bar'); 32 unlike("fbar", '/^bar/', 'unlike bar'); 55 ok( ! $foo->can('bar') ); 56 ok( ! $foo->isa('bar') ); 67 ok( eq_hash({ foo => 42, bar => 23 }, {bar [all...] |
H A D | undef.t | 37 eq_hash ( { foo => undef, bar => undef }, 38 { foo => undef, bar => 23 } ); 45 eq_hash ( { foo => undef, bar => { baz => undef, moo => 23 } }, 46 { foo => undef, bar => { baz => undef, moo => 23 } } );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Getopt/Long/t/ |
H A D | gol-linkage.t | 14 @ARGV = qw(-Foo -baR --foo bar); 23 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 7\n"); 26 @ARGV = qw(-Foo -baR --foo bar); 36 print (($ARGV[0] eq "bar") ? "" : "not ", "ok 15\n"); 39 print (!(exists $lnk{bar}) ? "" : "not ", "ok 18\n");
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/File/Glob/ |
H A D | Glob.xs | 24 errfunc(const char *foo, int bar) { 25 return !(bar == EACCES || bar == ENOENT || bar == ENOTDIR);
|