mirror of
https://github.com/FirebirdSQL/firebird-qa.git
synced 2025-01-22 13:33:07 +01:00
73 lines
1.8 KiB
Python
73 lines
1.8 KiB
Python
#coding:utf-8
|
|
|
|
"""
|
|
ID: issue-3730
|
|
ISSUE: 3730
|
|
TITLE: Blob filter to translate internal debug info into text representation
|
|
DESCRIPTION:
|
|
JIRA: CORE-3364
|
|
FBTEST: bugs.core_3364
|
|
"""
|
|
|
|
import pytest
|
|
from firebird.qa import *
|
|
|
|
init_script = """
|
|
set term ^;
|
|
create or alter procedure sp_test(a_n smallint) returns(n_fact bigint) as
|
|
begin
|
|
n_fact = iif(a_n > 0, a_n, 0);
|
|
|
|
while (a_n > 1) do
|
|
begin
|
|
n_fact = n_fact * (a_n - 1);
|
|
a_n = a_n -1;
|
|
end
|
|
suspend;
|
|
end
|
|
^
|
|
set term ;^
|
|
commit;
|
|
"""
|
|
|
|
db = db_factory(page_size=4096, sql_dialect=3, init=init_script)
|
|
|
|
test_script = """
|
|
set list on;
|
|
set blob all;
|
|
select rdb$debug_info from rdb$procedures where upper(rdb$procedure_name) = upper('sp_test');
|
|
"""
|
|
|
|
act = isql_act('db', test_script, substitutions=[('RDB\\$DEBUG_INFO', ''), ('-', ''),
|
|
('[0-9]+[ ]+[0-9]+[ ]+[0-9]+', '')])
|
|
|
|
expected_stdout = """
|
|
RDB$DEBUG_INFO 1a:f0
|
|
Parameters:
|
|
Number Name Type
|
|
--------------------------------------------------
|
|
0 A_N INPUT
|
|
0 N_FACT OUTPUT
|
|
Variables:
|
|
Number Name
|
|
-------------------------------------------
|
|
0 N_FACT
|
|
BLR to Source mapping:
|
|
BLR offset Line Column
|
|
--------------------------------
|
|
36 2 5
|
|
38 3 9
|
|
73 5 9
|
|
92 6 9
|
|
94 7 11
|
|
116 8 11
|
|
142 10 9
|
|
"""
|
|
|
|
@pytest.mark.version('>=3.0')
|
|
def test_1(act: Action):
|
|
act.expected_stdout = expected_stdout
|
|
act.execute()
|
|
assert act.clean_stdout == act.clean_expected_stdout
|
|
|