fix validation for test packages defined by another user because PACKAGE_BODY state is hidden in all_objects view

Pazus · Pazus · commit 2416c38e6e90 · 2016-08-01T22:28:13.000+03:00
diff --git a/source/ut_metadata.pkb b/source/ut_metadata.pkb
@@ -36,7 +36,7 @@ create or replace package body ut_metadata as
   end form_name;
 
   function package_valid(a_owner_name varchar2, a_package_name in varchar2) return boolean as
-    v_cnt         number;
+    v_prc         number;
     name          varchar2(200);
     schema        varchar2(200);
     part1         varchar2(200);
@@ -51,16 +51,15 @@ create or replace package body ut_metadata as
   
     do_resolve(schema, part1, part2);
   
-    select count(*)
-      into v_cnt
+    select count(decode(status, 'VALID', 1, null)) / count(*)
+      into v_prc
       from all_objects
      where owner = schema
        and object_name = part1
-       and object_type in ('PACKAGE', 'PACKAGE BODY')
-       and status = 'VALID';
+       and object_type in ('PACKAGE', 'PACKAGE BODY');
   
     -- expect both package and body to be valid
-    return v_cnt = 2;
+    return v_prc = 1;
   exception
     when others then
       return false;
