Renamed gc_tag to gc_tags

jgebal · jgebal · commit effb4202f92c · 2019-06-06T00:15:18.000+01:00
Added debug logging of suite cache query.
diff --git a/source/core/ut_suite_builder.pkb b/source/core/ut_suite_builder.pkb
@@ -23,7 +23,7 @@ create or replace package body ut_suite_builder is
 
   gc_suite                       constant t_annotation_name := 'suite';
   gc_suitepath                   constant t_annotation_name := 'suitepath';
-  gc_tag                         constant t_annotation_name := 'tags';
+  gc_tags                        constant t_annotation_name := 'tags';
   gc_test                        constant t_annotation_name := ut_utils.gc_test_execute;
   gc_disabled                    constant t_annotation_name := 'disabled';
   gc_displayname                 constant t_annotation_name := 'displayname';
@@ -44,7 +44,7 @@ create or replace package body ut_suite_builder is
     := tt_annotations(
       gc_suite,
       gc_suitepath,
-      gc_tag,
+      gc_tags,
       gc_test,
       gc_disabled,
       gc_displayname,
@@ -513,8 +513,8 @@ create or replace package body ut_suite_builder is
       set_seq_no(l_test.after_test_list);
     end if;
    
-    if l_proc_annotations.exists( gc_tag) then
-      add_tags_to_suite_item(a_suite, l_proc_annotations( gc_tag), l_test.tags, a_procedure_name);
+    if l_proc_annotations.exists( gc_tags) then
+      add_tags_to_suite_item(a_suite, l_proc_annotations( gc_tags), l_test.tags, a_procedure_name);
     end if;
     
     if l_proc_annotations.exists( gc_throws) then
@@ -667,8 +667,8 @@ create or replace package body ut_suite_builder is
       l_after_each_list := add_executables( a_suite.object_owner, a_suite.object_name, a_annotations.by_name(gc_aftereach), gc_aftereach );
     end if;
    
-    if a_annotations.by_name.exists(gc_tag) then
-      add_tags_to_suite_item(a_suite, a_annotations.by_name(gc_tag),a_suite.tags);
+    if a_annotations.by_name.exists(gc_tags) then
+      add_tags_to_suite_item(a_suite, a_annotations.by_name(gc_tags),a_suite.tags);
     end if;
     a_suite.disabled_flag := ut_utils.boolean_to_int(a_annotations.by_name.exists(gc_disabled));
 
diff --git a/source/core/ut_suite_manager.pkb b/source/core/ut_suite_manager.pkb
@@ -17,7 +17,6 @@ create or replace package body ut_suite_manager is
   */
 
   gc_suitpath_error_message constant varchar2(100) := 'Suitepath exceeds 1000 CHAR on: ';
-  gc_tag_errmsg             constant integer       := 450;
 
   gc_get_cache_suite_sql    constant varchar2(32767) :=
     q'[with
@@ -553,6 +552,8 @@ create or replace package body ut_suite_manager is
     l_sql := replace(l_sql,'{:random_seed:}',get_random_seed_sql(a_random_seed));
     l_sql := replace(l_sql,'{:owner:}',l_ut_owner);
 
+    ut_event_manager.trigger_event(ut_event_manager.gc_debug, ut_key_anyvalues().put('l_sql',l_sql) );
+
     open l_result for l_sql using l_path, l_path, upper(a_object_name), upper(a_procedure_name), l_tags, a_random_seed;
     return l_result;
   end;
