eeva/servant
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Correct accuracy for Double tests

Browse source
This commit is contained in:
Christian Marie 2015-03-18 09:14:58 +11:00
parent e45beddd35
commit 24e32f194e
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
test/Servant/Common/TextSpec.hs
View file

@ -61,7 +61,7 @@ spec = describe "Servant.Common.Text" $ do
-- http://en.wikipedia.org/wiki/Floating_point#Internal_representation -- http://en.wikipedia.org/wiki/Floating_point#Internal_representation
it "holds for Double" $ it "holds for Double" $
property $ \x -> property $ \x ->
x < 1.0e15 && x > 1.0e-16 ==> x < 1.0e15 && x > 1.0e-15 ==>
textLaw (x :: Double) textLaw (x :: Double)
it "holds for Float" $ it "holds for Float" $