X-Git-Url: https://git.immae.eu/?a=blobdiff_plain;f=test%2FTest.hs;h=f2bf17b43c09a8651bbbfd91b3ee910845ec7c37;hb=cd4fd5dd5405ad8e324f43ee2bc81822bdece16c;hp=53dca6a098fdddd850098bc96c4523c7e0dd7d0d;hpb=1b4f53266cadfbd54f8198908424b4890fb1755f;p=github%2Ffretlink%2Ftext-pipes.git

diff --git a/test/Test.hs b/test/Test.hs
index 53dca6a..f2bf17b 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -23,7 +23,6 @@ import qualified Pipes.Text.Internal as PE
 import qualified Pipes.Text as TP
 import qualified Pipes.ByteString as BP 
 import qualified Pipes as P 
-import Debug.Trace
 
 main :: IO ()
 main = defaultMain [tests]
@@ -31,7 +30,7 @@ main = defaultMain [tests]
 
 tests = testGroup "stream_decode" [
   -- testProperty "t_utf8_incr_valid" t_utf8_incr_valid,
---  testProperty "t_utf8_incr_mixed" t_utf8_incr_mixed ] -- ,
+  testProperty "t_utf8_incr_mixed" t_utf8_incr_mixed ,
   testProperty "t_utf8_incr_pipe" t_utf8_incr_pipe]
 
 t_utf8_incr_valid  = do
@@ -72,7 +71,7 @@ t_utf8_incr_pipe  = do
        Positive n  <- arbitrary  
        txt         <- genUnicode
        let chunkSize = mod n 7 + 1
-           bytesLength = mod 3 m
+           bytesLength = mod 10 m
        forAll (vector bytesLength) $ 
               (BL.toStrict . BP.toLazy . roundtrip . P.each . chunk chunkSize . appendBytes txt) 
               `eq`