From f85b38e817cd6a9e702937f8dfdb5996b7d70b8c Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 3 Dec 2013 11:57:56 +0200
Subject: [PATCH] Fix tests: force HTTP/1.1 in a few places

---
 yesod-core/test/YesodCoreTest/Auth.hs     | 2 ++
 yesod-core/test/YesodCoreTest/Redirect.hs | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/yesod-core/test/YesodCoreTest/Auth.hs b/yesod-core/test/YesodCoreTest/Auth.hs
index 7daf209d..393737b9 100644
--- a/yesod-core/test/YesodCoreTest/Auth.hs
+++ b/yesod-core/test/YesodCoreTest/Auth.hs
@@ -8,6 +8,7 @@ import Network.Wai
 import qualified Data.ByteString.Char8 as S8
 import qualified Data.Text as T
 import Data.List (isSuffixOf)
+import qualified Network.HTTP.Types as H
 
 data App = App
 
@@ -51,6 +52,7 @@ test method path f = it (method ++ " " ++ path) $ do
             , requestHeaders =
                 if not $ isSuffixOf "json" path then [] else
                   [("Accept", S8.pack "application/json")]
+            , httpVersion = H.http11
             }
         f sres
 
diff --git a/yesod-core/test/YesodCoreTest/Redirect.hs b/yesod-core/test/YesodCoreTest/Redirect.hs
index da6f9725..3980cbc8 100644
--- a/yesod-core/test/YesodCoreTest/Redirect.hs
+++ b/yesod-core/test/YesodCoreTest/Redirect.hs
@@ -45,7 +45,8 @@ specs = describe "Redirect" $ do
 
     it "303 redirect for regular, HTTP 1.1" $ app $ do
       res <- request defaultRequest {
-        pathInfo = ["rregular"]
+        pathInfo = ["rregular"],
+        httpVersion = H.http11
       }
       assertStatus 303 res
       assertBodyContains "" res