Searched refs:bar (Results 1 - 25 of 134) sorted by relevance

123456

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dbproto.t16 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 Dpackage.t10 $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 Dparser.t111 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 Drs.t20 $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 Dgrub_script_vars1.in30 echo $bar $foo
32 bar=""
33 echo $bar $foo
H A Dgrub_cmd_echo.in22 echo foo bar
H A Dgrub_script_echo1.in46 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 Dcrash.cgi6 foo bar baz;
/osnet-11/usr/src/lib/libmtmalloc/tests/
H A Dalign.c44 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 Dwideload.c43 char * bar; local
51 bar = (char *)sbrk(0);
52 printf ("After big malloc brk is %p\n", bar);
H A Dfailwide.c44 char * bar; local
52 bar = (char *)sbrk(0);
53 printf ("After big malloc brk is %p, should be the same.\n", bar);
H A Dgeneral.c66 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 Darray.t12 # @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 Dnothr5005.t25 sub bar { unshift @_, 'D'; @_ } subroutine
31 print "not" unless join('',bar('d')) eq 'Dd';
H A Ddelete.t40 $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 Dvec.t29 $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 Dsafe2.t14 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 DSelfLoader.t28 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 Ddumpvar.t50 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 Dstd.t12 tie @bar,Tie::StdArray;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
H A Dparam_fetch.t9 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 DMore.t24 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 Dundef.t37 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 Dgol-linkage.t14 @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 DGlob.xs24 errfunc(const char *foo, int bar) {
25 return !(bar == EACCES || bar == ENOENT || bar == ENOTDIR);

Completed in 95 milliseconds

123456