Use Content-Type text/csv for CSV responses

2015-08-15 11:57:57 -07:00
parent 9d5011e864
commit adac39bd7c
2 changed files with 10 additions and 3 deletions
@@ -126,7 +126,11 @@ spec =
    it "should respond with CSV to 'text/csv' request" $
      request methodGet "/simple_pk"
              (acceptHdrs "text/csv") ""
-        `shouldRespondWith` "k,extra\rxyyx,u\rxYYx,v"
+        `shouldRespondWith` ResponseMatcher {
+          matchBody = Just "k,extra\rxyyx,u\rxYYx,v"
+        , matchStatus = 200
+        , matchHeaders = ["Content-Type" <:> "text/csv"]
+        }

  describe "Canonical location" $ do
    it "Sets Content-Location with alphabetized params" $