[svn:parrot] r39623 - branches/tt761_keys_revamp/t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Wed Jun 17 12:44:08 2009
New Revision: 39623
URL: https://trac.parrot.org/parrot/changeset/39623

Log:
[t] Don't rely on Hash keys order in Namespace tests.

Modified:
   branches/tt761_keys_revamp/t/pmc/namespace.t

Modified: branches/tt761_keys_revamp/t/pmc/namespace.t
==============================================================================
--- branches/tt761_keys_revamp/t/pmc/namespace.t	Wed Jun 17 12:43:49 2009	(r39622)
+++ branches/tt761_keys_revamp/t/pmc/namespace.t	Wed Jun 17 12:44:08 2009	(r39623)
@@ -1701,21 +1701,24 @@
      $P1 = 0
      set_root_global [ "DUMMY"; "X"; "Y" ], "T0", $P0
 
-     .local pmc dummy_x_y_ns, iter
+     .local pmc dummy_x_y_ns, iter, res
      dummy_x_y_ns = get_root_namespace [ "DUMMY"; "X"; "Y" ]
      iter = new ['Iterator'], dummy_x_y_ns
+     res  = new ['ResizablePMCArray']
 loop:
      unless iter goto loop_end
      $S0 = shift iter
-     print $S0
-     print "\n"
+     push res, $S0
      goto loop
 loop_end:
 
+     res.'sort'()
+     $S0 = join ' ', res
+     say $S0
+
 .end
 CODE
-Explosion
-T0
+Explosion T0
 OUT
 
 pir_error_output_like( <<'CODE', <<OUT, "NameSpace with no class, RT #55620" );
@@ -1732,6 +1735,9 @@
 .namespace [ 'bar' ]
 
 .sub 'main' :main
+    .local pmc res
+    res = new ['ResizablePMCArray']
+
     $P0 = get_namespace
     say $P0
     $I0 = elements $P0
@@ -1740,9 +1746,13 @@
   L1:
     unless $P1 goto L2
     $P2 = shift $P1
-    say $P2
+    $S0 = $P2
+    push res, $S0
     goto L1
   L2:
+    res.'sort'()
+    $S0 = join "\n", res
+    say $S0
     say 'OK'
 .end
 
@@ -1752,8 +1762,8 @@
 CODE
 bar
 2
-main
 foo
+main
 OK
 OUT