test: add missing tests for max-affected preference with rpc

test/spec/Feature/Query/PreferencesSpec.hs

@@ -191,3 +191,21 @@ spec =
           ""
           { matchStatus = 204
           , matchHeaders = ["Preference-Applied" <:> "handling=lenient"]}
+
+      it "should fail with rpc when deleting rows more than prefered" $
+        request methodPost "/rpc/delete_all_items"
+          [("Prefer", "handling=strict, max-affected=10")]
+          ""
+          `shouldRespondWith`
+          [json| {"code":"PGRST124","details":"The query affects 15 rows","hint":null,"message":"Query result exceeds max-affected preference constraint"} |]
+          { matchStatus = 400 }
+
+      it "should succeed with rpc deleting rows less than prefered" $
+        request methodPost "/rpc/delete_all_items"
+          [("Prefer", "handling=strict, max-affected=20")]
+          ""
+          `shouldRespondWith`
+          [json|[{"id":1},{"id":2},{"id":3},{"id":4},{"id":5},{"id":6},{"id":7},
+                 {"id":8},{"id":9},{"id":10},{"id":11},{"id":12},{"id":13},
+                 {"id":14},{"id":15}]|]
+          { matchStatus = 200 }

test/spec/fixtures/schema.sql

@@ -3815,3 +3815,8 @@ set oid = 'test.collision_test_table'::regclass::oid
 where oid = 'test.collision_test_func'::regproc::oid;
 
 comment on function test.collision_test_func(id integer) is 'fizzbuzz';
+
+
+create or replace function test.delete_all_items() returns setof items as $$
+  delete from items where id <= 15 returning *; -- deletes 15 items, then return them
+$$ language sql;