1--
2-- Test start_proc execution
3--
4
5SET pltcl.start_proc = 'no_such_function';
6
7select tcl_int4add(1, 2);
8select tcl_int4add(1, 2);
9
10create function tcl_initialize() returns void as
11$$ elog NOTICE "in tcl_initialize" $$ language pltcl SECURITY DEFINER;
12
13SET pltcl.start_proc = 'public.tcl_initialize';
14
15select tcl_int4add(1, 2);  -- fail
16
17create or replace function tcl_initialize() returns void as
18$$ elog NOTICE "in tcl_initialize" $$ language pltcl;
19
20select tcl_int4add(1, 2);
21select tcl_int4add(1, 2);
22