Skip to content
Merged
Show file tree
Hide file tree
Changes from 2 commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
3 changes: 2 additions & 1 deletion source/core/annotations/ut_annotation_manager.pkb
Original file line number Diff line number Diff line change
Expand Up @@ -267,10 +267,11 @@ create or replace package body ut_annotation_manager as
l_sql_text ora_name_list_t := a_sql_text;
Comment thread
jgebal marked this conversation as resolved.
Outdated
begin
if a_parts > 0 then
l_sql_text(1) := regexp_replace(l_sql_text(1),'^\s*create(\s+or\s+replace){0,1}(\s+(editionable|noneditionable)){0,1}\s+{0,1}', modifier => 'i');
for i in 1..a_parts loop
ut_utils.append_to_clob(l_sql_clob, l_sql_text(i));
end loop;
l_sql_clob := ut_utils.replace_multiline_comments(l_sql_clob);
l_sql_clob := regexp_replace(l_sql_clob, '^(.*?[^-]{2,}\s*create(\s+or\s+replace){0,1}(\s+(editionable|noneditionable))?\s+?)((package|type).*)', '\5', 1, 1, 'ni');
l_sql_lines := ut_utils.convert_collection( ut_utils.clob_to_table(l_sql_clob) );
end if;
open l_result for
Expand Down
15 changes: 12 additions & 3 deletions test/ut3_tester/core/annotations/test_annotation_manager.pkb
Original file line number Diff line number Diff line change
Expand Up @@ -39,10 +39,19 @@ create or replace package body test_annotation_manager is
procedure create_dummy_test_package is
pragma autonomous_transaction;
begin
execute immediate q'[create or replace package dummy_test_package as
execute immediate q'[
/*
* Some multiline comments before package spec
create or replace package dummy_test_package dummy comment to prove that we pick the right piece of code
*/
-- create or replace package dummy_test_package dummy comment to prove that we pick the right piece of code
--Some single-line comment before package spec
create or replace package dummy_test_package as
--%suite(dummy_test_suite)
--%rollback(manual)

--create or replace package dummy_test_package dummy comment to prove that we pick the right piece of code

--%test(dummy_test)
--%beforetest(some_procedure)
procedure some_dummy_test_procedure;
Expand Down Expand Up @@ -142,9 +151,9 @@ create or replace package body test_annotation_manager is
from dual union all
select 3, 'rollback' , 'manual', '' as subobject_name
from dual union all
select 5, 'test' , 'dummy_test', 'some_dummy_test_procedure' as subobject_name
select 7, 'test' , 'dummy_test', 'some_dummy_test_procedure' as subobject_name
from dual union all
select 6, 'beforetest' , 'some_procedure', 'some_dummy_test_procedure' as subobject_name
select 8, 'beforetest' , 'some_procedure', 'some_dummy_test_procedure' as subobject_name
from dual;

ut.expect(l_actual).to_equal(l_expected);
Expand Down