mirror of
https://github.com/FirebirdSQL/firebird-qa.git
synced 2025-01-22 13:33:07 +01:00
101 lines
3.1 KiB
Python
101 lines
3.1 KiB
Python
#coding:utf-8
|
|
|
|
"""
|
|
ID: issue-4919
|
|
ISSUE: 4919
|
|
TITLE: EXECUTE STATEMENT rise varchar char_length() size
|
|
DESCRIPTION:
|
|
JIRA: CORE-4604
|
|
FBTEST: bugs.core_4604
|
|
"""
|
|
|
|
import pytest
|
|
from firebird.qa import *
|
|
|
|
db = db_factory()
|
|
|
|
test_script = """
|
|
set list on;
|
|
set term ^;
|
|
execute block returns (str_size integer)
|
|
as
|
|
declare variable tmp_guid varchar(38);
|
|
declare variable tmp_sqltext varchar(300);
|
|
declare v_dbname type of column mon$database.mon$database_name;
|
|
declare v_usr varchar(31) = 'SYSDBA';
|
|
declare v_pwd varchar(31) = 'masterkey';
|
|
begin
|
|
|
|
v_dbname = 'localhost:' || rdb$get_context('SYSTEM', 'DB_NAME');
|
|
|
|
---------------------------------------------------------------
|
|
|
|
tmp_guid = uuid_to_char(gen_uuid());
|
|
|
|
str_size = char_length(tmp_guid);
|
|
suspend;
|
|
|
|
---------------------------------------------------------------
|
|
|
|
tmp_sqltext = 'select ''' || tmp_guid || ''' from rdb$database';
|
|
|
|
execute statement (:TMP_SQLTEXT)
|
|
into :tmp_guid;
|
|
|
|
str_size = char_length(tmp_guid);
|
|
suspend;
|
|
|
|
---------------------------------------------------------------
|
|
|
|
execute statement (:TMP_SQLTEXT)
|
|
on external v_dbname as user v_usr password v_pwd
|
|
into :tmp_guid;
|
|
|
|
str_size = char_length(tmp_guid);
|
|
|
|
-- Confirmed on WI-T3.0.0.31374 Firebird 3.0 Beta 1/tcp (csprog)/P13
|
|
-- STR_SIZE 36
|
|
-- STR_SIZE 36
|
|
-- STR_SIZE 144
|
|
|
|
suspend;
|
|
|
|
end
|
|
^
|
|
set term ;^
|
|
commit;
|
|
|
|
-- ||||||||||||||||||||||||||||
|
|
-- ###################################||| FB 4.0+, SS and SC |||##############################
|
|
-- ||||||||||||||||||||||||||||
|
|
-- If we check SS or SC and ExtConnPoolLifeTime > 0 (config parameter FB 4.0+) then current
|
|
-- DB (bugs.core_NNNN.fdb) will be 'captured' by firebird.exe process and fbt_run utility
|
|
-- will not able to drop this database at the final point of test.
|
|
-- Moreover, DB file will be hold until all activity in firebird.exe completed and AFTER this
|
|
-- we have to wait for <ExtConnPoolLifeTime> seconds after it (discussion and small test see
|
|
-- in the letter to hvlad and dimitr 13.10.2019 11:10).
|
|
-- This means that one need to kill all connections to prevent from exception on cleanup phase:
|
|
-- SQLCODE: -901 / lock time-out on wait transaction / object <this_test_DB> is in use
|
|
-- #############################################################################################
|
|
delete from mon$attachments where mon$attachment_id != current_connection;
|
|
commit;
|
|
|
|
|
|
"""
|
|
|
|
act = isql_act('db', test_script)
|
|
|
|
expected_stdout = """
|
|
STR_SIZE 36
|
|
STR_SIZE 36
|
|
STR_SIZE 36
|
|
"""
|
|
|
|
@pytest.mark.es_eds
|
|
@pytest.mark.version('>=3')
|
|
def test_1(act: Action):
|
|
act.expected_stdout = expected_stdout
|
|
act.execute()
|
|
assert act.clean_stdout == act.clean_expected_stdout
|
|
|