diff --git a/yesod-test/Yesod/Test.hs b/yesod-test/Yesod/Test.hs index c51f6894..e0785cbd 100644 --- a/yesod-test/Yesod/Test.hs +++ b/yesod-test/Yesod/Test.hs @@ -577,7 +577,11 @@ request reqBuilder = do -- else makeSinglepart -- BinaryPostData _ -> makeSinglepart -- 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 cookies' = M.fromList [(Cookie.setCookieName c, c) | c <- newCookies] `M.union` cookies ST.put $ YesodExampleData app site cookies' (Just response) diff --git a/yesod-test/test/main.hs b/yesod-test/test/main.hs index 5e509c09..4ad91f77 100644 --- a/yesod-test/test/main.hs +++ b/yesod-test/test/main.hs @@ -137,7 +137,7 @@ main = hspec $ do get ("/" :: Text) statusIs 200 post ("/cookie/foo" :: Text) - statusIs 302 + statusIs 303 get ("/" :: Text) statusIs 200 printBody