t/op/hashassign.t

13 my @comma = ("key", "value");
23 my %comma = @comma;
24 ok (keys %comma == 1, 'keys on comma hash');
25 ok (values %comma == 1, 'values on comma hash');
28 is ($comma{"k" . $key}, "value", 'is key present? (unoptimised)');
30 is ($comma{key}, "value", 'is key present? (maybe optimised)');
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');
51 is ($comma{$temp[0]}, "value", 'is key present? (using LHS of =>)');
54 ok (eq_array (\@temp, \@temp), 'list from copy of comma hash');
57 ok (eq_array (\@temp, \@temp), 'first each from copy of comma hash');
59 ok (eq_array ([], \@temp), 'last each from copy of comma hash');
194   ok (keys %utf8c == 1, 'keys on utf8 comma hash');
195   ok (values %utf8c == 1, 'values on utf8 comma hash');
205   ok (eq_array (\@utf8c, \@temp), 'list from utf8 comma hash');
208   ok (eq_array (\@utf8c, \@temp), 'first each from utf8 comma hash');
210   ok (eq_array ([], \@temp), 'last each from utf8 comma hash');
214   ok (keys %temp == 1, 'keys on copy of utf8 comma hash');
215   ok (values %temp == 1, 'values on copy of utf8 comma hash');
224   ok (eq_array (\@temp, \@temp), 'list from copy of utf8 comma hash');
227   ok (eq_array (\@temp, \@temp), 'first each from copy of utf8 comma hash');
229   ok (eq_array ([], \@temp), 'last each from copy of utf8 comma hash');