Fix test failures in compiler.cfg.linearization.order, compiler.tests…

….low-level-ir and compiler.graphviz
littledan · Sep 22, 2009 · 9a7577a · 9a7577a
1 parent a21d951
commit 9a7577a
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/basis/compiler/cfg/linearization/order/order-tests.factor b/basis/compiler/cfg/linearization/order/order-tests.factor
@@ -1,5 +1,5 @@
 USING: compiler.cfg.debugger compiler.cfg compiler.cfg.linearization.order
-kernel accessors sequences sets tools.test ;
+kernel accessors sequences sets tools.test namespaces ;
 IN: compiler.cfg.linearization.order.tests
 
 V{ } 0 test-bb

diff --git a/basis/compiler/tests/low-level-ir.factor b/basis/compiler/tests/low-level-ir.factor
@@ -18,7 +18,7 @@ IN: compiler.tests.low-level-ir
     compile-cfg ;
 
 : compile-test-bb ( insns -- result )
-    V{ T{ ##prologue } T{ ##branch } } 0 test-bb
+    V{ T{ ##prologue } T{ ##branch } } [ clone ] map 0 test-bb
     V{
         T{ ##inc-d f 1 }
         T{ ##replace f 0 D 0 }
@@ -73,7 +73,7 @@ IN: compiler.tests.low-level-ir
 [ t ] [
     V{
         T{ ##load-reference f 0 { t f t } }
-        T{ ##slot-imm f 0 0 2 $[ array tag-number ] 2 }
+        T{ ##slot-imm f 0 0 2 $[ array tag-number ] }
     } compile-test-bb
 ] unit-test
 

diff --git a/extra/compiler/graphviz/graphviz-tests.factor b/extra/compiler/graphviz/graphviz-tests.factor
@@ -1,5 +1,5 @@
 IN: compiler.graphviz.tests
-USING: compiler.graphviz io.files ;
+USING: compiler.graphviz io.files kernel tools.test ;
 
 [ t ] [ [ [ 1 ] [ 2 ] if ] render-cfg exists? ] unit-test
 [ t ] [ [ [ 1 ] [ 2 ] if ] render-dom exists? ] unit-test