Lines Matching refs:keys
42 @keys = keys %h;
45 ok ($#keys == 29, "keys");
51 if ($key eq $keys[$i] && $value eq $values[$i]
60 @keys = ('blurfl', keys(%h), 'dyick');
61 ok ($#keys == 31, "added a key");
64 keys %h = $size * 5;
67 keys %h = 1;
85 keys %hash;
88 ok ($total == 100, "test scalar keys resets iterator");
99 ok ($total == 100, "test values keys resets iterator");
102 keys(%hash) = $size / 2;
104 keys(%hash) = $size + 100;
107 ok (keys(%hash) == 10, "keys (%hash)");
109 ok (keys(hash) == 10, "keys (hash)");
113 @keys = keys(h);
116 if ($key eq $keys[$i] && $value eq $values[$i] && $key eq lc($value)) {
135 # Check for Unicode hash keys.
141 foreach (keys %u) {
145 ok (eq_hash(\%u, \%u2), "copied unicode hash keys correctly?");
153 print "# $b{$_}\n" for keys %b; # Used to core dump before change #8056.
155 print "# $u{$_}\n" for keys %u; # Used to core dump before change #8056.
164 for (keys %u) {
184 is(scalar keys %u, 4, "four different Unicode keys");