Package body cache is now invalidated after every test run.

jgebal · jgebal · commit 3b2075e30415 · 2017-08-30T07:46:41.000+01:00
Fixed issues with self-testing.
Fixed issues with version compare for short version numbers.
diff --git a/source/core/ut_expectation_processor.pkb b/source/core/ut_expectation_processor.pkb
@@ -125,6 +125,7 @@ create or replace package body ut_expectation_processor as
     l_line_no                    integer;
     l_owner                      varchar2(1000);
     l_object_name                varchar2(1000);
+    l_object_full_name           varchar2(1000);
     l_result                     varchar2(4000);
     -- in 12.2 format_call_stack reportes not only package name, but also the procedure name
     -- when 11g and 12c reports only package name
@@ -135,9 +136,10 @@ create or replace package body ut_expectation_processor as
     if l_caller_stack_line like '%.%' then
       l_line_no     := to_number( regexp_substr(l_caller_stack_line,'(0x)?[0-9a-f]+\s+(\d+)',subexpression => 2) );
       l_owner       := regexp_substr(l_caller_stack_line,'([A-Za-z0-9$#_]+)\.([A-Za-z0-9$#_]|\.)+',subexpression => 1);
-      l_object_name := regexp_substr(l_caller_stack_line,'([A-Za-z0-9$#_]+)\.(([A-Za-z0-9$#_]|\.)+)',subexpression => 2);
+      l_object_name := regexp_substr(l_caller_stack_line,'([A-Za-z0-9$#_]+)\.([A-Za-z0-9$#_]+)',subexpression => 2);
+      l_object_full_name := regexp_substr(l_caller_stack_line,'([A-Za-z0-9$#_]+)\.(([A-Za-z0-9$#_]|\.)+)',subexpression => 2);
       if l_owner is not null and l_object_name is not null and l_line_no is not null then
-        l_result := 'at "' || l_owner || '.' || l_object_name || '", line '|| l_line_no || ' '
+        l_result := 'at "' || l_owner || '.' || l_object_full_name || '", line '|| l_line_no || ' '
                     || ut_metadata.get_source_definition_line(l_owner, l_object_name, l_line_no);
       end if;
     end if;
diff --git a/test/install_tests.sql b/test/install_tests.sql
@@ -27,6 +27,7 @@ whenever oserror exit failure rollback
 
 set linesize 200
 set define on
+set verify off
 column text format a100
 column error_count noprint new_value error_count
 
