diff --git a/zlib/test/Test.hs b/zlib/test/Test.hs index 0b546ac..645b960 100644 --- a/zlib/test/Test.hs +++ b/zlib/test/Test.hs @@ -289,8 +289,12 @@ test_exception = ioProperty $ do test_compress_large_chunk :: Property test_compress_large_chunk = - GZip.decompress (GZip.compress (BL.replicate len 0)) === BL.replicate len 0 + counterexample + ("Expected " ++ show len ++ " zeros but got different result, please investigate manually") + (property test) where + test = GZip.decompress (GZip.compress (BL.replicate len 0)) == BL.replicate len 0 + len = case finiteBitSize (0 :: Int) of 64 -> (1 `shiftL` 32) + 1 _ -> 0 -- ignore it diff --git a/zlib/zlib.cabal b/zlib/zlib.cabal index 5850975..8ad9bcf 100644 --- a/zlib/zlib.cabal +++ b/zlib/zlib.cabal @@ -130,3 +130,4 @@ test-suite tests tasty >= 0.8 && < 1.6, tasty-quickcheck >= 0.8 && < 1 ghc-options: -Wall + --with-rtsopts="-M1G"