@@ -184,14 +184,14 @@ main = hspecX $ do
184184 handle <- connectTo "127.0.0.1" $ PortNumber $ fromIntegral port
185185 let input = concat $ replicate 2 $
186186 ["POST / HTTP/1.1\r\nTransfer-Encoding: Chunked\r\n\r\n"] ++
187− (replicate 500 "5\r\n12345\r\n") ++
187+ (replicate 50 "5\r\n12345\r\n") ++
188188 ["0\r\n"]
189189 mapM_ (\bs -> hPutStr handle bs >> hFlush handle) input
190190 hClose handle
191191 threadDelay 1000
192192 killThread tid
193193 front <- I.readIORef ifront
194− front [] @?= replicate 2 (S.concat $ replicate 500 "12345")
194+ front [] @?= replicate 2 (S.concat $ replicate 50 "12345")
195195 it "in chunks" $ do
196196 ifront <- I.newIORef id
197197 port <- getPort