@@ -14,7 +14,7 @@ import RunSpec (withApp)
1414import System.IO (hClose, hFlush)
1515import Test.Hspec
1616
17−import HTTP
17+-- import HTTP
1818import RunSpec (connectTo)
1919
2020main :: IO ()
@@ -73,6 +73,7 @@ testPartial size offset count out = it title $ withApp defaultSettings app $ \po
7373
7474spec :: Spec
7575spec = do
76+{- http-client does not support this.
7677 describe "preventing response splitting attack" $ do
7778 it "sanitizes header values" $ do
7879 let app _ respond = respond $ responseLBS status200 [("foo", "foo\r\nbar")] "Hello"
@@ -80,6 +81,7 @@ spec = do
8081 res <- sendGET $ "http://127.0.0.1:" ++ show port
8182 getHeaderValue "foo" (responseHeaders res) `shouldBe`
8283 Just "foo bar" -- HTTP inserts two spaces for \r\n.
84+-}
8385
8486 describe "sanitizeHeaderValue" $ do
8587 it "doesn't alter valid multiline header values" $ do