| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
| H A D | minstr.t | 8 keys %Config; # Silence warning
|
| H A D | shuffle.t | 8 keys %Config; # Silence warning
|
| H A D | first.t | 8 keys %Config; # Silence warning
|
| H A D | refaddr.t | 8 keys %Config; # Silence warning
|
| H A D | reftype.t | 8 keys %Config; # Silence warning
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
| H A D | http.t | 37 my @expect = grep /^HTTPS/, keys %ENV;
43 ok eq_set( [$cgi->https()], \@expect), 'list context returns https keys';
|
| H A D | upload.t | 47 for my $key (keys %myenv) {
53 for my $key (keys %myenv) {
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/demos/ |
| H A D | nntp | 17 print join("\n",(keys %$subs)[0 .. 10]),"\n";
|
| /osnet-11/usr/src/lib/libnsl/des/ |
| H A D | des_crypt.c | 192 desN_crypt(des_block keys[], int keynum, char *buf, unsigned int len, argument
206 stat = cbc_crypt(keys[j].c, buf, len, m | flags, ivec);
219 stat = cbc_crypt(keys[0].c, buf, len, mode, ivec);
231 __cbc_triple_crypt(des_block keys[], char *buf, uint_t len, argument
235 return (desN_crypt(keys, 3, buf, len, mode, ivec));
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | inc.t | 96 # Verify that shared hash keys become unshared.
112 foreach (keys %$orig) {
125 foreach (keys %inc) {
134 foreach (keys %dec) {
143 foreach (keys %postinc) {
152 foreach (keys %postdec) {
|
| H A D | glob.t | 29 if (keys %files) {
30 print "not ok 1\t(",join(' ', sort keys %files),"\n";
|
| H A D | hashassign.t | 19 # And going right on 8 bit but wrong on utf8 keys.
24 ok (keys %comma == 1, 'keys on comma hash');
45 ok (keys %temp == 1, 'keys on copy of comma hash');
64 ok (keys %arrow == 1, 'keys on arrow hash');
85 ok (keys %temp == 1, 'keys on copy of arrow hash');
194 ok (keys
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | AnyDBM_File.t | 93 @keys = keys(%h);
96 ok( ($#keys == 29 && $#values == 29),'$#keys == $#values');
99 if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
105 ok($i == 30,"keys and values match");
107 @keys = ('blurfl', keys(%h), 'dyick');
108 ok($#keys == 31,"Correct number of keys");
[all...] |
| H A D | utf8.t | 169 print 'start'; printf '%x,', ord \$_ foreach keys %a; print "end\n";
205 # See what the tokeniser does with hash keys.
206 print "# What does the tokeniser do with utf8 hash keys?\n";
211 my \$b = show keys %h; \$b .= 'F' unless \$h{$_->[3]}; \$b),
215 my \$b = show keys %h; \$b .= 'F' unless \$h{$_->[3]}; \$b),
219 my \$b = show keys %h; \$b .= 'F' unless \$h{chr $_->[0]}; \$b),
224 my \$b = show keys %h; \$b .= 'F' unless \$h{$_->[3]}; \$b),
228 my \$b = show keys %h; \$b .= 'F' unless \$h{$_->[3]}; \$b),
232 my \$b = show keys %h; \$b .= 'F' unless \$h{chr $_->[0]}; \$b),
237 my \$b = show keys
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/ |
| H A D | find.t | 188 Check(scalar(keys %{$Expect_Dir{ $File::Find::dir }}) == 0);
189 if (scalar(keys %{$Expect_Dir{ $File::Find::dir }}) == 0) {
342 Check( scalar(keys %Expect_File) == 0 );
366 Check( scalar(keys %Expect_File) == 0 );
395 topdir('fa') ); Check( scalar(keys %Expect_File) == 0 );
418 Check( scalar(keys %Expect_Name) == 0 );
446 Check( scalar(keys %Expect_File) == 0 );
465 Check( scalar(keys %Expect_Dir) == 0 );
484 Check( scalar(keys %Expect_Dir) == 0 );
496 Check( scalar( keys
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Unicode/Normalize/ |
| H A D | mkheader | 195 foreach my $key (keys %Canon) {
200 foreach my $key (keys %Compat) {
214 foreach my $key (keys %$hash) {
256 my @temp = sort {$a <=> $b} keys %{$tbl->{hash}};
285 foreach my $i (sort keys %CompList) {
289 sort {$a <=> $b } keys %{ $CompList{$i} };
346 foreach my $uv (keys %$hash) {
353 foreach my $p (sort { $a <=> $b } keys %val) {
368 foreach my $p (sort { $a <=> $b } keys %val) {
|
| /osnet-11/usr/src/cmd/perl/5.8.4/utils/port/ |
| H A D | MapFiles | 143 foreach my $p (keys(%file)) {
144 foreach my $f (keys(%{$file{$p}})) {
160 foreach my $ip (keys(%{$inst{$f}})) {
179 foreach my $p (keys(%file)) {
180 foreach my $f (keys(%{$file{$p}})) {
281 foreach my $p (sort(keys(%file))) {
282 foreach my $f (sort(keys(%{$file{$p}}))) {
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
| H A D | tied_hook.t | 54 scalar keys %{$self};
66 return join(":", keys %$self) . ";" . join(":", values %$self);
71 my ($keys, $values) = split(/;/, $frozen);
72 my @keys = split(/:/, $keys);
74 for (my $i = 0; $i < @keys; $i++) {
75 $self->{$keys[$i]} = $values[$i];
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| H A D | Install.t | 73 # On case-insensitive filesystems (ie. VMS), the keys of the packlist might
76 is( keys %packlist, 1 );
77 is( lc((keys %packlist)[0]), lc $native_dummy, 'packlist written' );
|
| H A D | Packlist.t | 42 skip('not enough keys to test FIRSTKEY', 2)
43 unless keys %{ $pl->{data} } > 2;
46 my ($first, $second) = keys %{ $pl->{data} };
48 # now get a couple of extra keys, to mess with the hash iterator
50 for (keys %{ $pl->{data} } ) {
63 ok( ExtUtils::Packlist::EXISTS($pl, 'bar'), 'EXISTS() should find keys' );
71 is( keys %{ $pl->{data} }, 0, 'CLEAR() should wipe out data' );
143 is( $pl->{data}{single}, undef, 'single keys should have undef value' );
144 is( ref($pl->{data}{hash}), 'HASH', 'multivalue keys should become hashes');
147 ok( exists $pl->{data}{'/abc'}, 'read() should resolve /./ to / in keys' );
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/t/ |
| H A D | expmod_n.t | 40 for (keys %CALLS) {
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/ |
| H A D | callback.t | 43 plan tests => 2 + scalar keys %samples;
60 for my $test ( sort keys %samples ) {
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
| H A D | SubstrHash.t | 26 print "not " unless keys %a == 2;
60 print "not " unless keys %a == 0;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
| H A D | terse.t | 54 warn "# didn't find " . join(' ', keys %ops) if keys %ops;
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/ |
| H A D | harness | 44 foreach (keys %datahandle) {
119 print "The tests ", join(' ', keys(%infinite)),
126 foreach (keys %datahandle) {
|