diff options
Diffstat (limited to 'src/pl/plperl/expected/plperl_array.out')
| -rw-r--r-- | src/pl/plperl/expected/plperl_array.out | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/pl/plperl/expected/plperl_array.out b/src/pl/plperl/expected/plperl_array.out index be76f6cc240..829733fef4f 100644 --- a/src/pl/plperl/expected/plperl_array.out +++ b/src/pl/plperl/expected/plperl_array.out @@ -204,6 +204,16 @@ select plperl_arrays_inout('{{1}, {2}, {3}}'); {{1},{2},{3}} (1 row) +-- check that we can return an array literal +CREATE OR REPLACE FUNCTION plperl_arrays_inout_l(INTEGER[]) returns INTEGER[] AS $$ + return shift.''; # stringify it +$$ LANGUAGE plperl; +select plperl_arrays_inout_l('{{1}, {2}, {3}}'); + plperl_arrays_inout_l +----------------------- + {{1},{2},{3}} +(1 row) + -- make sure setof works create or replace function perl_setof_array(integer[]) returns setof integer[] language plperl as $$ my $arr = shift; |