haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

yesod-test: use HTTP/1.1

Browse Source
This commit is contained in:
Michael Snoyman 2014-06-08 08:14:12 +03:00
parent 4158353070
commit 33c384bb4e
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod-test/Yesod/Test.hs
View File

@ -577,7 +577,11 @@ request reqBuilder = do
-- else makeSinglepart -- else makeSinglepart
-- BinaryPostData _ -> makeSinglepart -- BinaryPostData _ -> makeSinglepart
-- let req = maker cookiesForPath rbdPostData rbdMethod rbdHeaders path rbdGets -- let req = maker cookiesForPath rbdPostData rbdMethod rbdHeaders path rbdGets
response <- liftIO $ runSession (srequest req) app response <- liftIO $ runSession (srequest req
{ simpleRequest = (simpleRequest req)
{ httpVersion = H.http11
}
}) app
let newCookies = map (Cookie.parseSetCookie . snd) $ DL.filter (("Set-Cookie"==) . fst) $ simpleHeaders response let newCookies = map (Cookie.parseSetCookie . snd) $ DL.filter (("Set-Cookie"==) . fst) $ simpleHeaders response
cookies' = M.fromList [(Cookie.setCookieName c, c) | c <- newCookies] `M.union` cookies cookies' = M.fromList [(Cookie.setCookieName c, c) | c <- newCookies] `M.union` cookies
ST.put $ YesodExampleData app site cookies' (Just response) ST.put $ YesodExampleData app site cookies' (Just response)

2
yesod-test/test/main.hs
View File

@ -137,7 +137,7 @@ main = hspec $ do
get ("/" :: Text) get ("/" :: Text)
statusIs 200 statusIs 200
post ("/cookie/foo" :: Text) post ("/cookie/foo" :: Text)
statusIs 302 statusIs 303
get ("/" :: Text) get ("/" :: Text)
statusIs 200 statusIs 200
printBody printBody