Parse query string parameters from URLs

yesod-test/Yesod/Test.hs

@@ -437,9 +437,13 @@ doRequestHeaders method url extrahead paramsBuild = do
     { requestMethod = method
     , remoteHost = Sock.SockAddrInet 1 2
     , requestHeaders = headers
-    , rawPathInfo = url
-    , pathInfo = DL.filter (/="") $ T.split (== '/') $ TE.decodeUtf8 url
+    , rawPathInfo = urlPath
+    , pathInfo = DL.filter (/="") $ T.split (== '/') $ TE.decodeUtf8 urlPath
+    , rawQueryString = urlQuery
+    , queryString = H.parseQuery urlQuery
     }
+
+  (urlPath, urlQuery) = BS8.break (== '?') url
   
 -- | Run a persistent db query. For asserting on the results of performed actions
 -- or setting up pre-conditions. At the moment this part is still very raw.

yesod-test/yesod-test.cabal

@@ -1,5 +1,5 @@
 name:               yesod-test
-version:            0.3.3.2
+version:            0.3.4
 license:            MIT
 license-file:       LICENSE
 author:             Nubis <nubis@woobiz.com.ar>