compiler.cfg.*: a bunch of new tests

[factor.git] / basis / compiler / cfg / builder / builder-tests.factor

diff --git a/basis/compiler/cfg/builder/builder-tests.factor b/basis/compiler/cfg/builder/builder-tests.factor
index c8c314c7772991ee951c034d601ccb645c33a6fd..90b0c29cb0116004aa0f9d1b03ff5f63e34f6786 100644 (file)
--- a/basis/compiler/cfg/builder/builder-tests.factor
+++ b/basis/compiler/cfg/builder/builder-tests.factor
@@ -4,7 +4,7 @@ compiler.cfg.debugger compiler.cfg.instructions compiler.cfg.optimizer
 compiler.cfg.predecessors compiler.cfg.registers compiler.cfg.representations
 compiler.cfg.rpo compiler.cfg.stacks compiler.cfg.stacks.local
 compiler.cfg.utilities compiler.test compiler.tree compiler.tree.builder
-compiler.tree.optimizer fry hashtables kernel kernel.private locals make math
+compiler.tree.optimizer fry hashtables io kernel kernel.private locals make math
 math.partial-dispatch math.private namespaces prettyprint sbufs sequences
 sequences.private slots.private strings strings.private tools.test vectors
 words ;
@@ -243,6 +243,14 @@ IN: compiler.cfg.builder.tests
     T{ #shuffle { in-d { 37 81 92 } } } make-input-map
 ] unit-test
 
+! emit-call
+{
+    V{ T{ ##call { word print } } T{ ##branch } }
+} [
+    [ \ print 4 emit-call ] V{ } make drop
+    basic-block get successors>> first instructions>>
+] cfg-unit-test
+
 ! emit-node
 {
     { T{ ##load-integer { dst 78 } { val 0 } } }