@@ -1,4 +1,3 @@
1−{-# LANGUAGE CPP #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43
@@ -300,8 +299,6 @@ spec = do
300299 [ "Hello World\nBye"
301300 , "Hello World"
302301 ]
303−#if !WINDOWS
304−-- Too slow on Windows
305302 it "lots of chunks" $ do
306303 ifront <- I.newIORef id
307304 countVar <- newTVarIO (0 :: Int)
@@ -351,7 +348,6 @@ spec = do
351348 [ "Hello World\nBye"
352349 , "Hello World"
353350 ]
354−#endif
355351 it "timeout in request body" $ do
356352 ifront <- I.newIORef id
357353 let app req f = do
@@ -399,10 +395,6 @@ spec = do
399395 timeout 100000 (msRead ms 10) >>= (`shouldBe` Just "1122334455")
400396 msWrite ms "67890"
401397 timeout 100000 (msRead ms 10) >>= (`shouldBe` Just "6677889900")
402−
403−#if !WINDOWS
404−-- No idea why this test is so unreliable on Windows
405−-- It fails in multiple ways on CI
406398 it "only one date and server header" $ do
407399 let app _ f = f $ responseLBS status200
408400 [ ("server", "server")
@@ -436,7 +428,6 @@ spec = do
436428 check $ count >= 1
437429 bs <- safeRecv sock 4096
438430 S.takeWhile (/= 13) bs `shouldBe` "HTTP/1.1 200 OK"
439−#endif
440431
441432 it "streaming response with length" $ do
442433 let app _ f = f $ responseStream status200 [("content-length", "20")] $ \write _ -> do