comment to describe why to_equal methods are defined in the parent class

Pazus · Pazus · commit 2edae6c680ee · 2016-11-13T16:15:54.000+03:00
diff --git a/source/expectations/ut_expectation.tps b/source/expectations/ut_expectation.tps
@@ -4,6 +4,12 @@ create or replace type ut_expectation as object
   message             varchar2(4000 char),
   final member procedure add_assert_result( self in ut_expectation, a_assert_result boolean, a_assert_name varchar2,
     a_assert_info varchar2, a_error_message varchar2, a_expected_value_string in varchar2 := null, a_expected_data_type varchar2 := null),
+  final member procedure to_(self in ut_expectation, a_matcher ut_matcher),
+  final member procedure not_to(self in ut_expectation, a_matcher ut_matcher),
+  final member procedure to_be_null(self in ut_expectation),
+  final member procedure to_be_not_null(self in ut_expectation),
+  
+  -- this is done to provide strong type comparison. other comporators should be implemented in the type-specific classes
   member procedure to_equal(self in ut_expectation, a_expected anydata, a_nulls_are_equal boolean := null),
   member procedure to_equal(self in ut_expectation, a_expected blob, a_nulls_are_equal boolean := null),
   member procedure to_equal(self in ut_expectation, a_expected boolean, a_nulls_are_equal boolean := null),
@@ -14,11 +20,7 @@ create or replace type ut_expectation as object
   member procedure to_equal(self in ut_expectation, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null),
   member procedure to_equal(self in ut_expectation, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null),
   member procedure to_equal(self in ut_expectation, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null),
-  member procedure to_equal(self in ut_expectation, a_expected varchar2, a_nulls_are_equal boolean := null),
-  final member procedure to_(self in ut_expectation, a_matcher ut_matcher),
-  final member procedure not_to(self in ut_expectation, a_matcher ut_matcher),
-  final member procedure to_be_null(self in ut_expectation),
-  final member procedure to_be_not_null(self in ut_expectation)
+  member procedure to_equal(self in ut_expectation, a_expected varchar2, a_nulls_are_equal boolean := null)
 )
 not final not instantiable
 /
