From 14bc4b33e07338c78ec4f20387bdc7dfb7669c60 Mon Sep 17 00:00:00 2001
From: pavel-zotov <p519446@yandex.ru>
Date: Thu, 23 Feb 2023 11:37:16 +0300
Subject: [PATCH] Added/Updated tests\bugs\gh_7220_test.py: Confirmed bug on
 5.0.0.520. Checked on 5.0.0.958 - all fine.

---
 tests/bugs/gh_7220_test.py | 86 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 86 insertions(+)
 create mode 100644 tests/bugs/gh_7220_test.py

diff --git a/tests/bugs/gh_7220_test.py b/tests/bugs/gh_7220_test.py
new file mode 100644
index 00000000..d94e2f3c
--- /dev/null
+++ b/tests/bugs/gh_7220_test.py
@@ -0,0 +1,86 @@
+#coding:utf-8
+
+"""
+ID:          issue-7220
+ISSUE:       7220
+TITLE:       Dependencies of subroutines are not preserved after backup restore
+DESCRIPTION:
+NOTES:
+    [23.02.2023] pzotov
+    Confirmed bug on 5.0.0.520 (but 'drop table' will not fail only if it is executed in the same connect as DDL).
+    Checked on 5.0.0.958 - all fine.
+"""
+import pytest
+from firebird.qa import *
+
+db = db_factory()
+act = python_act('db')
+
+test_sql = """
+    set term ^;
+    create domain domain1 integer
+    ^
+    create table table1 (n integer, c varchar(31))
+    ^
+    create package pkg as
+    begin
+        procedure proc1(i type of column table1.n);
+        procedure proc2(i domain1);
+    end
+    ^
+    create function wait_event (event_name type of column table1.c)
+        returns integer not null
+        external name 'udrcpp_example!wait_event' engine udr
+    ^
+    set term ;^
+    commit;
+    
+    set list on;
+    set count on;
+    select
+        rdb$dependent_name
+        ,rdb$depended_on_name
+    from rdb$dependencies
+    order by rdb$dependent_name;
+
+    -- NB: NO re-connect must be here!
+    -- Otherwise 'drop table' *will* fail on build where this bug was found.
+
+    set echo on;
+
+    drop table table1;
+    
+    drop domain domain1;
+"""
+
+expected_out = """
+    RDB$DEPENDENT_NAME              PKG
+    RDB$DEPENDED_ON_NAME            TABLE1
+
+    RDB$DEPENDENT_NAME              PKG
+    RDB$DEPENDED_ON_NAME            DOMAIN1
+
+    RDB$DEPENDENT_NAME              WAIT_EVENT
+    RDB$DEPENDED_ON_NAME            TABLE1
+    Records affected: 3
+
+    drop table table1;
+    Statement failed, SQLSTATE = 42000
+    unsuccessful metadata update
+    -cannot delete
+    -COLUMN TABLE1.N
+    -there are 1 dependencies
+
+    drop domain domain1;
+    Statement failed, SQLSTATE = 42000
+    unsuccessful metadata update
+    -DROP DOMAIN DOMAIN1 failed
+    -Domain DOMAIN1 is used in procedure PKG.PROC2 (parameter name I) and cannot be dropped
+"""
+
+@pytest.mark.version('>=5.0')
+def test_1(act: Action):
+
+    act.expected_stdout = expected_out
+    act.isql(switches=['-q'], combine_output = True, input = test_sql)
+    assert act.clean_stdout == act.clean_expected_stdout