implemented detailed warning

Pazus · Pazus · commit 6f4e7604131a · 2017-06-27T21:16:12.000+03:00
diff --git a/source/core/types/ut_suite_item.tpb b/source/core/types/ut_suite_item.tpb
@@ -2,34 +2,31 @@ create or replace type body ut_suite_item as
   /*
   utPLSQL - Version X.X.X.X
   Copyright 2016 - 2017 utPLSQL Project
-
+  
   Licensed under the Apache License, Version 2.0 (the "License"):
   you may not use this file except in compliance with the License.
   You may obtain a copy of the License at
-
+  
       http://www.apache.org/licenses/LICENSE-2.0
-
+  
   Unless required by applicable law or agreed to in writing, software
   distributed under the License is distributed on an "AS IS" BASIS,
   WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
   See the License for the specific language governing permissions and
   limitations under the License.
   */
 
-  member procedure init(
-    self in out nocopy ut_suite_item, a_object_owner varchar2, a_object_name varchar2, a_name varchar2,
-    a_description varchar2, a_path varchar2, a_rollback_type integer, a_disabled_flag boolean
-  ) is
+  member procedure init(self in out nocopy ut_suite_item, a_object_owner varchar2, a_object_name varchar2, a_name varchar2, a_description varchar2, a_path varchar2, a_rollback_type integer, a_disabled_flag boolean) is
   begin
-    self.object_owner := a_object_owner;
-    self.object_name := lower(trim(a_object_name));
-    self.name := lower(trim(a_name));
-    self.description := a_description;
-    self.path := nvl(lower(trim(a_path)), self.object_name);
+    self.object_owner  := a_object_owner;
+    self.object_name   := lower(trim(a_object_name));
+    self.name          := lower(trim(a_name));
+    self.description   := a_description;
+    self.path          := nvl(lower(trim(a_path)), self.object_name);
     self.rollback_type := a_rollback_type;
     self.disabled_flag := ut_utils.boolean_to_int(a_disabled_flag);
     self.results_count := ut_results_counter();
-    self.warnings := ut_varchar2_list();
+    self.warnings      := ut_varchar2_list();
   end;
 
   member procedure set_disabled_flag(self in out nocopy ut_suite_item, a_disabled_flag boolean) is
@@ -67,7 +64,11 @@ create or replace type body ut_suite_item as
     end if;
   exception
     when ex_savepoint_not_exists then
-      put_warning('Savepoint not established. Implicit commit might have occured.');
+      put_warning('Unable to perform automatic rollback after ' || case self_type when 'UT_TEST' then 'test' when
+                  'UT_LOGICAL_SUITE' then 'test suite' when 'UT_SUITE' then 'test suite'
+                  end || ': ' || self.path || '
+An implicit or explicit commit/rollback occurred.
+Use the %rollback(manual) annotation or remove commits/rollback/ddl statements that are causing the issue.');
   end;
 
   member function execution_time return number is
diff --git a/tests/ut_test/ut_test.ReportWarningOnRollbackFailed.sql b/tests/ut_test/ut_test.ReportWarningOnRollbackFailed.sql
@@ -34,7 +34,9 @@ begin
     dbms_lob.append(l_output,l_output_data(i));
   end loop;
   
-  if l_output like '%Warnings:%Savepoint not established. Implicit commit might have occured.%0 disabled, 1 warning(s)%' then
+  if l_output like '%Warnings:%Unable to perform automatic rollback after test suite: UT_OUTPUT_TEST_ROLLBACK%
+An implicit or explicit commit/rollback occurred.%
+Use the %rollback(manual) annotation or remove commits/rollback/ddl statements that are causing the issue.%0 disabled, 1 warning(s)%' then
     :test_result := ut_utils.tr_success;
   end if;
 
