upgrade hspec-wai, get tests passing.

2014-09-24 19:08:05 -07:00
parent 7f9e97b16d
commit cf5510c425
5 changed files with 7 additions and 9 deletions
@@ -39,7 +39,7 @@ spec = around appWithFixture $
            `shouldRespondWith` ResponseMatcher {
              matchBody    = Nothing
            , matchStatus  = 204
-            , matchHeaders = [("Content-Range", "*/0")]
+            , matchHeaders = ["Content-Range" <:> "*/0"]
            }

        it "allows one-item requests" $ do
@@ -70,7 +70,7 @@ spec = around appWithFixture $
            `shouldRespondWith` ResponseMatcher {
              matchBody    = Nothing
            , matchStatus  = 416
-            , matchHeaders = [("Content-Range", "*/0")]
+            , matchHeaders = ["Content-Range" <:> "*/0"]
            }

        it "refuses a range requesting start past last item" $
@@ -79,5 +79,5 @@ spec = around appWithFixture $
            `shouldRespondWith` ResponseMatcher {
              matchBody    = Nothing
            , matchStatus  = 416
-            , matchHeaders = [("Content-Range", "*/15")]
+            , matchHeaders = ["Content-Range" <:> "*/15"]
            }