mirror of
https://github.com/FirebirdSQL/firebird-qa.git
synced 2025-01-22 13:33:07 +01:00
76 lines
2.5 KiB
Python
76 lines
2.5 KiB
Python
#coding:utf-8
|
|
|
|
"""
|
|
ID: issue-1852
|
|
ISSUE: 1852
|
|
TITLE: Incorrect result with EXECUTE STATEMENT and VARCHAR columns
|
|
DESCRIPTION: Last two bytes of VARCHAR columns are lost.
|
|
JIRA: CORE-1434
|
|
FBTEST: bugs.core_1434
|
|
"""
|
|
|
|
import pytest
|
|
from firebird.qa import *
|
|
|
|
db = db_factory()
|
|
|
|
test_script = """
|
|
set list on;
|
|
set term ^;
|
|
execute block returns (res varchar(31))
|
|
as
|
|
begin
|
|
for execute statement
|
|
'select cast(rdb$relation_name as varchar(24)) '
|
|
|| ' from rdb$relations r where r.rdb$system_flag = 1 and r.rdb$relation_name NOT starting with ''MON$'''
|
|
|| ' order by rdb$relation_id rows 30'
|
|
into :res
|
|
do
|
|
suspend;
|
|
end
|
|
^
|
|
set term ;^
|
|
"""
|
|
|
|
act = isql_act('db', test_script)
|
|
|
|
expected_stdout = """
|
|
RES RDB$PAGES
|
|
RES RDB$DATABASE
|
|
RES RDB$FIELDS
|
|
RES RDB$INDEX_SEGMENTS
|
|
RES RDB$INDICES
|
|
RES RDB$RELATION_FIELDS
|
|
RES RDB$RELATIONS
|
|
RES RDB$VIEW_RELATIONS
|
|
RES RDB$FORMATS
|
|
RES RDB$SECURITY_CLASSES
|
|
RES RDB$FILES
|
|
RES RDB$TYPES
|
|
RES RDB$TRIGGERS
|
|
RES RDB$DEPENDENCIES
|
|
RES RDB$FUNCTIONS
|
|
RES RDB$FUNCTION_ARGUMENTS
|
|
RES RDB$FILTERS
|
|
RES RDB$TRIGGER_MESSAGES
|
|
RES RDB$USER_PRIVILEGES
|
|
RES RDB$TRANSACTIONS
|
|
RES RDB$GENERATORS
|
|
RES RDB$FIELD_DIMENSIONS
|
|
RES RDB$RELATION_CONSTRAINTS
|
|
RES RDB$REF_CONSTRAINTS
|
|
RES RDB$CHECK_CONSTRAINTS
|
|
RES RDB$LOG_FILES
|
|
RES RDB$PROCEDURES
|
|
RES RDB$PROCEDURE_PARAMETERS
|
|
RES RDB$CHARACTER_SETS
|
|
RES RDB$COLLATIONS
|
|
"""
|
|
|
|
@pytest.mark.version('>=3')
|
|
def test_1(act: Action):
|
|
act.expected_stdout = expected_stdout
|
|
act.execute()
|
|
assert act.clean_stdout == act.clean_expected_stdout
|
|
|