regress test - fix crash after commit/rollback inside procesure when …

…cursor leak detection is active

expected/plpgsql_check_active.out

@@ -9287,3 +9287,14 @@ select * from plpgsql_check_function('fx()');
 (0 rows)
 
 drop function fx();
+-- should not crash
+create or replace procedure p1()
+as $$
+begin
+  commit;
+end;
+$$ language plpgsql;
+set plpgsql_check.cursors_leaks to on;
+do $$ declare c cursor for select 1; begin open c; call p1(); end $$;
+set plpgsql_check.cursors_leaks to default;
+drop procedure p1;

expected/plpgsql_check_active_1.out

@@ -9289,3 +9289,14 @@ select * from plpgsql_check_function('fx()');
 (0 rows)
 
 drop function fx();
+-- should not crash
+create or replace procedure p1()
+as $$
+begin
+  commit;
+end;
+$$ language plpgsql;
+set plpgsql_check.cursors_leaks to on;
+do $$ declare c cursor for select 1; begin open c; call p1(); end $$;
+set plpgsql_check.cursors_leaks to default;
+drop procedure p1;

expected/plpgsql_check_active_2.out

@@ -9286,3 +9286,14 @@ select * from plpgsql_check_function('fx()');
 (0 rows)
 
 drop function fx();
+-- should not crash
+create or replace procedure p1()
+as $$
+begin
+  commit;
+end;
+$$ language plpgsql;
+set plpgsql_check.cursors_leaks to on;
+do $$ declare c cursor for select 1; begin open c; call p1(); end $$;
+set plpgsql_check.cursors_leaks to default;
+drop procedure p1;

sql/plpgsql_check_active.sql

@@ -5515,3 +5515,19 @@ $$ language plpgsql;
 select * from plpgsql_check_function('fx()');
 
 drop function fx();
+
+-- should not crash
+create or replace procedure p1()
+as $$
+begin
+  commit;
+end;
+$$ language plpgsql;
+
+set plpgsql_check.cursors_leaks to on;
+
+do $$ declare c cursor for select 1; begin open c; call p1(); end $$;
+
+set plpgsql_check.cursors_leaks to default;
+
+drop procedure p1;