6
0
mirror of https://github.com/FirebirdSQL/firebird-qa.git synced 2025-01-22 21:43:06 +01:00
firebird-qa/tests/bugs/gh_8056_test.py

79 lines
1.9 KiB
Python

#coding:utf-8
"""
ID: issue-8056
ISSUE: https://github.com/FirebirdSQL/firebird/issues/8056
TITLE: "Too many temporary blobs" with blob_append when select a stored procedue using rows-clause
DESCRIPTION:
NOTES:
Confirmed bug on 6.0.0.293, 5.0.1.1369 got:
Statement failed, SQLSTATE = HY000
Too many temporary blobs
-At procedure 'SP_TEST' line: 6, col: 9
Checked on 6.0.0.295 bf5ab97, 5.0.1.1370 906e270, 4.0.5.3080 5d44e7c
"""
import pytest
from firebird.qa import *
db = db_factory()
test_script = """
set blob all;
set list on;
set bail on;
set term ^;
create or alter procedure sp_count (astart bigint, aend bigint) returns (ovalue bigint) as
begin
:ovalue = :astart;
while (:ovalue <= :aend) do
begin
suspend;
:ovalue = :ovalue + 1;
end
end
^
create or alter procedure sp_test
returns (
blob_app_result blob sub_type 1 segment size 80 character set utf8 collate utf8
) as
begin
:blob_app_result = blob_append(null, '');
:blob_app_result = blob_append(:blob_app_result, 'hello');
:blob_app_result = blob_append(:blob_app_result, ' world');
suspend;
end
^
commit
^
execute block as
declare ovalue bigint;
declare blob_app_result blob;
begin
for
select n.ovalue, p.blob_app_result
from sp_count(1, 18000) n
join sp_test p on 1 = 1
rows 17500 to 18000
as cursor c
do begin
end
end
^
select 'Passed' as msg from rdb$database
^
"""
act = isql_act('db', test_script, substitutions=[('[ \t]+', ' ')])
expected_stdout = """
MSG Passed
"""
@pytest.mark.version('>=4.0.5')
def test_1(act: Action):
act.expected_stdout = expected_stdout
act.execute(combine_output = True)
assert act.clean_stdout == act.clean_expected_stdout