Lines Matching refs:utf8hash
39 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),
101 is($utf8hash{$k}, $retrieved->{$k}, "nstored item chr($utf8hash{$k})");
106 ok((store \%utf8hash, $storage), "store to $storage");
109 nkeys(\%utf8hash),
112 is($utf8hash{$k}, $retrieved->{$k}, "stored item chr($utf8hash{$k})");