Correct accuracy for Double tests

2015-03-18 09:14:58 +11:00 · 2015-03-18 09:14:58 +11:00 · 24e32f194e
commit 24e32f194e
parent e45beddd35
1 changed files with 1 additions and 1 deletions
--- a/test/Servant/Common/TextSpec.hs
+++ b/test/Servant/Common/TextSpec.hs
@ -61,7 +61,7 @@ spec = describe "Servant.Common.Text" $ do
        -- http://en.wikipedia.org/wiki/Floating_point#Internal_representation
        it "holds for Double" $
            property $ \x ->
-                x < 1.0e15 && x > 1.0e-16 ==>
+                x < 1.0e15 && x > 1.0e-15 ==>
                    textLaw (x :: Double)

        it "holds for Float" $