Added/Updated tests\bugs\gh_2292_test.py: see notes

tests/bugs/gh_2292_test.py

@@ -0,0 +1,57 @@
+#coding:utf-8
+
+"""
+ID:          issue-2292
+ISSUE:       https://github.com/FirebirdSQL/firebird/issues/2292
+TITLE:       Isql's extracted script is unusable with interdependent selectable procedures in FB 2.1 [CORE1862]
+DESCRIPTION: 
+    Test creates SP which has output parameter *and* SUSPEND clause.
+    Then we extract metadata and check whether this procedure header contains 'SUSPEND'.
+    On FB 2.0.7.13318 extracted metadata contains 'EXIT':
+        CREATE PROCEDURE SP_TEST RETURNS (O INTEGER)
+        AS 
+        BEGIN EXIT; END ^
+
+    Although such code can be compiled, this SP could be called (and returned empty resultset) only in 2.0.7 and before.
+    Since 2.1 attempt to call such SP will raise:
+        Statement failed, SQLSTATE = 42000
+        ...
+        -invalid request BLR at offset ...
+        -Procedure SP_TEST is not selectable (it does not contain a SUSPEND statement)
+"""
+
+import re
+import pytest
+from firebird.qa import *
+
+init_sql = """
+    set term ^ ;
+    create or alter procedure sp_test returns(out_value int) as
+    begin
+        out_value = 1;
+        suspend;
+    end
+    ^
+    set term ;^
+    commit;
+"""
+db = db_factory(init = init_sql)
+act = python_act('db')
+
+@pytest.mark.version('>=3.0.0')
+def test_1(act: Action, capsys):
+
+    meta_sql = act.extract_meta()
+    EXPECTED_MSG = 'OK'
+
+    p = re.compile(r'SP_TEST\s+RETURNS \(OUT_VALUE INTEGER\)\s+AS\s+BEGIN\s+SUSPEND;\s+END\s?\^', re.IGNORECASE)
+    
+    if p.search(meta_sql):
+        print(EXPECTED_MSG)
+    else:
+        print(f'Could not find pattern "{p.pattern}" in extracted metadata.')
+        print(meta_sql)
+
+    act.expected_stdout = EXPECTED_MSG
+    act.stdout = capsys.readouterr().out
+    assert act.clean_stdout == act.clean_expected_stdout