fixed wrapped package annotation scan

Pazus · Pazus · commit 0280b613fdaf · 2017-05-01T21:08:13.000+03:00
diff --git a/source/core/ut_annotations.pkb b/source/core/ut_annotations.pkb
@@ -337,12 +337,19 @@ create or replace package body ut_annotations as
 
   function get_package_annotations(a_owner_name varchar2, a_name varchar2) return typ_annotated_package is
     l_source clob;
+    ex_package_is_wrapped exception;
+    pragma exception_init(ex_package_is_wrapped, -24241);
   begin
 
     -- TODO: Add cache of annotations. Cache invalidation should be based on DDL timestamp.
     -- Cache garbage collection should be executed once in a while to remove annotations cache for packages that were dropped.
-
-    l_source := ut_metadata.get_package_spec_source(a_owner_name, a_name);
+    
+    begin
+      l_source := ut_metadata.get_package_spec_source(a_owner_name, a_name);
+    exception
+      when ex_package_is_wrapped then
+        null;
+    end;
 
     if l_source is null or sys.dbms_lob.getlength(l_source)=0 then
       return null;
diff --git a/tests/RunAll.sql b/tests/RunAll.sql
@@ -40,6 +40,7 @@ exec ut_coverage.coverage_start_develop();
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParsePackageLevelAnnotationMultilineDeclare.sql
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParsePackageLevelAnnotationWithKeyValue.sql
 @@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.ParsePackageLevelAnnotationWithMultilineComment.sql
+@@lib/RunTest.sql ut_annotations/ut_annotations.parse_package_annotations.GetAnnotationsFromWrappedPackage.sql
 
 @@ut_expectations/ut.expect.to_be_between.GivesFailureForDifferentValues.sql
 @@ut_expectations/ut.expect.to_be_between.GivesFailureWhenActualIsNull.sql
diff --git a/tests/ut_annotations/ut_annotations.parse_package_annotations.GetAnnotationsFromWrappedPackage b/tests/ut_annotations/ut_annotations.parse_package_annotations.GetAnnotationsFromWrappedPackage
@@ -0,0 +1,36 @@
+CREATE or replace PACKAGE tst_wrapped_pck wrapped 
+a000000
+369
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+abcd
+9
+a9 c6
+BFZG852xhrH+ZghWHu3GpsAjsYwwgwFtmJ7hfy/pO3MYPpTk1jvUXeLLSBs48Y66RPOZmSwO
+tdAK4wIZubhyoYqfNPukcsRhJHrcsdmQU6c7MJt96TjbQty7bG3LvKuFVGWjizd5GkTmJ7dk
+Ktg41QYvCqco0ZidUx+EE+yoSt2ucz1rQYcomGbMx3gS4Xj7Vm8=
+/
+
+declare
+  l_pck_annotation ut_annotations.typ_annotated_package;
+begin
+  l_pck_annotation := ut_annotations.get_package_annotations(user, 'TST_WRAPPED_PCK');
+  if l_pck_annotation.procedure_annotations.count = 0 and l_pck_annotation.package_annotations.count = 0 then
+    :test_result := ut_utils.tr_success;
+  end if;
+end;
+/
+
+drop package tst_wrapped_pck;
