Delete empty unit tests files, remove 1- and 1+, reorder IN: lines in a lot of places...

[factor.git] / basis / compiler / tree / propagation / recursive / recursive-tests.factor

diff --git a/basis/compiler/tree/propagation/recursive/recursive-tests.factor b/basis/compiler/tree/propagation/recursive/recursive-tests.factor
index cf72a2a135e809f34ecb2c9a1952d1cbffe9f478..974bb584eba38b70b82bb59611e59a34908626ae 100644 (file)
--- a/basis/compiler/tree/propagation/recursive/recursive-tests.factor
+++ b/basis/compiler/tree/propagation/recursive/recursive-tests.factor
@@ -1,19 +1,51 @@
-IN: compiler.tree.propagation.recursive.tests
 USING: tools.test compiler.tree.propagation.recursive
-math.intervals kernel ;
+math.intervals kernel math literals layouts ;
+IN: compiler.tree.propagation.recursive.tests
 
 [ T{ interval f { 0 t } { 1/0. t } } ] [
     T{ interval f { 1 t } { 1 t } }
-    T{ interval f { 0 t } { 0 t } } generalize-counter-interval
+    T{ interval f { 0 t } { 0 t } }
+    integer generalize-counter-interval
+] unit-test
+
+[ T{ interval f { 0 t } { $[ most-positive-fixnum ] t } } ] [
+    T{ interval f { 1 t } { 1 t } }
+    T{ interval f { 0 t } { 0 t } }
+    fixnum generalize-counter-interval
 ] unit-test
 
 [ T{ interval f { -1/0. t } { 10 t } } ] [
     T{ interval f { -1 t } { -1 t } }
-    T{ interval f { 10 t } { 10 t } } generalize-counter-interval
+    T{ interval f { 10 t } { 10 t } }
+    integer generalize-counter-interval
+] unit-test
+
+[ T{ interval f { $[ most-negative-fixnum ] t } { 10 t } } ] [
+    T{ interval f { -1 t } { -1 t } }
+    T{ interval f { 10 t } { 10 t } }
+    fixnum generalize-counter-interval
 ] unit-test
 
 [ t ] [
     T{ interval f { 1 t } { 268435455 t } }
     T{ interval f { -268435456 t } { 268435455 t } } tuck
-    generalize-counter-interval =
+    integer generalize-counter-interval =
+] unit-test
+
+[ t ] [
+    T{ interval f { 1 t } { 268435455 t } }
+    T{ interval f { -268435456 t } { 268435455 t } } tuck
+    fixnum generalize-counter-interval =
+] unit-test
+
+[ full-interval ] [
+    T{ interval f { -5 t } { 3 t } }
+    T{ interval f { 2 t } { 11 t } }
+    integer generalize-counter-interval
+] unit-test
+
+[ $[ fixnum-interval ] ] [
+    T{ interval f { -5 t } { 3 t } }
+    T{ interval f { 2 t } { 11 t } }
+    fixnum generalize-counter-interval
 ] unit-test