Merge pull request #521 from utPLSQL/feature/suite_manager_improvements

jgebal · web-flow · commit e0e8eb64d189 · 2017-11-27T22:53:59.000Z
Refactoring of `ut_suite_manager`
diff --git a/source/core/ut_metadata.pkb b/source/core/ut_metadata.pkb
@@ -159,5 +159,19 @@ create or replace package body ut_metadata as
       return replace(l_result,'dba_','all_');
   end;
 
+  function package_exists_in_cur_schema(a_object_name varchar2) return boolean is
+    l_cnt            number;
+    c_current_schema constant all_tables.owner%type := sys_context('USERENV','CURRENT_SCHEMA');
+  begin
+    select count(*)
+      into l_cnt
+      from all_objects t
+     where t.object_name = a_object_name
+       and t.object_type = 'PACKAGE'
+       and t.owner = c_current_schema;
+    return l_cnt > 0;
+  end;
+
+
 end;
 /
diff --git a/source/core/ut_metadata.pks b/source/core/ut_metadata.pks
@@ -69,5 +69,11 @@ create or replace package ut_metadata authid current_user as
    */
   function get_dba_view(a_dba_view_name varchar2) return varchar2;
 
+  /**
+   * Returns true if given object is a package and it exists in current schema
+   * @param a_object_name the name of the object to be checked
+   */
+  function package_exists_in_cur_schema(a_object_name varchar2) return boolean;
+
 end ut_metadata;
 /
diff --git a/source/core/ut_suite_manager.pkb b/source/core/ut_suite_manager.pkb
