Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/downgrade.t

Lines Matching refs:keys
36                    'Locked keys', 'Locked keys placeholder',
121   my @keys = keys %$hash;
130   ok (eq_array([keys %$hash], \@keys), "Still the same keys?");
135   my @keys = keys %$hash;
144   ok (eq_array([keys %$hash], \@keys), "Still the same keys?");
162 thaw_hash ('Hash with utf8 flag but no utf8 keys', \%R_HASH);
173     $hash = thaw_hash ('Locked keys', \%R_HASH);
175     $hash = thaw_hash ('Locked keys placeholder', \%R_HASH);
185   $hash = thaw_hash ('Locked keys', \%R_HASH);
187   $hash = thaw_hash ('Locked keys placeholder', \%R_HASH);
192   thaw_fail ('Locked keys', $RESTRICTED_CROAK);
193   thaw_fail ('Locked keys placeholder', $RESTRICTED_CROAK);
219   my $hash = thaw_hash ('Hash with utf8 keys', \%U_HASH);
220   for (keys %$hash) {
228   my $hash = thaw_hash ('Locked hash with utf8 keys', \%U_HASH);
229     for (keys %$hash) {
243   thaw_fail ('Hash with utf8 keys', $UTF8_CROAK);
244   thaw_fail ('Locked hash with utf8 keys', $UTF8_CROAK);
247   my $expect = thaw $tests{"Hash with utf8 keys for $what"};
248   thaw_hash ('Hash with utf8 keys', $expect);
249   #foreach (keys %$expect) { print "'$_':\t'$expect->{$_}'\n"; }
250   #foreach (keys %$got) { print "'$_':\t'$got->{$_}'\n"; }
257     my $hash = thaw_hash ('Locked hash with utf8 keys', $expect);
260     thaw_fail ('Locked hash with utf8 keys', $RESTRICTED_CROAK);
263     thaw_fail ('Locked hash with utf8 keys', $RESTRICTED_CROAK);
280 begin 101 Locked keys
285 begin 101 Locked keys placeholder
359 begin 101 Hash with utf8 flag but no utf8 keys
364 begin 101 Hash with utf8 keys
370 begin 101 Locked hash with utf8 keys
376 begin 101 Hash with utf8 keys for pre 5.6
382 begin 101 Hash with utf8 keys for 5.6
398 begin 301 Locked keys
403 begin 301 Locked keys placeholder
483 begin 301 Hash with utf8 flag but no utf8 keys
488 begin 301 Hash with utf8 keys
494 begin 301 Locked hash with utf8 keys
500 begin 301 Hash with utf8 keys for pre 5.6
506 begin 301 Hash with utf8 keys for 5.6