[svn:parrot] r39714 - branches/tt761_keys_revamp/t/op

[bacek at svn.parrot.org]

Author: bacek
Date: Mon Jun 22 12:37:32 2009
New Revision: 39714
URL: https://trac.parrot.org/parrot/changeset/39714

Log:
[t] Fix t/op/gc.t to not rely on Hash keys order.

Modified:
   branches/tt761_keys_revamp/t/op/gc.t

Modified: branches/tt761_keys_revamp/t/op/gc.t
==============================================================================
--- branches/tt761_keys_revamp/t/op/gc.t	Mon Jun 22 12:37:12 2009	(r39713)
+++ branches/tt761_keys_revamp/t/op/gc.t	Mon Jun 22 12:37:32 2009	(r39714)
@@ -533,17 +533,20 @@
     reg[b] = nil
     reg[c] = nil
 
+    $P1 = new ['ResizablePMCArray']
     it = iter reg
 loop:
     unless it goto done
     $P0 = shift it
-    print $P0
+    $S0 = $P0
+    push $P1, $S0
     goto loop
 done:
+    $P1.'sort'()
+    $S1 = join '', $P1
+    print $S1
     print "\n"
 .end
-# the current hash implementation returns entries in order
-# for a few keys, and if there were no deletes
 CODE
 k1k2k3
 OUTPUT