Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/hashassign.t

Lines Matching refs:key
13 my @comma = ("key", "value");
16 # $foo{string} into a shared hash key scalar. It might be worth making the
17 # tokeniser build the LHS of => as a shared hash key scalar too.
27 my $key = 'ey';
28 is ($comma{"k" . $key}, "value", 'is key present? (unoptimised)');
30 is ($comma{key}, "value", 'is key present? (maybe optimised)');
32 my @temp = (key=>undef);
33 is ($comma{$temp[0]}, "value", 'is key present? (using LHS of =>)');
47 is ($temp{'k' . $key}, "value", 'is key present? (unoptimised)');
49 is ($temp{key}, "value", 'is key present? (maybe optimised)');
50 @temp = (key=>undef);
51 is ($comma{$temp[0]}, "value", 'is key present? (using LHS of =>)');
67 $key = 'ey';
68 is ($arrow{"K" . $key}, "Value", 'is key present? (unoptimised)');
70 is ($arrow{Key}, "Value", 'is key present? (maybe optimised)');
73 is ($arrow{$temp[0]}, "Value", 'is key present? (using LHS of =>)');
87 is ($temp{'K' . $key}, "Value", 'is key present? (unoptimised)');
89 is ($temp{Key}, "Value", 'is key present? (maybe optimised)');
91 is ($arrow{$temp[0]}, "Value", 'is key present? (using LHS of =>)');
189   my ($key, $value) = (chr ($chr) . "\x{ABCD}", "$chr\x{ABCD}");
190   chop ($key, $value);
191   my @utf8c = ($key, $value);
197   is ($utf8c{"" . $key}, $value, 'is key present? (unoptimised)');
199   is (eval $tempval, $value, "is key present? (maybe $tempval is optimised)");
202   is ($utf8c{$temp[0]}, $value, 'is key present? (using LHS of $tempval)');
216   is ($temp{"" . $key}, $value, 'is key present? (unoptimised)');
218   is (eval $tempval, $value, "is key present? (maybe $tempval is optimised)");
221   is ($temp{$temp[0]}, $value, "is key present? (using LHS of $tempval)");
239   is ($utf8a{$key . ""}, $value, 'is key present? (unoptimised)');
241   is (eval $tempval, $value, "is key present? (maybe $tempval is optimised)");
244   is ($utf8a{$temp[0]}, $value, "is key present? (using LHS of $tempval)");
258   is ($temp{'' . $key}, $value, 'is key present? (unoptimised)');
260   is (eval $tempval, $value, "is key present? (maybe $tempval is optimised)");
263   is ($temp{$temp[0]}, $value, "is key present? (using LHS of $tempval)");