Searched refs:utf8hash (Results 1 - 1 of 1) sorted by relevance

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dutf8hash.t39 my %utf8hash;
68 $utf8hash{$u} = $utf8hash{$b} = $i;
77 is($nk = nkeys(\%utf8hash), scalar(@ords)*2,
82 my $thawed = thaw(freeze(\%utf8hash));
85 nkeys(\%utf8hash),
88 is($utf8hash{$k}, $thawed->{$k}, "frozen item chr($utf8hash{$k})");
94 ok((nstore \%utf8hash, $storage), "nstore to $storage");
98 nkeys(\%utf8hash),
[all...]

Completed in 15 milliseconds