@@ -399,6 +399,9 @@ spec = do
399 msWrite ms "67890"
399 msWrite ms "67890"
400 timeout 100000 (msRead ms 10) >>= (`shouldBe` Just "6677889900")
400 timeout 100000 (msRead ms 10) >>= (`shouldBe` Just "6677889900")
403+-- No idea why this test is so unreliable on Windows
404+-- It fails in multiple ways on CI
402 it "only one date and server header" $ do
405 it "only one date and server header" $ do
403 let app _ f = f $ responseLBS status200
406 let app _ f = f $ responseLBS status200
404 [ ("server", "server")
407 [ ("server", "server")
@@ -411,6 +414,7 @@ spec = do
411 res <- sendGET $ "http://127.0.0.1:" ++ show port
414 res <- sendGET $ "http://127.0.0.1:" ++ show port
412 getValues hServer res `shouldBe` ["server"]
415 getValues hServer res `shouldBe` ["server"]
413 getValues hDate res `shouldBe` ["date"]
416 getValues hDate res `shouldBe` ["date"]
415 it "streaming echo #249" $ do
419 it "streaming echo #249" $ do
416 countVar <- newTVarIO (0 :: Int)
420 countVar <- newTVarIO (0 :: Int)