lzma-conduit 1.1.3 → 1.1.3.0

raw patch · 2 files changed

+4/−2 lines, 2 files

Files

• lzma-conduit.cabal +1/−1
• tests/Main.hs +3/−1

@@ -1,5 +1,5 @@ name:                lzma-conduit-version:             1.1.3+version:             1.1.3.0 synopsis:            Conduit interface for lzma/xz compression. description:   High level bindings to xz-utils.

@@ -50,7 +50,9 @@ prop_compressAndCheckLength :: Property prop_compressAndCheckLength = monadicIO . forAllM someBigString $ \ str -> do   len <- run . runResourceT $ Cl.sourceList [str] C.$$ compress Nothing C.=$= Cl.fold (\ acc el -> acc + B.length el) 0-  assert (len - 32 > B.length str `div` 2) -- random strings don't compress very well+  -- random strings don't compress very well+  assert (len > B.length str `div` 2)+  assert (len - 64 < B.length str * 2)  prop_chain :: Property prop_chain = monadicIO . forAllM someBigString $ \ str -> do