From 9a015031bfba88a651d15ad556fe52321b9f9de8 Mon Sep 17 00:00:00 2001
From: pavel-zotov <p519446@yandex.ru>
Date: Sat, 11 Mar 2023 00:40:03 +0300
Subject: [PATCH] Added/Updated tests\bugs\gh_7501_test.py: Checked on
 5.0.0.972; 4.0.3.2907

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

diff --git a/tests/bugs/gh_7501_test.py b/tests/bugs/gh_7501_test.py
new file mode 100644
index 00000000..d5cbae8e
--- /dev/null
+++ b/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