streaming-commons 0.1.2.1 → 0.1.2.2

raw patch · 2 files changed

+3/−3 lines, 2 files

Files

• streaming-commons.cabal +1/−1
• test/Data/Streaming/TextSpec.hs +2/−2

@@ -1,5 +1,5 @@ name:                streaming-commons-version:             0.1.2.1+version:             0.1.2.2 synopsis:            Common lower-level functions needed by various streaming data libraries description:         Provides low-dependency functionality commonly needed by various streaming data libraries, such as conduit and pipes. homepage:            https://github.com/fpco/streaming-commons

@@ -19,7 +19,7 @@ try' a = try $ evaluate (a `deepseq` a)  spec :: Spec-spec = describe "Data.Streaming.TextSpec" $ modifyMaxSuccess (const 10000) $ do+spec = describe "Data.Streaming.TextSpec" $ {-modifyMaxSuccess (const 10000) $ -}do     let test name lazy stream encodeLazy encodeStrict = describe name $ do             prop "bytes" $ check lazy stream             prop "chars" $ \css -> do@@ -29,7 +29,7 @@                     bss = L.toChunks lbs                     wss = map S.unpack bss                  in check lazy stream wss-            it "high code points" $ forM_ [10, 20..50000] $ \cnt -> do+            it "high code points" $ forM_ [100, 200..50000] $ \cnt -> do                 let t = T.replicate cnt "\x10000"                     bs = encodeStrict t                 case stream bs of