Lines Matching refs:keys
37 my @keys = (@testkeys, $utf8_for_258);
39 foreach (@keys) {
42 main_tests (\@keys, \@testkeys, '');
44 foreach (@keys) {
47 main_tests (\@keys, \@testkeys, ' [utf8 hash]');
63 my ($keys, $testkeys, $description) = @_;
72 main_test_inner ($key, $lckey, $unikey, $keys, $description);
77 main_test_inner ($key, $lckey, $unikey, $keys,
83 perform_test (\&test_absent, (chr 258), $keys, '');
85 perform_test (\&test_fetch_absent, (chr 258), $keys, '');
86 perform_test (\&test_delete_absent, (chr 258), $keys, '');
90 my ($key, $lckey, $unikey, $keys, $description) = @_;
91 perform_test (\&test_present, $key, $keys, $description);
92 perform_test (\&test_fetch_present, $key, $keys, $description);
93 perform_test (\&test_delete_present, $key, $keys, $description);
95 perform_test (\&test_store, $key, $keys, $description, [a=>'cheat']);
96 perform_test (\&test_store, $key, $keys, $description, []);
98 perform_test (\&test_absent, $lckey, $keys, $description);
99 perform_test (\&test_fetch_absent, $lckey, $keys, $description);
100 perform_test (\&test_delete_absent, $lckey, $keys, $description);
104 perform_test (\&test_absent, $unikey, $keys, $description);
105 perform_test (\&test_fetch_absent, $unikey, $keys, $description);
106 perform_test (\&test_delete_absent, $unikey, $keys, $description);
110 my ($test_sub, $key, $keys, $message, @other) = @_;
116 @hash{@$keys} = @$keys;
117 @tiehash{@$keys} = @$keys;
219 foreach (keys %$hash) {