test: Move limited delete/update tests into separate spec file

This potentially allows to run the remaining tests in those files in
parallel mode.

References #1799

postgrest.cabal

@@ -226,6 +226,7 @@ test-suite spec
                       Feature.Query.ErrorSpec
                       Feature.Query.InsertSpec
                       Feature.Query.JsonOperatorSpec
+                      Feature.Query.LimitedMutationSpec
                       Feature.Query.MultipleSchemaSpec
                       Feature.Query.NullsStripSpec
                       Feature.Query.PgSafeUpdateSpec

test/spec/Feature/Query/DeleteSpec.hs

@@ -1,7 +1,5 @@
 module Feature.Query.DeleteSpec where
 
-import Data.Aeson.QQ
-
 import Network.Wai (Application)
 
 import Network.HTTP.Types
@@ -12,12 +10,6 @@ import Test.Hspec.Wai.JSON
 import Protolude  hiding (get)
 import SpecHelper
 
-tblDataBefore = [aesonQQ|[
-                  { "id": 1, "name": "item-1" }
-                , { "id": 2, "name": "item-2" }
-                , { "id": 3, "name": "item-3" }
-                ]|]
-
 spec :: SpecWith ((), Application)
 spec =
   describe "Deleting" $ do
@@ -152,124 +144,3 @@ spec =
             { matchStatus = 204
             , matchHeaders = [matchHeaderAbsent hContentType]
             }
-
-    context "limited delete" $ do
-      it "works with the limit and offset query params" $
-        baseTable "limited_delete_items" "id" tblDataBefore
-        `mutatesWith`
-        requestMutation methodDelete "/limited_delete_items?order=id&limit=1&offset=1" mempty mempty
-        `shouldMutateInto`
-        [json|[
-          { "id": 1, "name": "item-1" }
-        , { "id": 3, "name": "item-3" }
-        ]|]
-
-      it "works with the limit query param plus a filter" $
-        baseTable "limited_delete_items" "id" tblDataBefore
-        `mutatesWith`
-        requestMutation methodDelete "/limited_delete_items?order=id&limit=1&id=gt.1" mempty mempty
-        `shouldMutateInto`
-        [json|[
-          { "id": 1, "name": "item-1" }
-        , { "id": 3, "name": "item-3" }
-        ]|]
-
-      it "fails without an explicit order by" $
-        request methodDelete "/limited_delete_items?limit=1&offset=1"
-            [("Prefer", "tx=commit")]
-            mempty
-          `shouldRespondWith`
-            [json| {
-              "code":"PGRST109",
-              "hint": "Apply an 'order' using unique column(s)",
-              "details": null,
-              "message": "A 'limit' was applied without an explicit 'order'"
-              }|]
-            { matchStatus  = 400 }
-
-      it "fails when not ordering by a unique column" $
-        request methodDelete "/limited_delete_items_wnonuniq_view?order=static&limit=1"
-            [("Prefer", "tx=commit")]
-            mempty
-          `shouldRespondWith`
-            [json| {
-              "code":"PGRST110",
-              "hint": null,
-              "details":"Results contain 3 rows changed but the maximum number allowed is 1",
-              "message":"The maximum number of rows allowed to change was surpassed"
-              }|]
-            { matchStatus  = 400 }
-
-      it "works with views with an explicit order by unique col" $
-        baseTable "limited_delete_items_view" "id" tblDataBefore
-        `mutatesWith`
-        requestMutation methodDelete "/limited_delete_items_view?order=id&limit=1&offset=1" mempty mempty
-        `shouldMutateInto`
-        [json|[
-          { "id": 1, "name": "item-1" }
-        , { "id": 3, "name": "item-3" }
-        ]|]
-
-      it "works with views with an explicit order by composite pk" $
-        baseTable "limited_delete_items_cpk_view" "id" tblDataBefore
-        `mutatesWith`
-        requestMutation methodDelete "/limited_delete_items_cpk_view?order=id,name&limit=1&offset=1" mempty mempty
-        `shouldMutateInto`
-        [json|[
-          { "id": 1, "name": "item-1" }
-        , { "id": 3, "name": "item-3" }
-        ]|]
-
-      it "works on a table without a pk by ordering by 'ctid'" $
-        baseTable "limited_delete_items_no_pk" "id" tblDataBefore
-        `mutatesWith`
-        requestMutation methodDelete "/limited_delete_items_no_pk?order=ctid&limit=1&offset=1" mempty mempty
-        `shouldMutateInto`
-        [json|[
-          { "id": 1, "name": "item-1" }
-        , { "id": 3, "name": "item-3" }
-        ]|]
-
-      it "ignores the Range header" $ do
-        baseTable "limited_delete_items" "id" tblDataBefore
-         `mutatesWith`
-         requestMutation methodDelete "/limited_delete_items"
-          (rangeHdrs (ByteRangeFromTo 0 0)) mempty
-         `shouldMutateInto`
-         [json|[]|]
-
-        baseTable "limited_delete_items" "id" tblDataBefore
-         `mutatesWith`
-         requestMutation methodDelete "/limited_delete_items?id=gte.2"
-          (rangeHdrs (ByteRangeFromTo 0 0)) mempty
-         `shouldMutateInto`
-         [json|[ { "id": 1, "name": "item-1" } ]|]
-
-      it "ignores the Range header and does not do a limited delete" $
-        baseTable "limited_delete_items" "id" tblDataBefore
-         `mutatesWith`
-         requestMutation methodDelete "/limited_delete_items?order=id"
-          (rangeHdrs (ByteRangeFromTo 0 0)) mempty
-         `shouldMutateInto`
-         [json|[]|]
-
-      it "ignores the Range header and does not throw an invalid range error" $
-        baseTable "limited_delete_items" "id" tblDataBefore
-         `mutatesWith`
-         requestMutation methodDelete "/limited_delete_items?order=id&limit=1&offset=1"
-          (rangeHdrs (ByteRangeFromTo 0 0)) mempty
-         `shouldMutateInto`
-         [json|[
-           { "id": 1, "name": "item-1" }
-         , { "id": 3, "name": "item-3" }
-         ]|]
-
-      it "ignores the Range header but not the limit and offset params" $
-        baseTable "limited_delete_items" "id" tblDataBefore
-         `mutatesWith`
-         requestMutation methodDelete "/limited_delete_items?order=id&limit=2&offset=1"
-          (rangeHdrs (ByteRangeFromTo 1 1)) mempty
-         `shouldMutateInto`
-         [json|[
-           { "id": 1, "name": "item-1" }
-         ]|]

