From 62e7bc511534e8a52eaf16851f7f75f02ef94040 Mon Sep 17 00:00:00 2001
From: Felipe Lessa <felipe.lessa@gmail.com>
Date: Thu, 16 Jul 2015 19:08:16 -0300
Subject: [PATCH] Don't use (==) on Doubles (fixes #108).

---
 test/Test.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/test/Test.hs b/test/Test.hs
index 17740cb..737f65a 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -1238,7 +1238,9 @@ main = do
             let r = castNum (n ^. NumbersInt) *. n ^. NumbersDouble
             orderBy [asc 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
       it "Works for a simple value based when - False" $