Added/Updated tests\bugs\gh_8020_test.py: Checked on 6.0.0.269. NOTE: DROP-statements are intentionally enclosed in PSQL block with begin/end and suppressing any error. See notes.

tests/bugs/gh_8020_test.py

@@ -0,0 +1,91 @@
+#coding:utf-8
+
+"""
+ID:          issue-8020
+ISSUE:       https://github.com/FirebirdSQL/firebird/issues/8020
+TITLE:       AV when both function and dependent table are dropped in the same transaction
+DESCRIPTION:
+NOTES:
+    [12.03.2024] pzotov
+    1. Crash occured only when connection is done via TCP protocol.
+    2. Another bug currently *remains* in FB 6.x if DROP-statements are in DSQL form, i.e are not 'enclosed' in PSQL and begin/end blocks:
+           ==========
+           Statement failed, SQLSTATE = 39000
+           unsuccessful metadata update
+           -DROP TABLE T_FN failed
+           -invalid request BLR at offset 1
+           -function F is not defined
+           ==========
+       See https://github.com/FirebirdSQL/firebird/issues/8021 (currently not fixed).
+       Because of this, it was decided to run DROP statements within PSQL code.
+    3. Test checks whether MON$SERVER_PID remains the same after execution of DROP statements. In case of crash this is not so.
+
+    Confirmed bug on 6.0.0.268
+    Checked on 6.0.0.269
+"""
+
+import pytest
+from firebird.qa import *
+
+db = db_factory()
+
+expected_stdout = """
+    IS_SERVER_PID_THE_SAME          <true>
+    Statement failed, SQLSTATE = 38000
+    unsuccessful metadata update
+    -cannot delete
+    -Function F
+    -there are 1 dependencies
+"""
+
+act = python_act('db')
+
+@pytest.mark.version('>=6.0')
+def test_1(act: Action):
+    test_script = f"""
+        set list on;
+
+        set term ^;
+        create function f(x int)
+          returns int
+        as
+        begin
+          return x;
+        end
+        ^
+        create table t_fn (x int, fx computed by (f(x)))
+        ^
+        commit
+        ^
+        set term ;^
+        commit;
+
+        connect '{act.db.dsn}' user {act.db.user} password '{act.db.password}';
+        set autoddl off;
+        set bail on;
+        commit;
+        set term ^;
+        execute block returns(is_server_pid_the_same boolean) as
+            declare v_server_pid_init int;
+            declare v_server_pid_curr int;
+        begin
+            select mon$server_pid from mon$attachments where mon$attachment_id = current_connection into v_server_pid_init;
+            begin
+                execute statement 'drop function f';
+                execute statement 'drop table t_fn';
+            when any do
+                begin
+                end
+            end
+            select mon$server_pid from mon$attachments where mon$attachment_id = current_connection into v_server_pid_curr;
+            is_server_pid_the_same = (v_server_pid_init = v_server_pid_curr);
+            suspend;
+        end
+        ^
+        set term ;^
+        commit;
+    """
+
+    act.expected_stdout = expected_stdout
+    act.isql(switches=['-q'], input = test_script, combine_output = True)
+    assert act.clean_stdout == act.clean_expected_stdout