No count by default (#700)

* WIP: disable counting total table size by default

* Remove commented tests since PUT is no longer supported

* Fix tests for invalid range which require count

* Do not report count in PATCH response if not asked

* Return count of deleted items only if asked

* Return count for bulk insert when requested

* Changelog entry

test/Feature/QueryLimitedSpec.hs

@@ -16,8 +16,8 @@ spec =
       get "/items"
         `shouldRespondWith` ResponseMatcher {
           matchBody    = Just [json| [{"id":1},{"id":2}] |]
-        , matchStatus  = 206
-        , matchHeaders = ["Content-Range" <:> "0-1/15"]
+        , matchStatus  = 200
+        , matchHeaders = ["Content-Range" <:> "0-1/*"]
         }
 
     it "respects additional client limiting" $ do
@@ -25,22 +25,22 @@ spec =
                    (rangeHdrs $ ByteRangeFromTo 0 0) ""
       liftIO $ do
         simpleHeaders r `shouldSatisfy`
-          matchHeader "Content-Range" "0-0/15"
-        simpleStatus r `shouldBe` partialContent206
+          matchHeader "Content-Range" "0-0/*"
+        simpleStatus r `shouldBe` ok200
 
     it "limit works on all levels" $
       get "/users?select=id,tasks{id}&order=id.asc&tasks.order=id.asc"
         `shouldRespondWith` ResponseMatcher {
           matchBody    = Just [str|[{"id":1,"tasks":[{"id":1},{"id":2}]},{"id":2,"tasks":[{"id":5},{"id":6}]}]|]
-        , matchStatus  = 206
-        , matchHeaders = ["Content-Range" <:> "0-1/3"]
+        , matchStatus  = 200
+        , matchHeaders = ["Content-Range" <:> "0-1/*"]
         }
 
     it "limit is not applied to parent embeds" $
       get "/tasks?select=id,project{id}&id=gt.5"
         `shouldRespondWith` ResponseMatcher {
           matchBody    = Just [str|[{"id":6,"project":{"id":3}},{"id":7,"project":{"id":4}}]|]
-        , matchStatus  = 206
-        , matchHeaders = ["Content-Range" <:> "0-1/3"]
+        , matchStatus  = 200
+        , matchHeaders = ["Content-Range" <:> "0-1/*"]
         }