APItest/t/hash.t

110   my ($test_sub, $key, $keys, $message, @other) = @_;
119   &$test_sub (\%hash, $key, $printable, $message, @other);
120   &$test_sub (\%tiehash, $key, $printable, "$message tie", @other);
124   my ($hash, $key, $printable, $message) = @_;
126   ok (exists $hash->{$key}, "hv_exists_ent present$message $printable");
128       "hv_exists present$message $printable");
132   my ($hash, $key, $printable, $message) = @_;
134   ok (!exists $hash->{$key}, "hv_exists_ent absent$message $printable");
136       "hv_exists absent$message $printable");
140   my ($hash, $key, $printable, $message) = @_;
149       "hv_delete_ent present$message $printable");
150   is (delete $copy->{$key}, $key, "hv_delete_ent present$message $printable");
152       "hv_delete_ent present$message $printable");
155       "hv_delete present$message $printable");
157       "hv_delete present$message $printable");
159       "hv_delete present$message $printable");
163   my ($hash, $key, $printable, $message) = @_;
171   is (delete $copy->{$key}, undef, "hv_delete_ent absent$message $printable");
174       "hv_delete absent$message $printable");
178   my ($hash, $key, $printable, $message, $defaults) = @_;
194       "hv_store_ent$message $printable");
195   ok (brute_force_exists (\%h1, $key), "hv_store_ent$message $printable");
197       "hv_store$message $printable");
198   ok (brute_force_exists (\%h2, $key), "hv_store$message $printable");
202   my ($hash, $key, $printable, $message) = @_;
204   is ($hash->{$key}, $key, "hv_fetch_ent present$message $printable");
206       "hv_fetch present$message $printable");
210   my ($hash, $key, $printable, $message) = @_;
212   is ($hash->{$key}, undef, "hv_fetch_ent absent$message $printable");
214       "hv_fetch absent$message $printable");