Merge remote-tracking branch 'begriffs/master'

2015-10-01 22:22:14 +03:00
parent e6baafdb8f 7d8523a786
commit 7754f96af8
1 changed files with 9 additions and 0 deletions
@@ -37,6 +37,15 @@ spec = beforeAll (clearTable "items" >> createItems 15) . afterAll_ (clearTable
            , matchHeaders = ["Content-Range" <:> "0-14/*"]
            }

+        it "returns range Content-Range with range/* even using other filters" $
+          request methodGet "/items?id=eq.1&order=id"
+                  [("Prefer", "count=none")] ""
+            `shouldRespondWith` ResponseMatcher {
+              matchBody    = Just [json| [{"id":1}] |]
+            , matchStatus  = 200
+            , matchHeaders = ["Content-Range" <:> "0-0/*"]
+            }
+
    context "with range headers" $ do

      context "of acceptable range" $ do