@@ -1,4 +1,3 @@
1−{-# LANGUAGE CPP #-}
21{-# LANGUAGE OverloadedStrings #-}
32{-# LANGUAGE ScopedTypeVariables #-}
43
@@ -299,8 +298,6 @@ spec = do
299298 [ "Hello World\nBye"
300299 , "Hello World"
301300 ]
302−#if !WINDOWS
303−-- Too slow on Windows
304301 it "lots of chunks" $ do
305302 ifront <- I.newIORef id
306303 countVar <- newTVarIO (0 :: Int)
@@ -350,7 +347,6 @@ spec = do
350347 [ "Hello World\nBye"
351348 , "Hello World"
352349 ]
353−#endif
354350 it "timeout in request body" $ do
355351 ifront <- I.newIORef id
356352 let app req f = do
@@ -398,10 +394,6 @@ spec = do
398394 timeout 100000 (msRead ms 10) >>= (`shouldBe` Just "1122334455")
399395 msWrite ms "67890"
400396 timeout 100000 (msRead ms 10) >>= (`shouldBe` Just "6677889900")
401−
402−#if !WINDOWS
403−-- No idea why this test is so unreliable on Windows
404−-- It fails in multiple ways on CI
405397 it "only one date and server header" $ do
406398 let app _ f = f $ responseLBS status200
407399 [ ("server", "server")
@@ -435,7 +427,6 @@ spec = do
435427 check $ count >= 1
436428 bs <- safeRecv sock 4096
437429 S.takeWhile (/= 13) bs `shouldBe` "HTTP/1.1 200 OK"
438−#endif
439430
440431 it "streaming response with length" $ do
441432 let app _ f = f $ responseStream status200 [("content-length", "20")] $ \write _ -> do