compiler.tree.propagation: add some tests.

diff --git a/basis/compiler/tree/propagation/propagation-tests.factor b/basis/compiler/tree/propagation/propagation-tests.factor
index 75df94f62963d231dae4aba27ac8f0022401db28..33321734c3d851a7c9114475e6368f30c6a15964 100644 (file)
--- a/basis/compiler/tree/propagation/propagation-tests.factor
+++ b/basis/compiler/tree/propagation/propagation-tests.factor
@@ -1024,6 +1024,8 @@ M: tuple-with-read-only-slot clone
 
 ! Could be bignum not integer but who cares
 { V{ integer } } [ [ 10 >bignum bitand ] final-classes ] unit-test
+{ V{ bignum } } [ [ { fixnum } declare 10 >bignum bitand ] final-classes ] unit-test
+{ V{ bignum } } [ [ { integer } declare 10 >bignum bitand ] final-classes ] unit-test
 
 { t } [ [ { fixnum fixnum } declare min ] { min } inlined? ] unit-test
 { f } [ [ { fixnum fixnum } declare min ] { fixnum-min } inlined? ] unit-test