From 0e3a261637c9dfe03e854aa143695a0273ce2374 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 22 Sep 2009 05:07:52 -0500
Subject: [PATCH] Fix test failures in compiler.cfg.linearization.order,
 compiler.tests.low-level-ir and compiler.graphviz

---
 basis/compiler/cfg/linearization/order/order-tests.factor | 2 +-
 basis/compiler/tests/low-level-ir.factor                  | 4 ++--
 extra/compiler/graphviz/graphviz-tests.factor             | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/basis/compiler/cfg/linearization/order/order-tests.factor b/basis/compiler/cfg/linearization/order/order-tests.factor
index 34eaeffd9a..67fb55f507 100644
--- 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
index e2fc26e94b..76d7e6de42 100644
--- 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
index 23f5f6fb60..8f6c0171e7 100644
--- 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