take into account utassert and utassert2 packages from migration project

Pazus · Pazus · commit 01b59b4c2662 · 2017-07-03T22:01:38.000+03:00
diff --git a/source/core/ut_expectation_processor.pkb b/source/core/ut_expectation_processor.pkb
@@ -129,9 +129,10 @@ create or replace package body ut_expectation_processor as
     l_object_name                varchar2(1000);   
     -- in 12.2 format_call_stack reportes not only package name, but also the procedure name
     -- when 11g and 12c reports only package name
-    c_expectation_search_pattern constant varchar2(500) := '(.*\.UT_EXPECTATION_RESULT\s+)(.*\.UT_EXPECTATION[A-Z0-9#_$]*(\.[A-Za-z0-9$#_]+)?.*\s+)+(.*\.UT(\.FAIL)?\s+)?(.*)\s';
+    c_expectation_search_pattern constant varchar2(500) := 
+    '(.*\.UT_EXPECTATION_RESULT\s+)(.*\.UT_EXPECTATION[A-Z0-9#_$]*(\.[A-Za-z0-9$#_]+)?.*?)+(.*\.UT(\.FAIL)?\s+)?(.*\.UTASSERT2?(\.[A-Za-z0-9$#_]+)?.*?$\s+)*(.*?$)';
   begin
-    l_caller_stack_line    := regexp_substr( c_call_stack, c_expectation_search_pattern, 1, 1, 'm', 6);
+    l_caller_stack_line    := regexp_substr( c_call_stack, c_expectation_search_pattern, 1, 1, 'mn', 8);
     l_line_no              := to_number( regexp_substr(l_caller_stack_line,'^\dx[0-9a-f]+\s+(\d+)',subexpression => 1) );
     l_caller_type_and_name    := substr( l_caller_stack_line, 23 );
     if l_caller_stack_line like '%.%' then
