[svn:parrot] r44264 - branches/sys_mem_reduce/t/pmc

[bacek at svn.parrot.org]

Author: bacek
Date: Sun Feb 21 00:18:55 2010
New Revision: 44264
URL: https://trac.parrot.org/parrot/changeset/44264

Log:
Add test for initial FBA filling with 0.

Modified:
   branches/sys_mem_reduce/t/pmc/fixedbooleanarray.t

Modified: branches/sys_mem_reduce/t/pmc/fixedbooleanarray.t
==============================================================================
--- branches/sys_mem_reduce/t/pmc/fixedbooleanarray.t	Sun Feb 21 00:12:16 2010	(r44263)
+++ branches/sys_mem_reduce/t/pmc/fixedbooleanarray.t	Sun Feb 21 00:18:55 2010	(r44264)
@@ -17,7 +17,7 @@
 
 =cut
 
-.const int TESTS = 36
+.const int TESTS = 37
 
 .sub 'test' :main
     .include 'test_more.pir'
@@ -292,18 +292,17 @@
     size = 1564
     $P0 = size
 
-    $P0.'fill'(0)
+    # Fresh array is empty.
     i = 0
     result = 0
-    $I1 = 0
-  fill_false_loop:
-    unless i < size goto fill_false_end
+  initial_false_loop:
+    unless i < size goto initial_false_end
     $I0 = $P0[i]
     result = or result, $I0
     inc i
-    goto fill_false_loop
-  fill_false_end:
-    nok(result, "Fill with 0")
+    goto initial_false_loop
+  initial_false_end:
+    nok(result, "Fresh array filled with 0")
 
     $P0.'fill'(1)
     i = 0
@@ -317,6 +316,20 @@
     goto fill_true_loop
   fill_true_end:
     ok(result, "Fill with 1")
+
+    $P0.'fill'(0)
+    i = 0
+    result = 0
+    $I1 = 0
+  fill_false_loop:
+    unless i < size goto fill_false_end
+    $I0 = $P0[i]
+    result = or result, $I0
+    inc i
+    goto fill_false_loop
+  fill_false_end:
+    nok(result, "Fill with 0")
+
 .end