1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
|
\set VERBOSITY terse
-- test bad arg
create function test_err1(dat text)
returns text as $$
cluster 'testcluster';
run on hashtext(username);
$$ language plproxy;
select * from test_err1('dat');
create function test_err2(dat text)
returns text as $$
cLuStEr 'testcluster';
rUn oN hAshtext($2);
$$ language plproxy;
select * from test_err2('dat');
create function test_err3(dat text)
returns text as $$
cluster 'nonexists';
run on hashtext($1);
$$ language plproxy;
select * from test_err3('dat');
-- should work
create function test_err_none(dat text)
returns text as $$
cluster 'testcluster';
run on hashtext($1);
select 'ok';
$$ language plproxy;
select * from test_err_none('dat');
--- result map errors
create function test_map_err1(dat text)
returns text as $$ cluster 'testcluster'; run on 0;
select dat as "foo", 'asd' as "bar";
$$ language plproxy;
select * from test_map_err1('dat');
create function test_map_err2(dat text, out res1 text, out res2 text)
returns record as $$ cluster 'testcluster'; run on 0;
select dat as res1;
$$ language plproxy;
select * from test_map_err2('dat');
create function test_map_err3(dat text, out res1 text, out res2 text)
returns record as $$ cluster 'testcluster'; run on 0;
select dat as res1, 'foo' as res_none;
$$ language plproxy;
select * from test_map_err3('dat');
create function test_map_err4(dat text, out res1 text, out res2 text)
returns record as $$
--cluster 'testcluster';
run on hashtext(dat);
select dat as res2, 'foo' as res1;
$$ language plproxy;
select * from test_map_err4('dat');
create function test_variadic_err(first text, rest variadic text[])
returns text as $$
cluster 'testcluster';
$$ language plproxy;
select * from test_variadic_err('dat', 'dat', 'dat');
create function test_volatile_err(dat text)
returns text
stable
as $$
cluster 'testcluster';
$$ language plproxy;
select * from test_volatile_err('dat');
create function test_pseudo_arg_err(dat cstring)
returns text
as $$
cluster 'testcluster';
$$ language plproxy;
select * from test_pseudo_arg_err(textout('dat'));
create function test_pseudo_ret_err(dat text)
returns cstring
as $$
cluster 'testcluster';
$$ language plproxy;
-- not detected in validator
select * from test_pseudo_ret_err('dat');
create function test_runonall_err(dat text)
returns text
as $$
cluster 'testcluster';
run on all;
$$ language plproxy;
select * from test_runonall_err('dat');
-- make sure that errors from non-setof functions returning <> 1 row have
-- a proper sqlstate
create function test_no_results_plproxy()
returns int
as $$
cluster 'testcluster';
run on any;
select 1 from pg_database where datname = '';
$$ language plproxy;
create function test_no_results()
returns void
as $$
begin
begin
perform test_no_results_plproxy();
exception when no_data_found then
null;
end;
end;
$$ language plpgsql;
select * from test_no_results();
create function test_multi_results_plproxy()
returns int
as $$
cluster 'testcluster';
run on any;
select 1 from pg_database;
$$ language plproxy;
create function test_multi_results()
returns void
as $$
begin
begin
perform test_multi_results_plproxy();
exception when too_many_rows then
null;
end;
end;
$$ language plpgsql;
select * from test_multi_results();
|
