Lines Matching refs:keys
13 # Two hashes one will all keys 8-bit possible (initially), other
50 # Check we have not got an spurious extra keys
51 is(join('',sort { ord $a <=> ord $b } keys %hash8),"\x7f\xff");
52 is(join('',sort { ord $a <=> ord $b } keys %hashu),"\x7f\xff\x{1ff}");
57 # Check we have not got an spurious extra keys
58 is(join('',sort { ord $a <=> ord $b } keys %hash8),"\x7f\xff\x{1ff}");
72 is(join('',sort keys %hashu),"\x7f\xff");
89 print "# Unicode hash keys and \\w\n";
102 my $keys = scalar @u;
103 $keys .= ($keys == 1) ? " key" : " keys";
105 for (keys %u) {
108 is ($l, $r, "\\w on keys with $keys, key of length " . length $_);
122 is ($l, $r, "\\w on each, with $keys, key of length " . length $_);
129 is ($l, $r, "\\w on hash with $keys, key of length " . length $_);
145 for (keys %bytes_first) {
153 for (keys %bytes_first) {
161 for (keys %utf8_first) {
169 for (keys %utf8_first) {