test/spec/Feature/Query/LimitedMutationSpec.hs

@@ -0,0 +1,305 @@
+module Feature.Query.LimitedMutationSpec where
+
+import Data.Aeson.QQ
+
+import Network.Wai (Application)
+
+import Network.HTTP.Types
+import Test.Hspec          hiding (pendingWith)
+import Test.Hspec.Wai
+import Test.Hspec.Wai.JSON
+
+import Protolude  hiding (get)
+import SpecHelper
+
+tblDataBefore = [aesonQQ|[
+                  { "id": 1, "name": "item-1" }
+                , { "id": 2, "name": "item-2" }
+                , { "id": 3, "name": "item-3" }
+                ]|]
+
+spec :: SpecWith ((), Application)
+spec = do
+  describe "limited delete" $ do
+    it "works with the limit and offset query params" $
+      baseTable "limited_delete_items" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodDelete "/limited_delete_items?order=id&limit=1&offset=1" mempty mempty
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "item-1" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "works with the limit query param plus a filter" $
+      baseTable "limited_delete_items" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodDelete "/limited_delete_items?order=id&limit=1&id=gt.1" mempty mempty
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "item-1" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "fails without an explicit order by" $
+      request methodDelete "/limited_delete_items?limit=1&offset=1"
+          mempty
+          mempty
+        `shouldRespondWith`
+          [json| {
+            "code":"PGRST109",
+            "hint": "Apply an 'order' using unique column(s)",
+            "details": null,
+            "message": "A 'limit' was applied without an explicit 'order'"
+            }|]
+          { matchStatus  = 400 }
+
+    it "fails when not ordering by a unique column" $
+      request methodDelete "/limited_delete_items_wnonuniq_view?order=static&limit=1"
+          mempty
+          mempty
+        `shouldRespondWith`
+          [json| {
+            "code":"PGRST110",
+            "hint": null,
+            "details":"Results contain 3 rows changed but the maximum number allowed is 1",
+            "message":"The maximum number of rows allowed to change was surpassed"
+            }|]
+          { matchStatus  = 400 }
+
+    it "works with views with an explicit order by unique col" $
+      baseTable "limited_delete_items_view" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodDelete "/limited_delete_items_view?order=id&limit=1&offset=1" mempty mempty
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "item-1" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "works with views with an explicit order by composite pk" $
+      baseTable "limited_delete_items_cpk_view" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodDelete "/limited_delete_items_cpk_view?order=id,name&limit=1&offset=1" mempty mempty
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "item-1" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "works on a table without a pk by ordering by 'ctid'" $
+      baseTable "limited_delete_items_no_pk" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodDelete "/limited_delete_items_no_pk?order=ctid&limit=1&offset=1" mempty mempty
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "item-1" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "ignores the Range header" $ do
+      baseTable "limited_delete_items" "id" tblDataBefore
+       `mutatesWith`
+       requestMutation methodDelete "/limited_delete_items"
+        (rangeHdrs (ByteRangeFromTo 0 0)) mempty
+       `shouldMutateInto`
+       [json|[]|]
+
+      baseTable "limited_delete_items" "id" tblDataBefore
+       `mutatesWith`
+       requestMutation methodDelete "/limited_delete_items?id=gte.2"
+        (rangeHdrs (ByteRangeFromTo 0 0)) mempty
+       `shouldMutateInto`
+       [json|[ { "id": 1, "name": "item-1" } ]|]
+
+    it "ignores the Range header and does not do a limited delete" $
+      baseTable "limited_delete_items" "id" tblDataBefore
+       `mutatesWith`
+       requestMutation methodDelete "/limited_delete_items?order=id"
+        (rangeHdrs (ByteRangeFromTo 0 0)) mempty
+       `shouldMutateInto`
+       [json|[]|]
+
+    it "ignores the Range header and does not throw an invalid range error" $
+      baseTable "limited_delete_items" "id" tblDataBefore
+       `mutatesWith`
+       requestMutation methodDelete "/limited_delete_items?order=id&limit=1&offset=1"
+        (rangeHdrs (ByteRangeFromTo 0 0)) mempty
+       `shouldMutateInto`
+       [json|[
+         { "id": 1, "name": "item-1" }
+       , { "id": 3, "name": "item-3" }
+       ]|]
+
+    it "ignores the Range header but not the limit and offset params" $
+      baseTable "limited_delete_items" "id" tblDataBefore
+       `mutatesWith`
+       requestMutation methodDelete "/limited_delete_items?order=id&limit=2&offset=1"
+        (rangeHdrs (ByteRangeFromTo 1 1)) mempty
+       `shouldMutateInto`
+       [json|[
+         { "id": 1, "name": "item-1" }
+       ]|]
+
+  describe "limited update" $ do
+    it "works with the limit query param" $
+      baseTable "limited_update_items" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodPatch "/limited_update_items?order=id&limit=2" mempty
+        [json| {"name": "updated-item"} |]
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "updated-item" }
+      , { "id": 2, "name": "updated-item" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "works with the limit query param plus a filter" $
+      baseTable "limited_update_items" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodPatch "/limited_update_items?order=id&limit=1&id=gt.2" mempty
+        [json| {"name": "updated-item"} |]
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "item-1" }
+      , { "id": 2, "name": "item-2" }
+      , { "id": 3, "name": "updated-item" }
+      ]|]
+
+    it "works with the limit and offset query params" $
+      baseTable "limited_update_items" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodPatch "/limited_update_items?order=id&limit=1&offset=1" mempty
+        [json| {"name": "updated-item"} |]
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "item-1" }
+      , { "id": 2, "name": "updated-item" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "fails without an explicit order by" $
+      request methodPatch "/limited_update_items?limit=1&offset=1"
+          mempty
+          [json| {"name": "updated-item"} |]
+        `shouldRespondWith`
+          [json| {
+            "code":"PGRST109",
+            "hint": "Apply an 'order' using unique column(s)",
+            "details": null,
+            "message": "A 'limit' was applied without an explicit 'order'"
+            }|]
+          { matchStatus  = 400 }
+
+    it "fails when not ordering by a unique column" $
+      request methodPatch "/limited_update_items_wnonuniq_view?order=static&limit=1"
+          mempty
+          [json| {"name": "updated-item"} |]
+        `shouldRespondWith`
+          [json| {
+            "code":"PGRST110",
+            "hint": null,
+            "details":"Results contain 3 rows changed but the maximum number allowed is 1",
+            "message":"The maximum number of rows allowed to change was surpassed"
+            }|]
+          { matchStatus  = 400 }
+
+    it "works with views with an explicit order by unique col" $
+      baseTable "limited_update_items_view" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodPatch "/limited_update_items_view?order=id&limit=1&offset=1" mempty
+        [json| {"name": "updated-item"} |]
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "item-1" }
+      , { "id": 2, "name": "updated-item" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "works with views with an explicit order by composite pk" $
+      baseTable "limited_update_items_cpk_view" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodPatch "/limited_update_items_cpk_view?order=id,name&limit=1&offset=1" mempty
+        [json| {"name": "updated-item"} |]
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "item-1" }
+      , { "id": 2, "name": "updated-item" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "works on a table without a pk by ordering by 'ctid'" $
+      baseTable "limited_update_items_no_pk" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodPatch "/limited_update_items_no_pk?order=ctid&limit=1" mempty
+        [json| {"name": "updated-item"} |]
+      `shouldMutateInto`
+      [json|[
+        { "id": 1, "name": "updated-item" }
+      , { "id": 2, "name": "item-2" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "ignores the Range header" $ do
+      baseTable "limited_update_items" "id" tblDataBefore
+       `mutatesWith`
+       requestMutation methodPatch "/limited_update_items"
+        (rangeHdrs (ByteRangeFromTo 0 0))
+        [json| {"name": "updated-item"} |]
+       `shouldMutateInto`
+       [json|[
+         { "id": 1, "name": "updated-item" }
+       , { "id": 2, "name": "updated-item" }
+       , { "id": 3, "name": "updated-item" }
+       ]|]
+
+      baseTable "limited_update_items" "id" tblDataBefore
+       `mutatesWith`
+       requestMutation methodPatch "/limited_update_items?id=gte.2"
+        (rangeHdrs (ByteRangeFromTo 0 0))
+        [json| {"name": "updated-item"} |]
+       `shouldMutateInto`
+       [json|[
+         { "id": 1, "name": "item-1" }
+       , { "id": 2, "name": "updated-item" }
+       , { "id": 3, "name": "updated-item" }
+       ]|]
+
+    it "ignores the Range header and does not do a limited update" $
+      baseTable "limited_update_items" "id" tblDataBefore
+       `mutatesWith`
+       requestMutation methodPatch "/limited_update_items?order=id"
+        (rangeHdrs (ByteRangeFromTo 0 0))
+        [json| {"name": "updated-item"} |]
+       `shouldMutateInto`
+       [json|[
+         { "id": 1, "name": "updated-item" }
+       , { "id": 2, "name": "updated-item" }
+       , { "id": 3, "name": "updated-item" }
+       ]|]
+
+    it "ignores the Range header and does not throw an invalid range error" $
+      baseTable "limited_update_items" "id" tblDataBefore
+      `mutatesWith`
+      requestMutation methodPatch "/limited_update_items?order=id&limit=1&offset=1"
+        (rangeHdrs (ByteRangeFromTo 0 0))
+        [json| {"name": "updated-item"} |]
+      `shouldMutateInto`
+      [json|[
+       { "id": 1, "name": "item-1" }
+      , { "id": 2, "name": "updated-item" }
+      , { "id": 3, "name": "item-3" }
+      ]|]
+
+    it "ignores the Range header but not the limit and offset params" $
+      baseTable "limited_update_items" "id" tblDataBefore
+       `mutatesWith`
+       requestMutation methodPatch "/limited_update_items?order=id&limit=2&offset=1"
+         (rangeHdrs (ByteRangeFromTo 1 1))
+         [json| {"name": "updated-item"} |]
+       `shouldMutateInto`
+       [json|[
+         { "id": 1, "name": "item-1" }
+       , { "id": 2, "name": "updated-item" }
+       , { "id": 3, "name": "updated-item" }
+       ]|]

test/spec/Feature/Query/UpdateSpec.hs

@@ -1,7 +1,5 @@
 module Feature.Query.UpdateSpec where
 
-import Data.Aeson.QQ
-
 import Network.Wai (Application)
 import Test.Hspec  hiding (pendingWith)
 
@@ -15,12 +13,6 @@ import PostgREST.Config.PgVersion (PgVersion, pgVersion100)
 import Protolude  hiding (get)
 import SpecHelper
 
-tblDataBefore = [aesonQQ|[
-                  { "id": 1, "name": "item-1" }
-                , { "id": 2, "name": "item-2" }
-                , { "id": 3, "name": "item-3" }
-                ]|]
-
 spec :: PgVersion -> SpecWith ((), Application)
 spec actualPgVersion = do
   describe "Patching record" $ do
@@ -630,169 +622,6 @@ spec actualPgVersion = do
           , matchHeaders = [matchHeaderAbsent hContentType]
           }
 
-  context "limited update" $ do
-    it "works with the limit query param" $
-      baseTable "limited_update_items" "id" tblDataBefore
-      `mutatesWith`
-      requestMutation methodPatch "/limited_update_items?order=id&limit=2" mempty
-        [json| {"name": "updated-item"} |]
-      `shouldMutateInto`
-      [json|[
-        { "id": 1, "name": "updated-item" }
-      , { "id": 2, "name": "updated-item" }
-      , { "id": 3, "name": "item-3" }
-      ]|]
-
-    it "works with the limit query param plus a filter" $
-      baseTable "limited_update_items" "id" tblDataBefore
-      `mutatesWith`
-      requestMutation methodPatch "/limited_update_items?order=id&limit=1&id=gt.2" mempty
-        [json| {"name": "updated-item"} |]
-      `shouldMutateInto`
-      [json|[
-        { "id": 1, "name": "item-1" }
-      , { "id": 2, "name": "item-2" }
-      , { "id": 3, "name": "updated-item" }
-      ]|]
-
-    it "works with the limit and offset query params" $
-      baseTable "limited_update_items" "id" tblDataBefore
-      `mutatesWith`
-      requestMutation methodPatch "/limited_update_items?order=id&limit=1&offset=1" mempty
-        [json| {"name": "updated-item"} |]
-      `shouldMutateInto`
-      [json|[
-        { "id": 1, "name": "item-1" }
-      , { "id": 2, "name": "updated-item" }
-      , { "id": 3, "name": "item-3" }
-      ]|]
-
-    it "fails without an explicit order by" $
-      request methodPatch "/limited_update_items?limit=1&offset=1"
-          [("Prefer", "tx=commit")]
-          [json| {"name": "updated-item"} |]
-        `shouldRespondWith`
-          [json| {
-            "code":"PGRST109",
-            "hint": "Apply an 'order' using unique column(s)",
-            "details": null,
-            "message": "A 'limit' was applied without an explicit 'order'"
-            }|]
-          { matchStatus  = 400 }
-
-    it "fails when not ordering by a unique column" $
-      request methodPatch "/limited_update_items_wnonuniq_view?order=static&limit=1"
-          [("Prefer", "tx=commit")]
-          [json| {"name": "updated-item"} |]
-        `shouldRespondWith`
-          [json| {
-            "code":"PGRST110",
-            "hint": null,
-            "details":"Results contain 3 rows changed but the maximum number allowed is 1",
-            "message":"The maximum number of rows allowed to change was surpassed"
-            }|]
-          { matchStatus  = 400 }
-
-    it "works with views with an explicit order by unique col" $
-      baseTable "limited_update_items_view" "id" tblDataBefore
-      `mutatesWith`
-      requestMutation methodPatch "/limited_update_items_view?order=id&limit=1&offset=1" mempty
-        [json| {"name": "updated-item"} |]
-      `shouldMutateInto`
-      [json|[
-        { "id": 1, "name": "item-1" }
-      , { "id": 2, "name": "updated-item" }
-      , { "id": 3, "name": "item-3" }
-      ]|]
-
-    it "works with views with an explicit order by composite pk" $
-      baseTable "limited_update_items_cpk_view" "id" tblDataBefore
-      `mutatesWith`
-      requestMutation methodPatch "/limited_update_items_cpk_view?order=id,name&limit=1&offset=1" mempty
-        [json| {"name": "updated-item"} |]
-      `shouldMutateInto`
-      [json|[
-        { "id": 1, "name": "item-1" }
-      , { "id": 2, "name": "updated-item" }
-      , { "id": 3, "name": "item-3" }
-      ]|]
-
-    it "works on a table without a pk by ordering by 'ctid'" $
-      baseTable "limited_update_items_no_pk" "id" tblDataBefore
-      `mutatesWith`
-      requestMutation methodPatch "/limited_update_items_no_pk?order=ctid&limit=1" mempty
-        [json| {"name": "updated-item"} |]
-      `shouldMutateInto`
-      [json|[
-        { "id": 1, "name": "updated-item" }
-      , { "id": 2, "name": "item-2" }
-      , { "id": 3, "name": "item-3" }
-      ]|]
-
-    it "ignores the Range header" $ do
-      baseTable "limited_update_items" "id" tblDataBefore
-       `mutatesWith`
-       requestMutation methodPatch "/limited_update_items"
-        (rangeHdrs (ByteRangeFromTo 0 0))
-        [json| {"name": "updated-item"} |]
-       `shouldMutateInto`
-       [json|[
-         { "id": 1, "name": "updated-item" }
-       , { "id": 2, "name": "updated-item" }
-       , { "id": 3, "name": "updated-item" }
-       ]|]
-
-      baseTable "limited_update_items" "id" tblDataBefore
-       `mutatesWith`
-       requestMutation methodPatch "/limited_update_items?id=gte.2"
-        (rangeHdrs (ByteRangeFromTo 0 0))
-        [json| {"name": "updated-item"} |]
-       `shouldMutateInto`
-       [json|[
-         { "id": 1, "name": "item-1" }
-       , { "id": 2, "name": "updated-item" }
-       , { "id": 3, "name": "updated-item" }
-       ]|]
-
-    it "ignores the Range header and does not do a limited update" $
-      baseTable "limited_update_items" "id" tblDataBefore
-       `mutatesWith`
-       requestMutation methodPatch "/limited_update_items?order=id"
-        (rangeHdrs (ByteRangeFromTo 0 0))
-        [json| {"name": "updated-item"} |]
-       `shouldMutateInto`
-       [json|[
-         { "id": 1, "name": "updated-item" }
-       , { "id": 2, "name": "updated-item" }
-       , { "id": 3, "name": "updated-item" }
-       ]|]
-
-    it "ignores the Range header and does not throw an invalid range error" $
-      baseTable "limited_update_items" "id" tblDataBefore
-      `mutatesWith`
-      requestMutation methodPatch "/limited_update_items?order=id&limit=1&offset=1"
-        (rangeHdrs (ByteRangeFromTo 0 0))
-        [json| {"name": "updated-item"} |]
-      `shouldMutateInto`
-      [json|[
-       { "id": 1, "name": "item-1" }
-      , { "id": 2, "name": "updated-item" }
-      , { "id": 3, "name": "item-3" }
-      ]|]
-
-    it "ignores the Range header but not the limit and offset params" $
-      baseTable "limited_update_items" "id" tblDataBefore
-       `mutatesWith`
-       requestMutation methodPatch "/limited_update_items?order=id&limit=2&offset=1"
-         (rangeHdrs (ByteRangeFromTo 1 1))
-         [json| {"name": "updated-item"} |]
-       `shouldMutateInto`
-       [json|[
-         { "id": 1, "name": "item-1" }
-       , { "id": 2, "name": "updated-item" }
-       , { "id": 3, "name": "updated-item" }
-       ]|]
-
   -- Data representations for payload parsing requires Postgres 10 or above.
   when (actualPgVersion >= pgVersion100) $ do
     describe "Data representations" $ do

test/spec/Main.hs

@@ -47,6 +47,7 @@ import qualified Feature.Query.EmbedInnerJoinSpec
 import qualified Feature.Query.ErrorSpec
 import qualified Feature.Query.InsertSpec
 import qualified Feature.Query.JsonOperatorSpec
+import qualified Feature.Query.LimitedMutationSpec
 import qualified Feature.Query.MultipleSchemaSpec
 import qualified Feature.Query.NullsStripSpec
 import qualified Feature.Query.PgSafeUpdateSpec
@@ -273,6 +274,9 @@ main = do
     before forceRollbackApp $
       describe "Feature.RollbackForcedSpec" Feature.RollbackSpec.forced
 
+    before withApp $
+      describe "Feature.Query.LimitedMutationSpec" Feature.Query.LimitedMutationSpec.spec
+
     -- This test runs with a pre request to enable the pg-safeupdate library per-session.
     -- This needs to run last, because once pg safe update is loaded, it can't be unloaded again.
     before pgSafeUpdateApp $