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

Fix tests: force HTTP/1.1 in a few places

Browse Source
This commit is contained in:
Michael Snoyman 2013-12-03 11:57:56 +02:00
parent c670c54ba4
commit f85b38e817
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-core/test/YesodCoreTest/Auth.hs
View File

@ -8,6 +8,7 @@ import Network.Wai
import qualified Data.ByteString.Char8 as S8 import qualified Data.ByteString.Char8 as S8
import qualified Data.Text as T import qualified Data.Text as T
import Data.List (isSuffixOf) import Data.List (isSuffixOf)
import qualified Network.HTTP.Types as H
data App = App data App = App
@ -51,6 +52,7 @@ test method path f = it (method ++ " " ++ path) $ do
, requestHeaders = , requestHeaders =
if not $ isSuffixOf "json" path then [] else if not $ isSuffixOf "json" path then [] else
[("Accept", S8.pack "application/json")] [("Accept", S8.pack "application/json")]
, httpVersion = H.http11
} }
f sres f sres

3
yesod-core/test/YesodCoreTest/Redirect.hs
View File

@ -45,7 +45,8 @@ specs = describe "Redirect" $ do
it "303 redirect for regular, HTTP 1.1" $ app $ do it "303 redirect for regular, HTTP 1.1" $ app $ do
res <- request defaultRequest { res <- request defaultRequest {
pathInfo = ["rregular"] pathInfo = ["rregular"],
httpVersion = H.http11
} }
assertStatus 303 res assertStatus 303 res
assertBodyContains "" res assertBodyContains "" res