From 37ca02a84ed7800959b6646e22555d397c3a5728 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 29 Mar 2013 08:30:56 -0700 Subject: [PATCH] math.floats: adding some tests for M\ float mod. --- core/math/floats/floats-tests.factor | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/core/math/floats/floats-tests.factor b/core/math/floats/floats-tests.factor index d8d4e03b0f..70d5b765a7 100644 --- a/core/math/floats/floats-tests.factor +++ b/core/math/floats/floats-tests.factor @@ -102,3 +102,8 @@ unit-test { 38 -0x1.9999999999984p-4 } [ -3.9 -.1 /mod ] unit-test { 39 -0x1.999999999998ap-4 } [ -4.0 .1 /mod ] unit-test { 38 -0x1.9999999999984p-4 } [ -3.9 .1 /mod ] unit-test + +{ 0.5 } [ 3.5 0.75 mod ] unit-test +{ -0.5 } [ -3.5 0.75 mod ] unit-test +{ -0.5 } [ -3.5 -0.75 mod ] unit-test +{ 0.5 } [ 3.5 -0.75 mod ] unit-test