From 6ed135d077f5521c161915b5e238bd0942af57bc Mon Sep 17 00:00:00 2001
From: pavel-zotov <p519446@yandex.ru>
Date: Sun, 10 Nov 2024 16:02:38 +0300
Subject: [PATCH] Added/Updated tests\bugs\gh_8309_test.py: Checked on
 6.0.0.523-8ca2314.

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

diff --git a/tests/bugs/gh_8309_test.py b/tests/bugs/gh_8309_test.py
new file mode 100644
index 00000000..ac456856
--- /dev/null
+++ b/tests/bugs/gh_8309_test.py
@@ -0,0 +1,90 @@
+#coding:utf-8
+
+"""
+ID:          issue-8309
+ISSUE:       https://github.com/FirebirdSQL/firebird/pull/8309
+TITLE:       Add ALTER PACKAGE BODY and CRAETE OR ALTER PACKAGE BODY parse rules
+DESCRIPTION:
+    We create package with body. Then we change its body two times:
+        * using 'ALTER PACKAGE';
+        * using 'CREATE OR ALTER PACKAGE' clause.
+    Both changes must complete without error.
+NOTES:
+    [10.11.2024] pzotov
+    Checked on 6.0.0.523-8ca2314.
+"""
+
+import pytest
+from firebird.qa import *
+
+db = db_factory()
+
+act = isql_act('db', substitutions=[('[ \\t]+', ' ')])
+
+@pytest.mark.version('>=6.0.0')
+def test_1(act: Action):
+
+    msg_map = {
+                 0: 'Initial'
+                ,1: 'Changed via "ALTER PACKAGE BODY"'
+                ,2: 'Changed via "CREATE OR ALTER PACKAGE BODY"'
+              }
+
+    test_sql = f"""
+        set term ^;
+        set heading off
+        ^
+        set bail on
+        ^
+        create or alter package pg_test as
+        begin
+            function fn_dummy returns varchar(50);
+        end
+        ^
+        recreate package body pg_test as
+        begin
+            function fn_dummy returns varchar(50) as
+            begin
+                return '{msg_map[0]}';
+            end
+        end
+        ^
+        select pg_test.fn_dummy() from rdb$database
+        ^
+
+        set bail off
+        ^
+
+        -- must NOT fail since 6.0.0.523:
+        alter package body pg_test as
+        begin
+            function fn_dummy returns varchar(50) as
+            begin
+                return '{msg_map[1]}';
+            end
+        end
+        ^
+        select pg_test.fn_dummy() from rdb$database
+        ^
+
+        -- must NOT fail since 6.0.0.523:
+        create or alter package body pg_test as
+        begin
+            function fn_dummy returns varchar(50) as
+            begin
+                return '{msg_map[2]}';
+            end
+        end
+        ^
+        select pg_test.fn_dummy() from rdb$database
+        ^
+    """
+
+    act.expected_stdout = f"""
+        {msg_map[0]}
+        {msg_map[1]}
+        {msg_map[2]}
+    """
+    act.isql(switches = ['-q'], input = test_sql, combine_output = True)
+    assert act.clean_stdout == act.clean_expected_stdout
+