--
-- Test start_proc execution
--

SET pltcl.start_proc = 'no_such_function';

select tcl_int4add(1, 2);
select tcl_int4add(1, 2);

create function tcl_initialize() returns void as
$$ elog NOTICE "in tcl_initialize" $$ language pltcl SECURITY DEFINER;

SET pltcl.start_proc = 'public.tcl_initialize';

select tcl_int4add(1, 2);  -- fail

create or replace function tcl_initialize() returns void as
$$ elog NOTICE "in tcl_initialize" $$ language pltcl;

select tcl_int4add(1, 2);
select tcl_int4add(1, 2);