Lines Matching full:temp

28 my @temp = (key=>undef);
29 is ($comma{$temp[0]}, "value", 'is key present? (using LHS of =>)');
31 @temp = %comma;
32 is_deeply (\@comma, \@temp, 'list from comma hash');
34 @temp = each %comma;
35 is_deeply (\@comma, \@temp, 'first each from comma hash');
36 @temp = each %comma;
37 is_deeply ([], \@temp, 'last each from comma hash');
39 my %temp = %comma;
41 ok (keys %temp == 1, 'keys on copy of comma hash');
42 ok (values %temp == 1, 'values on copy of comma hash');
43 is ($temp{'k' . $key}, "value", 'is key present? (unoptimised)');
45 is ($temp{key}, "value", 'is key present? (maybe optimised)');
46 @temp = (key=>undef);
47 is ($comma{$temp[0]}, "value", 'is key present? (using LHS of =>)');
49 @temp = %temp;
50 is_deeply (\@temp, \@temp, 'list from copy of comma hash');
52 @temp = each %temp;
53 is_deeply (\@temp, \@temp, 'first each from copy of comma hash');
54 @temp = each %temp;
55 is_deeply ([], \@temp, 'last each from copy of comma hash');
69 @temp = ('Key', undef);
70 is ($arrow{$temp[0]}, "Value", 'is key present? (using LHS of =>)');
72 @temp = %arrow;
73 is_deeply (\@arrow, \@temp, 'list from arrow hash');
75 @temp = each %arrow;
76 is_deeply (\@arrow, \@temp, 'first each from arrow hash');
77 @temp = each %arrow;
78 is_deeply ([], \@temp, 'last each from arrow hash');
80 %temp = %arrow;
82 ok (keys %temp == 1, 'keys on copy of arrow hash');
83 ok (values %temp == 1, 'values on copy of arrow hash');
84 is ($temp{'K' . $key}, "Value", 'is key present? (unoptimised)');
86 is ($temp{Key}, "Value", 'is key present? (maybe optimised)');
87 @temp = ('Key', undef);
88 is ($arrow{$temp[0]}, "Value", 'is key present? (using LHS of =>)');
90 @temp = %temp;
91 is_deeply (\@temp, \@temp, 'list from copy of arrow hash');
93 @temp = each %temp;
94 is_deeply (\@temp, \@temp, 'first each from copy of arrow hash');
95 @temp = each %temp;
96 is_deeply ([], \@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   is_deeply (\@utf8c, \@temp, 'list from utf8 comma hash');
207   @temp = each %utf8c;
208   is_deeply (\@utf8c, \@temp, 'first each from utf8 comma hash');
209   @temp = each %utf8c;
210   is_deeply ([], \@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   is_deeply (\@temp, \@temp, 'list from copy of utf8 comma hash');
226   @temp = each %temp;
227   is_deeply (\@temp, \@temp, 'first each from copy of utf8 comma hash');
228   @temp = each %temp;
229   is_deeply ([], \@temp, 'last each from copy of utf8 comma hash');
243   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
245   is ($utf8a{$temp[0]}, $value, "is key present? (using LHS of $tempval)");
247   @temp = %utf8a;
248   is_deeply (\@utf8a, \@temp, 'list from utf8 arrow hash');
250   @temp = each %utf8a;
251   is_deeply (\@utf8a, \@temp, 'first each from utf8 arrow hash');
252   @temp = each %utf8a;
253   is_deeply ([], \@temp, 'last each from utf8 arrow hash');
255   %temp = %utf8a;
257   ok (keys %temp == 1, 'keys on copy of utf8 arrow hash');
258   ok (values %temp == 1, 'values on copy of utf8 arrow hash');
259   is ($temp{'' . $key}, $value, 'is key present? (unoptimised)');
260   $tempval = sprintf '$temp{"\x{%x}"}', $chr;
262   $tempval = sprintf '@temp = ("\x{%x}" => undef)', $chr;
264   is ($temp{$temp[0]}, $value, "is key present? (using LHS of $tempval)");
266   @temp = %temp;
267   is_deeply (\@temp, \@temp, 'list from copy of utf8 arrow hash');
269   @temp = each %temp;
270   is_deeply (\@temp, \@temp, 'first each from copy of utf8 arrow hash');
271   @temp = each %temp;
272   is_deeply ([], \@temp, 'last each from copy of utf8 arrow hash');