Re: perlhash iter busted

[Leopold Toetsch]

Sam Ruby [EMAIL PROTECTED] wrote:

 Test case attached.

Another one of my hacks. The combination
KEY_integer_FLAG|KEY_number_FLAG was invented to optimize the sequence
d = dict.fromkeys(xrange(100)) with integer keys.

 - Sam Ruby

Fixed,
leo

perlhash iter busted

[Sam Ruby]

Test case attached.
- Sam Ruby
Index: t/pmc/perlhash.t
===
RCS file: /cvs/public/parrot/t/pmc/perlhash.t,v
retrieving revision 1.48
diff -u -r1.48 perlhash.t
--- t/pmc/perlhash.t1 Oct 2004 21:16:52 -   1.48
+++ t/pmc/perlhash.t3 Dec 2004 19:18:51 -
@@ -19,7 +19,7 @@
 
 =cut
 
-use Parrot::Test tests = 36;
+use Parrot::Test tests = 37;
 use Test::More;
 
 output_is(CODE, OUTPUT, Initial PerlHash tests);
@@ -1215,4 +1215,19 @@
 0
 OUTPUT
 
+output_is( 'CODE',  'OUTPUT', iter);
+##PIR##
+.sub __main__ @MAIN
+new P0, .PerlHash
+set P0['a'], 'x'
+iter P1, P0
+shift P2, P1
+print P2
+print \n
+end
+.end
+CODE
+a
+OUTPUT
+
 1;