@@ -28,7 +28,7 @@ import Codec.Compression.GZip (decompress)
2828
2929import Control.Monad.IO.Class (liftIO)
3030import Data.Maybe (fromMaybe)
31−import Network.HTTP.Types (parseSimpleQuery, status200)
31+import Network.HTTP.Types (status200)
3232import System.Log.FastLogger
3333
3434import qualified Data.IORef as I
@@ -39,8 +39,6 @@ spec = do
3939 mapM_ (uncurry it) casesUrlMap
4040
4141 describe "Network.Wai" $ do
42− it "parseQueryString" caseParseQueryString
43− it "parseQueryString with question mark" caseParseQueryStringQM
4442 {-
4543 , it "findBound" caseFindBound
4644 , it "sinkTillBound" caseSinkTillBound
@@ -60,36 +58,6 @@ spec = do
6058 it "accept override" caseAcceptOverride
6159 it "debug request body" caseDebugRequestBody
6260
63−caseParseQueryString :: Assertion
64−caseParseQueryString = do
65− let go l r = l @=? parseSimpleQuery r
66−
67− go [] ""
68− go [("foo", "")] "foo"
69− go [("foo", "bar")] "foo=bar"
70− go [("foo", "bar"), ("baz", "bin")] "foo=bar&baz=bin"
71− go [("%Q", "")] "%Q"
72− go [("%1Q", "")] "%1Q"
73− go [("%1", "")] "%1"
74− go [("/", "")] "%2F"
75− go [("/", "")] "%2f"
76− go [("foo bar", "")] "foo+bar"
77−
78−caseParseQueryStringQM :: Assertion
79−caseParseQueryStringQM = do
80− let go l r = l @=? parseSimpleQuery ("?" <> r)
81−
82− go [] ""
83− go [("foo", "")] "foo"
84− go [("foo", "bar")] "foo=bar"
85− go [("foo", "bar"), ("baz", "bin")] "foo=bar&baz=bin"
86− go [("%Q", "")] "%Q"
87− go [("%1Q", "")] "%1Q"
88− go [("%1", "")] "%1"
89− go [("/", "")] "%2F"
90− go [("/", "")] "%2f"
91− go [("foo bar", "")] "foo+bar"
92−
9361toRequest :: S8.ByteString -> S8.ByteString -> SRequest
9462toRequest ctype content = SRequest defaultRequest
9563 { requestHeaders = [("Content-Type", ctype)]