Searched refs:baz (Results 1 - 25 of 36) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/examples/
H A Dcrash.cgi6 foo bar baz;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dnothr5005.t26 sub baz { push @_, 'E'; return @_ } subroutine
33 print "not" unless join('',baz('e')) eq 'eE';
H A Dvec.t29 $foo = $bar = $baz = 0;
32 $baz = $foo | $bar;
35 print "$foo $bar $baz" eq "1 2 3" ? "ok 18\n" : "not ok 18\n";
H A Dref.t22 $baz = "ok 3\n";
25 local(*foo) = 'baz';
41 $baz = "ok 7\n";
42 $bar = 'baz';
205 @baz = \(1,@foo,@bar);
208 print @baz == 3 ? "ok 41\n" : "not ok 41\n";
H A Dmagic.t145 ok $' eq 'baz', $';
149 @a = qw(foo bar baz);
150 ok "@a" eq "foo bar baz", "@a";
153 ok "@a" eq "foo,bar,baz", "@a";
341 $ENV{'fOo'} = 'baz';
344 ok (delete($ENV{'foO'}) eq 'baz');
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/FileCache/t/
H A D02maxopen.t6 @files = qw(foo bar baz quux);
35 ok( grep(/^(?:baz|quux) 2$/, @cat) == 2 );
H A D01open.t5 @files = qw(foo bar baz quux Foo_Bar);
H A D03append.t5 @files = qw(foo bar baz quux Foo_Bar);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/
H A Dhidden.t16 is( $q->hidden( 'hidden_name', qw(foo bar baz fie) ),
17 qq(<input type="hidden" name="hidden_name" value="foo" /><input type="hidden" name="hidden_name" value="bar" /><input type="hidden" name="hidden_name" value="baz" /><input type="hidden" name="hidden_name" value="fie" />),
21 -Values =>[qw/foo bar baz fie/],
23 qq(<input type="hidden" name="hidden_name" value="foo" title="hidden_field" /><input type="hidden" name="hidden_name" value="bar" title="hidden_field" /><input type="hidden" name="hidden_name" value="baz" title="hidden_field" /><input type="hidden" name="hidden_name" value="fie" title="hidden_field" />),
27 -default =>[qw/foo bar baz fie/],
29 qq(<input type="hidden" name="hidden_name" value="foo" title="hidden_field" /><input type="hidden" name="hidden_name" value="bar" title="hidden_field" /><input type="hidden" name="hidden_name" value="baz" title="hidden_field" /><input type="hidden" name="hidden_name" value="fie" title="hidden_field" />),
33 '-value' =>[qw/foo bar baz fie/],
35 qq(<input type="hidden" name="hidden_name" value="foo" title="hidden_field" /><input type="hidden" name="hidden_name" value="bar" title="hidden_field" /><input type="hidden" name="hidden_name" value="baz" title="hidden_field" /><input type="hidden" name="hidden_name" value="fie" title="hidden_field" />),
H A Dparam_fetch.t9 my $q = CGI->new('b=baz;a=foo;a=bar');
19 is $q->param_fetch('b')->[0] => 'baz', '"b" is "baz"';
20 is_deeply $q->param_fetch('b') => [qw/ baz /], 'b is array ref too';
H A Dcookie.t22 ' foo=123 ; bar=qwerty; baz=wibble; qux=a1',
23 'foo=123; bar=qwerty; baz=wibble;',
24 'foo=vixen; bar=cow; baz=bitch; qux=politician',
25 'foo=a%20phrase; bar=yes%2C%20a%20phrase; baz=%5Ewibble; qux=%27',
45 is($result{baz}->value, 'wibble', "cookie baz is correct");
74 ok(eq_set([keys %result], [qw(foo bar baz qux)]),
80 is($result{baz}->value, 'bitch', "cookie baz is correct");
91 ok(eq_set([keys %result], [qw(foo bar baz qu
[all...]
H A Drequest.t61 ok $q=new CGI('foo=bar&foo=baz'),"CGI::new() redux";
69 $p->{bar} = join("\0",qw(foo bar baz));
70 is join(' ',$q->param('bar')), 'foo bar baz','tied interface store';
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Dundef.t45 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/ext/Safe/t/
H A Dsafe2.t59 @baz = (); push(@baz, "o", "10"); $" = 'k ';
65 $cpt->share(qw($foo %bar @baz *glob sayok));
74 (@baz) ? print "@baz\n" : print "not ok 10\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/
H A DUtil.t27 eval { $hash{baz} = 99; };
28 like( $@, qr/^Attempt to access disallowed key 'baz' in a restricted hash/,
31 ok( !exists $hash{baz} );
122 my %hash = (foo => 42, bar => undef, baz => 0);
123 lock_keys(%hash, qw(foo bar baz up down));
125 is_deeply( \%hash, { foo => 42, bar => undef, baz => 0 } );
137 eval { lock_keys(%hash, qw(foo baz)); };
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DBenchmark.t10 use vars qw($foo $bar $baz $ballast);
51 my $coderef = sub {$baz += fib($ballast)};
54 $baz = 0;
57 isnt ($baz, 0, "benchmarked code was run");
64 $baz = 0;
67 isnt ($baz, 0, "benchmarked code was run");
82 $baz = 0;
83 my $again = countit(1, '$baz += fib($ballast)');
85 isnt ($baz, 0, "benchmarked code was run");
198 $foo = $bar = $baz
[all...]
H A DDB.t175 $DB::filename = 'baz';
179 @ret = grep { /^baz/ } @ret;
221 use vars qw( *baz );
223 local $DB::filename = 'baz';
224 local *baz = *{ "main::_<baz" };
226 @baz = map { dualvar(1, $_) } qw( one two three four five );
227 %baz = (
270 DB->set_break('foo', 'baz');
271 is( $DB::dbline{4}, "baz\
[all...]
H A DDumpvalue.t12 use vars qw( $foo @bar %baz );
178 %baz = ( one => 1, two => 2 );
179 $d->dumpglob( '', 0, 'baz', *baz );
180 is( $out->read, "\%baz = (\n 'one' => 1, 'two' => 2\n)\n",
181 'dumped glob for %baz fine' );
H A DAutoLoader.t47 sub bazmarkhianish { shift; shift || "baz" }
150 eval { Foo->baz() };
151 ::like( $@, qr/locate object method "baz"/,
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/
H A Dnetrc.t83 login baz
89 default login "baz" password p2
90 default "login" baz password p3
110 is( Net::Netrc->lookup('default', 'baz')->{password}, 'p3',
114 is( Net::Netrc->lookup('abadname')->{login}, 'baz',
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A Dsplit_command.t35 my @test_args = qw(foo bar baz yar car har ackapicklerootyjamboree);
H A DPacklist.t41 $pl->{data}{bar} = 'baz';
109 baz => 'bup',
137 like( $file, qr/hash.+baz=bup/, 'key with hash value should be present' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/lib/List/
H A DUtil.pm132 $foo = max @bar, @baz # whatever
146 $foo = maxstr @bar, @baz # whatever
159 $foo = min @bar, @baz # whatever
173 $foo = minstr @bar, @baz # whatever
208 $foo = sum @bar, @baz # whatever
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Devel/
H A DSelfStubber.t103 if (@C == 2 && $C[0] =~ /^\s*sub\s+Attribs::baz\s+:\s*locked\s*;\s*$/
262 sub baz : locked {
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/
H A Dhtmlview.t102 <dt><strong><a name="item_baz">baz</a></strong><br />
105 The baz item.

Completed in 56 milliseconds

12