Added/Updated tests\bugs\gh_7476_test.py: Checked on 6.0.0.65.

tests/bugs/gh_7476_test.py

@@ -0,0 +1,67 @@
+#coding:utf-8
+
+"""
+ID:          issue-7476
+ISSUE:       https://github.com/FirebirdSQL/firebird/issues/7476
+TITLE:       Improvement on procedures/triggers to recognize changes in a domain used in COALESCE
+DESCRIPTION:
+NOTES:
+    [02.10.2023] pzotov
+    Confirmed bug on 5.0.0.1235
+
+    NB: re-connect is needed, see line marked as "[ !! ]".
+    Otherwise error raises: "SQLSTATE = 22001 / ... -string right truncation / -expected length 10, actual 11"
+    Checked on 6.0.0.65.
+"""
+
+import pytest
+from firebird.qa import *
+
+db = db_factory()
+
+test_script = """
+    set bail on;
+    set list on;
+    create domain dm_test as varchar(10);
+    create table test1(s dm_test);
+    create table test2(s dm_test);
+    set term ^;
+    create procedure sp_test as
+    begin
+        insert into test1(s) select coalesce(s, '') from test2;
+    end
+    ^
+    set term ;^
+    commit;
+
+    alter domain dm_test type varchar(11);
+    commit;
+
+    insert into test2(s) values('1234567890A');
+    commit;
+
+    insert into test1(s) select coalesce(s, '') from test2;
+    rollback;
+
+    connect '$(DSN)'; ------------------- [ !! ]
+    execute procedure sp_test;
+
+    select * from test1;
+
+    rollback;
+"""
+
+substitutions = [ ('[ \t]+', ' '), ]
+act = isql_act('db', test_script, substitutions = substitutions)
+
+expected_stdout = """
+    S 1234567890A
+"""
+
+@pytest.mark.version('>=5.0')
+def test_1(act: Action):
+
+    act.expected_stdout = expected_stdout
+    #act.isql(switches=['-q'], input = test_script, combine_output = True)
+    act.execute(combine_output = True)
+    assert act.clean_stdout == act.clean_expected_stdout