@@ -299,6 +299,8 @@ spec = do
299 [ "Hello World\nBye"
299 [ "Hello World\nBye"
300 , "Hello World"
300 , "Hello World"
303+-- Too slow on Windows
302 it "lots of chunks" $ do
304 it "lots of chunks" $ do
303 ifront <- I.newIORef id
305 ifront <- I.newIORef id
304 countVar <- newTVarIO (0 :: Int)
306 countVar <- newTVarIO (0 :: Int)
@@ -322,7 +324,6 @@ spec = do
322 front [] `shouldBe` replicate 2 (S.concat $ replicate 50 "12345")
324 front [] `shouldBe` replicate 2 (S.concat $ replicate 50 "12345")
323-- For some reason, the following test on Windows causes the socket
325-- For some reason, the following test on Windows causes the socket
324-- to be killed prematurely. Worth investigating in the future if possible.
326-- to be killed prematurely. Worth investigating in the future if possible.
326 it "in chunks" $ do
327 it "in chunks" $ do
327 ifront <- I.newIORef id
328 ifront <- I.newIORef id
328 countVar <- newTVarIO (0 :: Int)
329 countVar <- newTVarIO (0 :: Int)