Add support for HEAD request

2019-09-03 13:38:53 -05:00
parent 68cbe34c11
commit 620721dea7
7 changed files with 90 additions and 38 deletions
@@ -155,12 +155,17 @@ spec = do
          , matchHeaders = ["Content-Range" <:> "0-0/*"]
          }

-      it "limit and offset works on first level" $
+      it "limit and offset works on first level" $ do
        get "/items?select=id&order=id.asc&limit=3&offset=2"
          `shouldRespondWith` [json|[{"id":3},{"id":4},{"id":5}]|]
          { matchStatus  = 200
          , matchHeaders = ["Content-Range" <:> "2-4/*"]
          }
+        request methodHead "/items?select=id&order=id.asc&limit=3&offset=2" [] mempty
+          `shouldRespondWith` ""
+          { matchStatus  = 200
+          , matchHeaders = ["Content-Range" <:> "2-4/*"]
+          }

      it "succeeds if offset equals 0 as a no-op" $
        get "/items?select=id&offset=0"