compiler.cfg.builder: add test to ensure that fast union predicates do not contain...

diff --git a/basis/compiler/cfg/builder/builder-tests.factor b/basis/compiler/cfg/builder/builder-tests.factor
index 9677dc30caed950dc66fe50a597f812945fb0855..73d1204c37b73d0d1deea0a6b4a53a16814a5f04 100644 (file)
--- a/basis/compiler/cfg/builder/builder-tests.factor
+++ b/basis/compiler/cfg/builder/builder-tests.factor
@@ -224,3 +224,9 @@ IN: compiler.cfg.builder.tests
 
 ! Regression. Make sure branch splitting works.
 [ 2 ] [ [ 1 2 ? ] [ ##return? ] count-insns ] unit-test
+
+! Make sure fast union predicates don't have conditionals.
+[ f ] [
+    [ tag 1 swap fixnum-shift-fast ]
+    [ ##compare-integer-imm-branch? ] contains-insn?
+] unit-test