math.functions: fix divisor? to work with mixed numbers

[factor.git] / basis / math / functions / functions-tests.factor

diff --git a/basis/math/functions/functions-tests.factor b/basis/math/functions/functions-tests.factor
index 906264e5e25890c2729a6c384502baddf166c5ba..c7fe48545ba397d2c258348e2d412b6d92f9f59f 100644 (file)
--- a/basis/math/functions/functions-tests.factor
+++ b/basis/math/functions/functions-tests.factor
@@ -159,6 +159,7 @@ CONSTANT: log10-factorial-1000 0x1.40f3593ed6f8ep11
 { t } [ 42 -7 divisor? ] unit-test
 { t } [ 42 42 divisor? ] unit-test
 { f } [ 42 16 divisor? ] unit-test
+{ t } [ 42.0 1 divisor? ] unit-test
 
 { 3 } [ 5 7 mod-inv ] unit-test
 { 78572682077 } [ 234829342 342389423843 mod-inv ] unit-test