Made default empty implementation for ut_suite_reporter methods so it will be easier to add new in the future without invalidating all it's subtypes that doesn't have required implementations of the new methods

Pavel Kaplya · Pavel Kaplya · commit b38a08a3f9e2 · 2016-08-17T14:12:10.000+03:00
diff --git a/source/install.sql b/source/install.sql
@@ -17,6 +17,7 @@
 
 @@ut_utils.pkb
 @@types/ut_assert_result.tpb
+@@types/ut_suite_reporter.tpb
 @@types/ut_object.tpb
 @@types/ut_composite_object.tpb
 @@types/ut_test.tpb
diff --git a/source/types/ut_suite_reporter.tpb b/source/types/ut_suite_reporter.tpb
@@ -0,0 +1,30 @@
+create or replace type body ut_suite_reporter is
+
+  -- Member procedures and functions
+  member procedure begin_suite(self in out nocopy ut_suite_reporter, a_suite in ut_object) is
+  begin
+    null;
+  end begin_suite;
+
+  member procedure begin_test(self in out nocopy ut_suite_reporter, a_test in ut_object) is
+  begin
+    null;
+  end begin_test;
+
+  member procedure on_assert(self in out nocopy ut_suite_reporter, a_assert in ut_object) is
+  begin
+    null;
+  end on_assert;
+
+  member procedure end_test(self in out nocopy ut_suite_reporter, a_test in ut_object) is
+  begin
+    null;
+  end end_test;
+
+  member procedure end_suite(self in out nocopy ut_suite_reporter, a_suite in ut_object) is
+  begin
+    null;
+  end end_suite;
+
+end;
+/
diff --git a/source/types/ut_suite_reporter.tps b/source/types/ut_suite_reporter.tps
@@ -2,11 +2,11 @@ create or replace type ut_suite_reporter force as object
 (
   name varchar2(250 char),
 
-  not instantiable member procedure begin_suite(self in out nocopy ut_suite_reporter, a_suite in ut_object),
-  not instantiable member procedure begin_test(self in out nocopy ut_suite_reporter, a_test in ut_object),
-	not instantiable member procedure on_assert(self in out nocopy ut_suite_reporter, a_assert in ut_object),
-  not instantiable member procedure end_test(self in out nocopy ut_suite_reporter, a_test in ut_object),
-  not instantiable member procedure end_suite(self in out nocopy ut_suite_reporter, a_suite in ut_object)
+  member procedure begin_suite(self in out nocopy ut_suite_reporter, a_suite in ut_object),
+  member procedure begin_test(self in out nocopy ut_suite_reporter, a_test in ut_object),
+	member procedure on_assert(self in out nocopy ut_suite_reporter, a_assert in ut_object),
+  member procedure end_test(self in out nocopy ut_suite_reporter, a_test in ut_object),
+  member procedure end_suite(self in out nocopy ut_suite_reporter, a_suite in ut_object)
 
 )
 not instantiable not final
