ranges: test intersect on ratio and float

diff --git a/core/ranges/ranges-tests.factor b/core/ranges/ranges-tests.factor
index 6b3188751fc6745afdca820a0685486b166cfd62..11ba2741d1f405117b7d86157dad6125d9d11517 100644 (file)
--- a/core/ranges/ranges-tests.factor
+++ b/core/ranges/ranges-tests.factor
@@ -78,6 +78,10 @@ USING: arrays kernel math ranges sequences sets tools.test ;
     1 100 3 <range> 11 50 2 <range> intersect >array ] unit-test
 { { 6 } } [
     6 7 1 <range> 6 -20 -4 <range> intersect >array ] unit-test
+{ { 3 3+1/3 3+2/3 4 4+1/3 4+2/3 5 } } [
+    2 5 1/3 <range> 3 10 1/3 <range> intersect >array ] unit-test
+{ { 1.0 1.5 2.0 } } [
+    1.0 2.0 0.25 <range> 1.0 2.0 0.5 <range> intersect >array ] unit-test
 
 { f } [ 1 8 2 <range> 2 9 2 <range> intersects? ] unit-test
 { f } [ 1 8 2 <range> 8 1 -2 <range> intersects? ] unit-test
@@ -92,4 +96,4 @@ USING: arrays kernel math ranges sequences sets tools.test ;
 
 { t } [ 3 10 4 <range> 1 10 2 <range> subset? ] unit-test
 { t } [ 1 0 1 <range> 10 2 1 <range> subset? ] unit-test
-{ f } [ 1 10 2 <range> 3 10 4 <range> subset? ] unit-test 
\ No newline at end of file
+{ f } [ 1 10 2 <range> 3 10 4 <range> subset? ] unit-test