haskell/esqueleto
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Don't use (==) on Doubles (fixes #108).

Browse Source
This commit is contained in:
Felipe Lessa 2015-07-16 19:08:16 -03:00
parent d153dbd40a
commit 62e7bc5115
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/Test.hs
View File

@ -1238,7 +1238,9 @@ main = do
let r = castNum (n ^. NumbersInt) *. n ^. NumbersDouble let r = castNum (n ^. NumbersInt) *. n ^. NumbersDouble
orderBy [asc r] orderBy [asc r]
return r return r
liftIO $ ret `shouldBe` [Value 6.8, Value 7.7] liftIO $ length ret `shouldBe` 2
let [Value a, Value b] = ret
liftIO $ max (abs (a - 6.8)) (abs (b - 7.7)) `shouldSatisfy` (< 0.01)
describe "case" $ do describe "case" $ do
it "Works for a simple value based when - False" $ it "Works for a simple value based when - False" $