Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Hash/Util.t

Lines Matching refs:key
28 like( $@, qr/^Attempt to access disallowed key 'baz' in a restricted hash/,
39 like( $@, qr/^Attempt to access disallowed key 'i_dont_exist' in a restricted hash/ );
43 like( $@, qr/^Attempt to access disallowed key 'four' in a restricted hash/ );
46 like( $@, qr/^Attempt to access disallowed key '(.*)' in a restricted hash/,
47                                                'wide hex key' );
50 like( $@, qr/^Attempt to delete readonly key 'locked' from a restricted hash/,
51                                            'trying to delete a locked key' );
54                                            'trying to change a locked key' );
58 like( $@, qr/^Attempt to delete disallowed key 'I_dont_exist' from a restricted hash/,
59                              'trying to delete a key that doesnt exist' );
69                              '  individual key still readonly' );
83     like( $@, qr/^Attempt to access disallowed key 'wubble'/ );
93     like( $@, qr/^Attempt to delete readonly key 'RO' from a restricted hash/ );
112     like( $@, qr/^Attempt to access disallowed key 'wibble' in a restricted hash/,
131     like( $@, qr/^Attempt to access disallowed key 'wibble' in a restricted hash/, '  locked' );
138     is( $@, sprintf("Hash has key 'bar' which is not in the new key ".
161 like( $@, qr/^Attempt to access disallowed key 'I_DONT_EXIST' in a restricted hash/,   'locked %ENV');
168     is (scalar keys %hash, 0, "place holder isn't a key");
170     is (scalar keys %hash, 1, "we now have a key");
172     is (scalar keys %hash, 0, "now no key");
177     is (scalar keys %hash, 1, "key again");
179     is (scalar keys %hash, 0, "no key again");
183     is (scalar keys %hash, 0, "place holder isn't a key");
187           qr/^Attempt to access disallowed key 'zeroeth' in a restricted hash/,
188           'locked key never mentioned before should fail');
191           qr/^Attempt to access disallowed key 'first' in a restricted hash/,
195     is (scalar keys %hash, 1, "we now have just one key");
212           qr/^Attempt to access disallowed key 'second' in a restricted hash/,
254       # the keys of the hash involves behind the scenes key additions.
319 	is ($counter, 0, "0 objects when hash key is deleted $state");