fix: paramaters of type character and bit not ignoring length

- Fixes the error "value too long for type character(1)" when the char length of the parameter was bigger than one.

test/spec/Feature/Query/RpcSpec.hs

@@ -1447,3 +1447,25 @@ spec actualPgVersion =
               { matchStatus  = 400
               , matchHeaders = [matchContentTypeJson]
               }
+
+    -- https://github.com/PostgREST/postgrest/issues/1586#issuecomment-696345442
+    context "a proc with bit and char parameters" $ do
+      it "modifies the param type from character to character varying" $ do
+        get "/rpc/char_param_select?char_=abcdefg&char_arr={abc,abcdefg}" `shouldRespondWith`
+          [json| [{ "char_": "abcdefg", "char_arr": [ "abc", "abcdefg" ] }] |]
+          { matchHeaders = [matchContentTypeJson] }
+
+        post "/rpc/char_param_insert" [json| { "char_": "abcdefg", "char_arr": "{abc,abcdefg}" } |]
+           `shouldRespondWith`
+             [json| {"code":"22001","details":null,"hint":null,"message":"value too long for type character(5)"} |]
+           { matchStatus = 400 }
+
+      it "modifies the param type from bit to bit varying" $ do
+        get "/rpc/bit_param_select?bit_=101010&bit_arr={101,101010}" `shouldRespondWith`
+          [json| [{ "bit_": "101010", "bit_arr": [ "101", "101010" ] }] |]
+          { matchHeaders = [matchContentTypeJson] }
+
+        post "/rpc/bit_param_insert" [json| { "bit_": "101010", "bit_arr": "{101,101010}" } |]
+           `shouldRespondWith`
+             [json| {"code":"22026","details":null,"hint":null,"message":"bit string length 6 does not match type bit(5)"} |]
+           { matchStatus = 400 }

test/spec/Feature/Query/UpdateSpec.hs

@@ -387,14 +387,14 @@ spec actualPgVersion = do
     -- https://github.com/PostgREST/postgrest/issues/2861
     context "bit and char columns with length" $ do
       it "should update a bit column with length" $
-        request methodPatch "/bitchar_with_length?char=eq.aaaaa"
+        request methodPatch "/bitchar_with_length?select=bit,char&char=eq.aaaaa"
             [("Prefer", "return=representation")]
             [json|{"bit": "11100"}|]
           `shouldRespondWith` [json|[{ "bit": "11100", "char": "aaaaa" }]|]
             { matchStatus  = 200 }
 
       it "should update a char column with length" $
-        request methodPatch "/bitchar_with_length?bit=eq.00000"
+        request methodPatch "/bitchar_with_length?select=bit,char&bit=eq.00000"
             [("Prefer", "return=representation")]
             [json|{"char": "zzzyy"}|]
           `shouldRespondWith` [json|[{ "bit": "00000", "char": "zzzyy" }]|]

test/spec/fixtures/schema.sql

@@ -3303,12 +3303,6 @@ create table bets (
 create index bets_data_json  on bets ((data_json  ->>'contractId'));
 create index bets_data_jsonb on bets ((data_jsonb ->>'contractId'));
 
--- https://github.com/PostgREST/postgrest/issues/2861
-CREATE TABLE bitchar_with_length (
-  bit bit(5),
-  char char(5)
-);
-
 --- https://github.com/PostgREST/postgrest/issues/2862
 create table profiles (
   id uuid primary key,
@@ -3329,3 +3323,32 @@ create table tournaments(
   id bigint primary key,
   status bigint references status(id)
 );
+
+-- https://github.com/PostgREST/postgrest/issues/2861
+CREATE TABLE bitchar_with_length (
+  bit bit(5),
+  char char(5),
+  bit_arr bit(5)[],
+  char_arr char(5)[]
+);
+
+-- https://github.com/PostgREST/postgrest/issues/1586
+create or replace function char_param_select(char_ char(4), char_arr char(4)[])
+returns table(char_ char, char_arr char[]) as $$
+  select $1, $2;
+$$ language sql;
+
+create or replace function bit_param_select(bit_ char(4), bit_arr char(4)[])
+returns table(bit_ char, bit_arr char[]) as $$
+  select $1, $2;
+$$ language sql;
+
+create or replace function char_param_insert(char_ char(4), char_arr char(4)[])
+returns void as $$
+  insert into bitchar_with_length(char, char_arr) values($1, $2);
+$$ language sql;
+
+create or replace function bit_param_insert(bit_ bit(4), bit_arr bit(4)[])
+returns void as $$
+insert into bitchar_with_length(bit, bit_arr) values($1, $2);
+$$ language sql;