addressed the reviewer comments

Pazus · Pazus · commit ff4ede86c3b9 · 2017-08-27T12:02:39.000+03:00
diff --git a/source/core/ut_suite_manager.pkb b/source/core/ut_suite_manager.pkb
@@ -424,14 +424,11 @@ create or replace package body ut_suite_manager is
     end clean_paths;
 
     procedure skip_by_path(a_suite in out nocopy ut_suite_item, a_path varchar2) is
-      --c_root        constant varchar2(32767) := replace(regexp_substr(a_path, '[A-Za-z0-9$#_]+'), '$', '\$');
       c_root        constant varchar2(32767) := upper(regexp_substr(a_path, '[A-Za-z0-9$#_]+'));
       c_rest_path   constant varchar2(32767) := regexp_substr(a_path, '\.(.+)', subexpression => 1);
       l_suite       ut_logical_suite;
       l_item        ut_suite_item;
       l_items       ut_suite_items := ut_suite_items();
-      l_item_name   varchar2(32767);
-
     begin
       if a_path is not null and a_suite is not null and a_suite is of (ut_logical_suite) then
         l_suite := treat(a_suite as ut_logical_suite);
@@ -440,9 +437,7 @@ create or replace package body ut_suite_manager is
 
           l_item := l_suite.items(i);
 
-          l_item_name := l_item.name;
-          --l_item_name := regexp_substr(l_item_name,'[A-Za-z0-9$#_]+$'); -- temporary fix. seems like suite have suitepath in object_name
-          if upper(l_item_name) = c_root then
+          if upper(l_item.name) = c_root then
 
             skip_by_path(l_item, c_rest_path);
             l_items.extend;
diff --git a/test/ut_suite_manager/test_suite_manager.pks b/test/ut_suite_manager/test_suite_manager.pks
@@ -133,7 +133,7 @@ create or replace package test_suite_manager is
   --%disabled
   --procedure IncludesPackagesWithSutePath;
   
-  --%test
+  --%test(only the defined in suitepath suite/test is executed if multiple similarly named test suites exist in the context differed only by comment)
   --%beforetest(setup_pck_with_same_path)
   --%aftertest(clean_pck_with_same_path)  
   procedure test_pck_with_same_path;
