mirror of
https://github.com/FirebirdSQL/firebird-qa.git
synced 2025-01-22 21:43:06 +01:00
147 lines
4.7 KiB
Python
147 lines
4.7 KiB
Python
#coding:utf-8
|
|
#
|
|
# id: bugs.core_4484
|
|
# title: Description (COMMENT ON) for package procedures and functions, and its parameters
|
|
# decription: Test verifies ability to store comments and also to encode them in UTF8
|
|
# tracker_id: CORE-4484
|
|
# min_versions: ['3.0']
|
|
# versions: 3.0
|
|
# qmid:
|
|
|
|
import pytest
|
|
from firebird.qa import db_factory, isql_act, Action
|
|
|
|
# version: 3.0
|
|
# resources: None
|
|
|
|
substitutions_1 = [('TEXT_BLOB.*', '')]
|
|
|
|
init_script_1 = """"""
|
|
|
|
db_1 = db_factory(charset='UTF8', sql_dialect=3, init=init_script_1)
|
|
|
|
test_script_1 = """
|
|
set term ^;
|
|
create or alter package pg_test
|
|
as
|
|
begin
|
|
procedure sp_test(i_x int) returns (o_z int);
|
|
function fn_test(i_x int) returns int;
|
|
end
|
|
^
|
|
|
|
recreate package body pg_test
|
|
as
|
|
begin
|
|
procedure sp_test(i_x int) returns (o_z int) as
|
|
begin
|
|
o_z = i_x * 2;
|
|
end
|
|
function fn_test(i_x int) returns int as
|
|
begin
|
|
return i_x * 2;
|
|
end
|
|
end
|
|
^
|
|
set term ;^
|
|
commit;
|
|
|
|
comment on package pg_test is 'MITÄ TÄMÄN';
|
|
comment on procedure pg_test.sp_test is 'ÁÉÍÓÚÝ';
|
|
comment on function pg_test.fn_test is 'ÂÊÎÔÛ';
|
|
comment on procedure parameter pg_test.sp_test.i_x is 'ÃÑÕ ÄËÏÖÜŸ';
|
|
comment on procedure parameter pg_test.sp_test.o_z is 'ÇŠ ΔΘΛΞΣΨΩ';
|
|
comment on function parameter pg_test.fn_test.i_x is 'ĄĘŁŹŻ ЙЁ ЊЋЏ ĂŞŢ';
|
|
commit;
|
|
|
|
set list on;
|
|
set blob all;
|
|
|
|
select 'package itself' descr_for_what,rp.rdb$package_name obj_name, rp.rdb$description text_blob
|
|
from rdb$packages rp
|
|
where rp.rdb$package_name=upper('pg_test')
|
|
|
|
union all
|
|
|
|
select *
|
|
from (
|
|
select 'package proc' descr_for_what, pp.rdb$procedure_name, pp.rdb$description
|
|
from rdb$procedures pp
|
|
where pp.rdb$package_name=upper('pg_test')
|
|
order by pp.rdb$procedure_name
|
|
)
|
|
|
|
union all
|
|
|
|
select *
|
|
from (
|
|
select 'package func' descr_for_what, pf.rdb$function_name, pf.rdb$description
|
|
from rdb$functions pf
|
|
where pf.rdb$package_name = upper('pg_test')
|
|
order by pf.rdb$function_name
|
|
)
|
|
|
|
union all
|
|
|
|
select 'package proc pars' descr_for_what, p_name, p_memo
|
|
from (
|
|
select p2.rdb$parameter_name p_name, p2.rdb$description p_memo
|
|
from rdb$procedure_parameters p2
|
|
where p2.rdb$package_name = upper('pg_test')
|
|
order by p2.rdb$parameter_name
|
|
)
|
|
|
|
|
|
union all
|
|
|
|
select 'package func args', a_name, f_memo
|
|
from (
|
|
select f2.rdb$argument_name a_name, f2.rdb$description f_memo
|
|
from rdb$function_arguments f2
|
|
where f2.rdb$package_name = upper('pg_test') and f2.rdb$argument_name is not null
|
|
order by f2.rdb$argument_name
|
|
)
|
|
;
|
|
"""
|
|
|
|
act_1 = isql_act('db_1', test_script_1, substitutions=substitutions_1)
|
|
|
|
expected_stdout_1 = """
|
|
DESCR_FOR_WHAT package itself
|
|
OBJ_NAME PG_TEST
|
|
TEXT_BLOB 0:3
|
|
MITÄ TÄMÄN
|
|
|
|
DESCR_FOR_WHAT package proc
|
|
OBJ_NAME SP_TEST
|
|
TEXT_BLOB 0:6
|
|
ÁÉÍÓÚÝ
|
|
|
|
DESCR_FOR_WHAT package func
|
|
OBJ_NAME FN_TEST
|
|
TEXT_BLOB 0:9
|
|
ÂÊÎÔÛ
|
|
|
|
DESCR_FOR_WHAT package proc pars
|
|
OBJ_NAME I_X
|
|
TEXT_BLOB 0:c
|
|
ÃÑÕ ÄËÏÖÜŸ
|
|
|
|
DESCR_FOR_WHAT package proc pars
|
|
OBJ_NAME O_Z
|
|
TEXT_BLOB 0:f
|
|
ÇŠ ΔΘΛΞΣΨΩ
|
|
|
|
DESCR_FOR_WHAT package func args
|
|
OBJ_NAME I_X
|
|
TEXT_BLOB 0:12
|
|
ĄĘŁŹŻ ЙЁ ЊЋЏ ĂŞŢ
|
|
"""
|
|
|
|
@pytest.mark.version('>=3.0')
|
|
def test_1(act_1: Action):
|
|
act_1.expected_stdout = expected_stdout_1
|
|
act_1.execute()
|
|
assert act_1.clean_expected_stdout == act_1.clean_stdout
|
|
|