Added/Updated tests\bugs\gh_7426_test.py: Checked on 5.0.0.1190. Ыуу тщеуыю

Author: pavel-zotov

tests/bugs/gh_7426_test.py

@@ -0,0 +1,144 @@
+#coding:utf-8
+
+"""
+ID:          issue-7426
+ISSUE:       https://github.com/FirebirdSQL/firebird/issues/7426
+TITLE:       Ensure the DDL trigger requests are cached
+DESCRIPTION:
+    Test prepares trace config with requrement to see TRIGGERS compilation.
+    We create two DDL triggers for logging any DDL statement, before and after it occurs.
+    Then we create table with two constraints and one index, and make several alter statements.
+
+    Finally, we parse trace log and filter only lines containing name of DDL triggers.
+    Only ONE occurence must be for each of DDL trigger (totally 2).
+    Before this ticked was fixed, every time we did some DDL appropriate trigger was compiled
+    and this could be seen in a trace log (checked on 5.0.0.1182).
+
+    No errors must present in the trace log.
+NOTES:
+    [07-sep-2023] pzotov
+    ::: NB :::
+    1. It must be noted that the term 'COMPILE' means parsing of BLR code into an execution tree, i.e. this action
+       occurs when unit code is loaded into metadata cache. 
+    2. Currently there is no way to specify in the trace what EXACT type of DDL trigger fired. It is shown as "AFTER DDL".
+   
+    Checked on 5.0.0.1190.
+"""
+import locale
+import re
+import pytest
+from firebird.qa import *
+
+db = db_factory()
+
+act = python_act('db')
+
+trace = ['log_initfini = false',
+         'log_errors = true',
+         'log_trigger_compile = true',
+         ]
+
+allowed_patterns = [ ' ERROR AT ', 'Trigger TRG_ANY_DDL_STATEMENT_', ]
+allowed_patterns = [ re.compile(r, re.IGNORECASE) for r in  allowed_patterns]
+
+@pytest.mark.version('>=5.0')
+def test_1(act: Action, capsys):
+
+    test_script = f"""
+        recreate table log_ddl_triggers_activity (
+            id int generated by default as identity constraint pk_log_ddl_triggers_activity primary key
+            ,ddl_trigger_name varchar(64)
+            ,event_type varchar(25) not null
+            ,object_type varchar(25) not null
+            ,ddl_event varchar(25) not null
+            ,object_name varchar(64) not null
+            ,dts timestamp default 'now'
+        );
+
+        set autoddl off;
+
+        set term ^;
+        execute block as
+        begin
+            rdb$set_context('USER_SESSION', 'SKIP_DDL_TRG', '1');
+        end
+        ^
+        create or alter trigger trg_any_ddl_statement_alter active after any ddl statement as 
+        begin
+            if (rdb$get_context('USER_SESSION', 'SKIP_DDL_TRG') is null) then
+                execute statement
+                    ('insert into log_ddl_triggers_activity(ddl_trigger_name, event_type, object_type, ddl_event, object_name) values( ?, ?, ?, ?, ? )' )
+                    ( 'ANY_DDL_STATEMENT_AFTER'
+                     ,rdb$get_context('DDL_TRIGGER', 'EVENT_TYPE')
+                     ,rdb$get_context('DDL_TRIGGER', 'OBJECT_TYPE')
+                     ,rdb$get_context('DDL_TRIGGER', 'DDL_EVENT')
+                     ,rdb$get_context('DDL_TRIGGER', 'OBJECT_NAME')
+                    );
+        end
+        ^
+        create or alter trigger trg_any_ddl_statement_before active before any ddl statement as 
+        begin
+            if (rdb$get_context('USER_SESSION', 'SKIP_DDL_TRG') is null) then
+                execute statement
+                    ('insert into log_ddl_triggers_activity(ddl_trigger_name, event_type, object_type, ddl_event, object_name) values( ?, ?, ?, ?, ? )' )
+                    ( 'ANY_DDL_STATEMENT_BEFORE'
+                     ,rdb$get_context('DDL_TRIGGER', 'EVENT_TYPE')
+                     ,rdb$get_context('DDL_TRIGGER', 'OBJECT_TYPE')
+                     ,rdb$get_context('DDL_TRIGGER', 'DDL_EVENT')
+                     ,rdb$get_context('DDL_TRIGGER', 'OBJECT_NAME')
+                    );
+        end
+        ^
+        execute block as
+        begin
+            rdb$set_context('USER_SESSION', 'SKIP_DDL_TRG', null);
+        end
+        ^
+        commit
+        ^
+
+        ----------
+        create table test(id int not null, x smallint, y int, z int, name varchar(10))
+        ^
+        --/*
+        alter table test add constraint test_pk primary key(id) using descending index test_id_desc
+        ^
+        alter table test add constraint test_unq unique(x,y) using descending index test_x_y_unq_desc
+        ^
+        create index test_name on test(name)
+        ^
+        alter index test_name inactive
+        ^
+        alter index test_name active
+        ^
+        drop index test_name
+        ^
+        alter table test drop constraint test_pk, drop constraint test_unq
+        ^
+        alter table test alter x type int, alter y type bigint, alter name type varchar(20), drop z, add u varchar(10)
+        ^
+        --*/
+        commit
+        ^
+        set term ;^
+
+    """
+
+    with act.trace(db_events=trace, encoding = locale.getpreferredencoding(), encoding_errors='utf8'):
+        act.isql(switches = ['-q'], input = test_script, combine_output = True, io_enc = locale.getpreferredencoding())
+
+    # Process trace
+    for line in act.trace_log:
+        if line.rstrip().split():
+            for p in allowed_patterns:
+                if p.search(line):
+                    print(line.strip())
+
+    expected_stdout = f"""
+        Trigger TRG_ANY_DDL_STATEMENT_BEFORE (BEFORE DDL):
+        Trigger TRG_ANY_DDL_STATEMENT_ALTER (AFTER DDL):
+    """
+
+    act.expected_stdout = expected_stdout
+    act.stdout = capsys.readouterr().out
+    assert act.clean_stdout == act.clean_expected_stdout