Test for "RETURNS TABLE (..)" functions

diff --git a/Makefile b/Makefile
index 75f2c72bdfc5d7de4a1bea29cdf0f3a6e85ead3f..d8aa2e3e5155f2ed8c99d944bb95392ee22ce1d5 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -57,7 +57,7 @@ PG91 = $(shell test "$(PGVER)" "<" "9.1" && echo "false" || echo "true")
 
 # SQL/MED available, add foreign data wrapper and regression tests
 ifeq ($(SQLMED), true)
-REGRESS += plproxy_sqlmed
+REGRESS += plproxy_sqlmed plproxy_table
 PLPROXY_SQL += sql/plproxy_fdw.sql
 endif
 

diff --git a/test/expected/plproxy_table.out b/test/expected/plproxy_table.out
new file mode 100644 (file)
index 0000000..f34f2e5
--- /dev/null
+++ b/test/expected/plproxy_table.out
@@ -0,0 +1,38 @@
+\c test_part0
+create or replace function test_ret_table(id int)
+returns table(id int, t text) as $$
+    select * from (values(1, 'test'),(2, 'toto') ) as toto;
+$$ language sql;
+select * from test_ret_table(0);
+ id |  t   
+----+------
+  1 | test
+  2 | toto
+(2 rows)
+
+\c regression
+create or replace function test_ret_table_normal(in _id integer, out id integer, out t text)
+returns setof record as $$
+    cluster 'testcluster';
+    run on _id;
+    target test_ret_table;
+$$ language plproxy;
+select * from test_ret_table_normal(0);
+ id |  t   
+----+------
+  1 | test
+  2 | toto
+(2 rows)
+
+create or replace function test_ret_table(in _id integer)
+returns table (id integer, t text) as $$
+    cluster 'testcluster';
+    run on _id;
+$$ language plproxy;
+select * from test_ret_table(0);
+ id |  t   
+----+------
+  1 | test
+  2 | toto
+(2 rows)
+

diff --git a/test/sql/plproxy_table.sql b/test/sql/plproxy_table.sql
new file mode 100644 (file)
index 0000000..2f8acdc
--- /dev/null
+++ b/test/sql/plproxy_table.sql
@@ -0,0 +1,30 @@
+
+\c test_part0
+
+
+create or replace function test_ret_table(id int)
+returns table(id int, t text) as $$
+    select * from (values(1, 'test'),(2, 'toto') ) as toto;
+$$ language sql;
+
+select * from test_ret_table(0);
+
+\c regression
+
+create or replace function test_ret_table_normal(in _id integer, out id integer, out t text)
+returns setof record as $$
+    cluster 'testcluster';
+    run on _id;
+    target test_ret_table;
+$$ language plproxy;
+
+select * from test_ret_table_normal(0);
+
+create or replace function test_ret_table(in _id integer)
+returns table (id integer, t text) as $$
+    cluster 'testcluster';
+    run on _id;
+$$ language plproxy;
+
+select * from test_ret_table(0);
+