t/op/hashassign.t

32 my @temp = (key=>undef);
33 is ($comma{$temp[0]}, "value", 'is key present? (using LHS of =>)');
35 @temp = %comma;
36 ok (eq_array (\@comma, \@temp), 'list from comma hash');
38 @temp = each %comma;
39 ok (eq_array (\@comma, \@temp), 'first each from comma hash');
40 @temp = each %comma;
41 ok (eq_array ([], \@temp), 'last each from comma hash');
43 my %temp = %comma;
45 ok (keys %temp == 1, 'keys on copy of comma hash');
46 ok (values %temp == 1, 'values on copy of comma hash');
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 =>)');
53 @temp = %temp;
54 ok (eq_array (\@temp, \@temp), 'list from copy of comma hash');
56 @temp = each %temp;
57 ok (eq_array (\@temp, \@temp), 'first each from copy of comma hash');
58 @temp = each %temp;
59 ok (eq_array ([], \@temp), 'last each from copy of comma hash');
72 @temp = ('Key', undef);
73 is ($arrow{$temp[0]}, "Value", 'is key present? (using LHS of =>)');
75 @temp = %arrow;
76 ok (eq_array (\@arrow, \@temp), 'list from arrow hash');
78 @temp = each %arrow;
79 ok (eq_array (\@arrow, \@temp), 'first each from arrow hash');
80 @temp = each %arrow;
81 ok (eq_array ([], \@temp), 'last each from arrow hash');
83 %temp = %arrow;
85 ok (keys %temp == 1, 'keys on copy of arrow hash');
86 ok (values %temp == 1, 'values on copy of arrow hash');
87 is ($temp{'K' . $key}, "Value", 'is key present? (unoptimised)');
89 is ($temp{Key}, "Value", 'is key present? (maybe optimised)');
90 @temp = ('Key', undef);
91 is ($arrow{$temp[0]}, "Value", 'is key present? (using LHS of =>)');
93 @temp = %temp;
94 ok (eq_array (\@temp, \@temp), 'list from copy of arrow hash');
96 @temp = each %temp;
97 ok (eq_array (\@temp, \@temp), 'first each from copy of arrow hash');
98 @temp = each %temp;
99 ok (eq_array ([], \@temp), 'last each from copy of arrow hash');
200   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
202   is ($utf8c{$temp[0]}, $value, 'is key present? (using LHS of $tempval)');
204   @temp = %utf8c;
205   ok (eq_array (\@utf8c, \@temp), 'list from utf8 comma hash');
207   @temp = each %utf8c;
208   ok (eq_array (\@utf8c, \@temp), 'first each from utf8 comma hash');
209   @temp = each %utf8c;
210   ok (eq_array ([], \@temp), 'last each from utf8 comma hash');
212   %temp = %utf8c;
214   ok (keys %temp == 1, 'keys on copy of utf8 comma hash');
215   ok (values %temp == 1, 'values on copy of utf8 comma hash');
216   is ($temp{"" . $key}, $value, 'is key present? (unoptimised)');
217   $tempval = sprintf '$temp{"\x{%x}"}', $chr;
219   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
221   is ($temp{$temp[0]}, $value, "is key present? (using LHS of $tempval)");
223   @temp = %temp;
224   ok (eq_array (\@temp, \@temp), 'list from copy of utf8 comma hash');
226   @temp = each %temp;
227   ok (eq_array (\@temp, \@temp), 'first each from copy of utf8 comma hash');
228   @temp = each %temp;
229   ok (eq_array ([], \@temp), 'last each from copy of utf8 comma hash');
242   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
244   is ($utf8a{$temp[0]}, $value, "is key present? (using LHS of $tempval)");
246   @temp = %utf8a;
247   ok (eq_array (\@utf8a, \@temp), 'list from utf8 arrow hash');
249   @temp = each %utf8a;
250   ok (eq_array (\@utf8a, \@temp), 'first each from utf8 arrow hash');
251   @temp = each %utf8a;
252   ok (eq_array ([], \@temp), 'last each from utf8 arrow hash');
254   %temp = %utf8a;
256   ok (keys %temp == 1, 'keys on copy of utf8 arrow hash');
257   ok (values %temp == 1, 'values on copy of utf8 arrow hash');
258   is ($temp{'' . $key}, $value, 'is key present? (unoptimised)');
259   $tempval = sprintf '$temp{"\x{%x}"}', $chr;
261   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
263   is ($temp{$temp[0]}, $value, "is key present? (using LHS of $tempval)");
265   @temp = %temp;
266   ok (eq_array (\@temp, \@temp), 'list from copy of utf8 arrow hash');
268   @temp = each %temp;
269   ok (eq_array (\@temp, \@temp), 'first each from copy of utf8 arrow hash');
270   @temp = each %temp;
271   ok (eq_array ([], \@temp), 'last each from copy of utf8 arrow hash');