Correct accuracy for Double tests
commit24e32f194e2775a678d05c9a975942ee6d75c87c
authorChristian Marie <christian@ponies.io>
dateWed 18 Mar 2015, 09:14 (12 years ago)
parente45bedd
test/Servant/Common/TextSpec.hs+1−1
@@ -61,7 +61,7 @@ spec = describe "Servant.Common.Text" $ do
6161 -- http://en.wikipedia.org/wiki/Floating_point#Internal_representation
6262 it "holds for Double" $
6363 property $ \x ->
64− x < 1.0e15 && x > 1.0e-16 ==>
64+ x < 1.0e15 && x > 1.0e-15 ==>
6565 textLaw (x :: Double)
6666
6767 it "holds for Float" $