Added/Updated tests\bugs\gh_7501_test.py: Checked on 5.0.0.972; 4.0.3.2907

tests/bugs/gh_7501_test.py

@@ -0,0 +1,61 @@
+#coding:utf-8
+
+"""
+ID:          issue-7501
+ISSUE:       https://github.com/FirebirdSQL/firebird/issues/7501
+TITLE:       Precision of standalone unit may differ from packaged one in SQL dialect 1
+DESCRIPTION:
+NOTES:
+    [11.03.2023] pzotov
+    Checked on 5.0.0.972; 4.0.3.2907
+"""
+
+import pytest
+from firebird.qa import *
+
+db = db_factory(sql_dialect=1)
+
+test_script = """
+    set list on;
+    recreate table test(id int primary key, x numeric(9,2), y numeric(9,2));
+    insert into test(id, x, y) select row_number()over(), 1.11, 333.33 from rdb$types,rdb$types rows 1000;
+    commit;
+
+    set term ^;
+    create or alter function fn_sum returns double precision as
+    begin
+        return ( select sum(x/y) from test );
+    end
+    ^
+    create or alter package pg as
+    begin
+        function pg_sum returns double precision;
+    end
+    ^
+    recreate package body pg as
+    begin
+        function pg_sum returns double precision as
+        begin
+            return ( select sum(x/y) from test );
+        end
+    end
+    ^
+    set term ;^
+    commit;
+
+    select fn_sum(), pg.pg_sum() from rdb$database;
+"""
+
+act = isql_act('db', test_script)
+
+expected_stdout = """
+    FN_SUM                          3.330033300333080
+    PG_SUM                          3.330033300333080
+"""
+
+@pytest.mark.version('>=3.0.11')
+def test_1(act: Action):
+    act.expected_stdout = expected_stdout
+    # act.execute(combine_output=True)
+    act.isql(switches=['-q', '-sql_dialect', '1'], input=test_script, combine_output=True)
+    assert act.clean_stdout == act.clean_expected_stdout