QC-2.14.3 Double generators generates infinite number too

haskell · Jun 1, 2023 · 58766a1 · 58766a1
1 parent 15d9246
commit 58766a1
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/tests/PropUtils.hs b/tests/PropUtils.hs
@@ -51,8 +51,9 @@ import qualified Data.Aeson.Decoding as Dec
 
 encodeDouble :: Double -> Double -> Property
 encodeDouble num denom
-    | isInfinite d || isNaN d = encode d === "null"
-    | otherwise               = (read . L.unpack . encode) d === d
+    | isNaN d      = encode d === "null"
+    | isInfinite d = if d > 0 then encode d === "\"+inf\"" else encode d === "\"-inf\""
+    | otherwise    = (read . L.unpack . encode) d === d
   where d = num / denom
 
 encodeInteger :: Integer -> Property