Fixed issue with parsing by trigger when source contains leading comments.

jgebal · jgebal · commit e0d6768ea76f · 2019-06-16T13:26:22.000+01:00
diff --git a/source/core/annotations/ut_annotation_manager.pkb b/source/core/annotations/ut_annotation_manager.pkb
@@ -267,10 +267,11 @@ create or replace package body ut_annotation_manager as
       l_sql_text    ora_name_list_t := a_sql_text;
     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 := ut3.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
diff --git a/test/ut3_tester/core/annotations/test_annotation_manager.pkb b/test/ut3_tester/core/annotations/test_annotation_manager.pkb
@@ -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;
@@ -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);
