Added shortcuts to all the matchers

Pazus · Pazus · commit 864431669375 · 2017-05-01T22:03:30.000+03:00
diff --git a/source/expectations/ut_expectation_date.tpb b/source/expectations/ut_expectation_date.tpb
@@ -26,6 +26,31 @@ create or replace type body ut_expectation_date as
     ut_utils.debug_log('ut_expectation_date.to_be_between(self in ut_expectation_date, a_lower_bound date, a_upper_bound date)');
     self.to_( ut_be_between(a_lower_bound,a_upper_bound) );
   end;
+  
+  member procedure to_be_greater_or_equal(self in ut_expectation_date, a_expected date) is 
+
+  begin 
+    ut_utils.debug_log('ut_expectation_date.to_be_greater_or_equal(self in ut_expectation_date, a_expected date)');
+    self.to_( ut_be_greater_or_equal (a_expected) );
+  end;
+
+  member procedure to_be_greater_than(self in ut_expectation_date, a_expected date) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_date.to_be_greater_than(self in ut_expectation_date, a_expected date)');
+    self.to_( ut_be_greater_than (a_expected) );
+  end;
+  
+  member procedure to_be_less_or_equal(self in ut_expectation_date, a_expected date) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_date.to_be_less_or_equal(self in ut_expectation_date, a_expected date)');
+    self.to_( ut_be_less_or_equal (a_expected) );
+  end;
+  
+  member procedure to_be_less_than(self in ut_expectation_date, a_expected date) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_date.to_be_less_than(self in ut_expectation_date, a_expected date');
+    self.to_( ut_be_less_than (a_expected) );
+  end;
 
 end;
 /
diff --git a/source/expectations/ut_expectation_date.tps b/source/expectations/ut_expectation_date.tps
@@ -16,6 +16,10 @@ create or replace type ut_expectation_date under ut_expectation(
   limitations under the License.
   */
   overriding member procedure to_equal(self in ut_expectation_date, a_expected date, a_nulls_are_equal boolean := null),
-  member procedure to_be_between(self in ut_expectation_date, a_lower_bound date, a_upper_bound date)
+  member procedure to_be_between(self in ut_expectation_date, a_lower_bound date, a_upper_bound date),
+  member procedure to_be_greater_or_equal(self in ut_expectation_date, a_expected date),
+  member procedure to_be_greater_than(self in ut_expectation_date, a_expected date),
+  member procedure to_be_less_or_equal(self in ut_expectation_date, a_expected date),
+  member procedure to_be_less_than(self in ut_expectation_date, a_expected date)
 )
 /
diff --git a/source/expectations/ut_expectation_dsinterval.tpb b/source/expectations/ut_expectation_dsinterval.tpb
@@ -26,6 +26,27 @@ create or replace type body ut_expectation_dsinterval as
     ut_utils.debug_log('ut_expectation_dsinterval.to_be_between(self in ut_expectation_dsinterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained)');
     self.to_( ut_be_between(a_lower_bound,a_upper_bound) );
   end;
+  
+  member procedure to_be_greater_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_dsinterval.to_be_greater_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');
+    self.to_( ut_be_greater_or_equal (a_expected) );
+  end;
+  member procedure to_be_greater_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_dsinterval.to_be_greater_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');
+    self.to_( ut_be_greater_than (a_expected) );
+  end;
+  member procedure to_be_less_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_dsinterval.to_be_less_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');
+    self.to_( ut_be_less_or_equal (a_expected) );
+  end;
+  member procedure to_be_less_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_dsinterval.to_be_less_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)');
+    self.to_( ut_be_less_than (a_expected) );
+  end;
 
 end;
 /
diff --git a/source/expectations/ut_expectation_dsinterval.tps b/source/expectations/ut_expectation_dsinterval.tps
@@ -16,6 +16,10 @@ create or replace type ut_expectation_dsinterval under ut_expectation(
   limitations under the License.
   */
   overriding member procedure to_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained, a_nulls_are_equal boolean := null),
-  member procedure to_be_between(self in ut_expectation_dsinterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained)
+  member procedure to_be_between(self in ut_expectation_dsinterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained),
+  member procedure to_be_greater_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained),
+  member procedure to_be_greater_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained),
+  member procedure to_be_less_or_equal(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained),
+  member procedure to_be_less_than(self in ut_expectation_dsinterval, a_expected dsinterval_unconstrained)
 )
 /
diff --git a/source/expectations/ut_expectation_number.tpb b/source/expectations/ut_expectation_number.tpb
@@ -26,6 +26,30 @@ create or replace type body ut_expectation_number as
     ut_utils.debug_log('ut_expectation_number.to_be_between(self in ut_expectation_date, a_lower_bound number, a_upper_bound number)');
     self.to_( ut_be_between(a_lower_bound,a_upper_bound) );
   end;
+  
+  member procedure to_be_greater_or_equal(self in ut_expectation_number, a_expected number) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_number.to_be_greater_or_equal(self in ut_expectation_number, a_expected number)');
+    self.to_( ut_be_greater_or_equal (a_expected) );
+  end;
+  
+  member procedure to_be_greater_than(self in ut_expectation_number, a_expected number) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_number.to_be_greater_than(self in ut_expectation_number, a_expected number)');
+    self.to_( ut_be_greater_than (a_expected) );
+  end;
+  
+  member procedure to_be_less_or_equal(self in ut_expectation_number, a_expected number) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_number.to_be_less_or_equal(self in ut_expectation_number, a_expected number)');
+    self.to_( ut_be_less_or_equal (a_expected) );
+  end;
+  
+  member procedure to_be_less_than(self in ut_expectation_number, a_expected number) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_number.to_be_less_than(self in ut_expectation_number, a_expected number');
+    self.to_( ut_be_less_than (a_expected) );
+  end;
 
 end;
 /
diff --git a/source/expectations/ut_expectation_number.tps b/source/expectations/ut_expectation_number.tps
@@ -16,6 +16,10 @@ create or replace type ut_expectation_number under ut_expectation(
   limitations under the License.
   */
   overriding member procedure to_equal(self in ut_expectation_number, a_expected number, a_nulls_are_equal boolean := null),
-  member procedure to_be_between(self in ut_expectation_number, a_lower_bound number, a_upper_bound number)
+  member procedure to_be_between(self in ut_expectation_number, a_lower_bound number, a_upper_bound number),
+  member procedure to_be_greater_or_equal(self in ut_expectation_number, a_expected number),
+  member procedure to_be_greater_than(self in ut_expectation_number, a_expected number),  
+  member procedure to_be_less_or_equal(self in ut_expectation_number, a_expected number),
+  member procedure to_be_less_than(self in ut_expectation_number, a_expected number)
 )
 /
diff --git a/source/expectations/ut_expectation_timestamp.tpb b/source/expectations/ut_expectation_timestamp.tpb
@@ -26,6 +26,30 @@ create or replace type body ut_expectation_timestamp as
     ut_utils.debug_log('ut_expectation_timestamp.to_be_between(self in ut_expectation_timestamp, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained)');
     self.to_( ut_be_between(a_lower_bound, a_upper_bound) );
   end;
+  
+  member procedure to_be_greater_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp.to_be_greater_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');
+    self.to_( ut_be_greater_or_equal (a_expected) );
+  end;
+  
+  member procedure to_be_greater_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp.to_be_greater_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');
+    self.to_( ut_be_greater_than (a_expected) );
+  end;  
+  
+  member procedure to_be_less_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp.to_be_less_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');
+    self.to_( ut_be_less_or_equal (a_expected) );
+  end;
+  
+  member procedure to_be_less_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp.to_be_less_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)');
+    self.to_( ut_be_less_than (a_expected) );
+  end;
 
 end;
 /
diff --git a/source/expectations/ut_expectation_timestamp.tps b/source/expectations/ut_expectation_timestamp.tps
@@ -16,6 +16,10 @@ create or replace type ut_expectation_timestamp under ut_expectation(
   limitations under the License.
   */
   overriding member procedure to_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained, a_nulls_are_equal boolean := null),
-  member procedure to_be_between(self in ut_expectation_timestamp, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained)
+  member procedure to_be_between(self in ut_expectation_timestamp, a_lower_bound timestamp_unconstrained, a_upper_bound timestamp_unconstrained),
+  member procedure to_be_greater_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained),
+  member procedure to_be_greater_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained),
+  member procedure to_be_less_or_equal(self in ut_expectation_timestamp, a_expected timestamp_unconstrained),
+  member procedure to_be_less_than(self in ut_expectation_timestamp, a_expected timestamp_unconstrained)
 )
 /
diff --git a/source/expectations/ut_expectation_timestamp_ltz.tpb b/source/expectations/ut_expectation_timestamp_ltz.tpb
@@ -26,6 +26,27 @@ create or replace type body ut_expectation_timestamp_ltz as
     ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_between(self in ut_expectation_timestamp_ltz, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained)');
     self.to_( ut_be_between(a_lower_bound, a_upper_bound) );
   end;
+  
+  member procedure to_be_greater_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_greater_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');
+    self.to_( ut_be_greater_or_equal (a_expected) );
+  end;
+  member procedure to_be_greater_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_greater_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');
+    self.to_( ut_be_greater_than (a_expected) );
+  end;
+  member procedure to_be_less_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_less_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');
+    self.to_( ut_be_less_or_equal (a_expected) );
+  end;
+  member procedure to_be_less_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp_ltz.to_be_less_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)');
+    self.to_( ut_be_less_than (a_expected) );
+  end;
 
 end;
 /
diff --git a/source/expectations/ut_expectation_timestamp_ltz.tps b/source/expectations/ut_expectation_timestamp_ltz.tps
@@ -16,6 +16,10 @@ create or replace type ut_expectation_timestamp_ltz under ut_expectation(
   limitations under the License.
   */
   overriding member procedure to_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null),
-  member procedure to_be_between(self in ut_expectation_timestamp_ltz, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained)
+  member procedure to_be_between(self in ut_expectation_timestamp_ltz, a_lower_bound timestamp_ltz_unconstrained, a_upper_bound timestamp_ltz_unconstrained),
+  member procedure to_be_greater_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained),
+  member procedure to_be_greater_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained),
+  member procedure to_be_less_or_equal(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained),
+  member procedure to_be_less_than(self in ut_expectation_timestamp_ltz, a_expected timestamp_ltz_unconstrained)
 )
 /
diff --git a/source/expectations/ut_expectation_timestamp_tz.tpb b/source/expectations/ut_expectation_timestamp_tz.tpb
@@ -26,6 +26,27 @@ create or replace type body ut_expectation_timestamp_tz as
     ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_between(self in ut_expectation_timestamp_tz, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained)');
     self.to_( ut_be_between(a_lower_bound, a_upper_bound) );
   end;
+  
+  member procedure to_be_greater_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_greater_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');
+    self.to_( ut_be_greater_or_equal (a_expected) );
+  end;
+  member procedure to_be_greater_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_greater_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');
+    self.to_( ut_be_greater_than (a_expected) );
+  end;
+  member procedure to_be_less_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_less_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');
+    self.to_( ut_be_less_or_equal (a_expected) );
+  end;
+  member procedure to_be_less_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_timestamp_tz.to_be_less_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)');
+    self.to_( ut_be_less_than (a_expected) );
+  end;  
 
 end;
 /
diff --git a/source/expectations/ut_expectation_timestamp_tz.tps b/source/expectations/ut_expectation_timestamp_tz.tps
@@ -16,6 +16,10 @@ create or replace type ut_expectation_timestamp_tz under ut_expectation(
   limitations under the License.
   */
   overriding member procedure to_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null),
-  member procedure to_be_between(self in ut_expectation_timestamp_tz, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained)
+  member procedure to_be_between(self in ut_expectation_timestamp_tz, a_lower_bound timestamp_tz_unconstrained, a_upper_bound timestamp_tz_unconstrained),
+  member procedure to_be_greater_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained),  
+  member procedure to_be_greater_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained),
+  member procedure to_be_less_or_equal(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained),
+  member procedure to_be_less_than(self in ut_expectation_timestamp_tz, a_expected timestamp_tz_unconstrained)
 )
 /
diff --git a/source/expectations/ut_expectation_yminterval.tpb b/source/expectations/ut_expectation_yminterval.tpb
@@ -26,6 +26,27 @@ create or replace type body ut_expectation_yminterval as
     ut_utils.debug_log('ut_expectation_yminterval.to_be_between(self in ut_expectation_yminterval, a_lower_bound dsinterval_unconstrained, a_upper_bound dsinterval_unconstrained)');
     self.to_( ut_be_between(a_lower_bound,a_upper_bound) );
   end;
+  
+  member procedure to_be_greater_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_yminterval.to_be_greater_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');
+    self.to_( ut_be_greater_or_equal (a_expected) );
+  end;
+  member procedure to_be_greater_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_yminterval.to_be_greater_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');
+    self.to_( ut_be_greater_than (a_expected) );
+  end;
+  member procedure to_be_less_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_yminterval.to_be_less_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');
+    self.to_( ut_be_less_or_equal (a_expected) );
+  end;
+  member procedure to_be_less_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained) is 
+  begin 
+    ut_utils.debug_log('ut_expectation_yminterval.to_be_less_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)');
+    self.to_( ut_be_less_than (a_expected) );
+  end;
 
 end;
 /
diff --git a/source/expectations/ut_expectation_yminterval.tps b/source/expectations/ut_expectation_yminterval.tps
@@ -16,6 +16,10 @@ create or replace type ut_expectation_yminterval under ut_expectation(
   limitations under the License.
   */
   overriding member procedure to_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained, a_nulls_are_equal boolean := null),
-  member procedure to_be_between(self in ut_expectation_yminterval, a_lower_bound yminterval_unconstrained, a_upper_bound yminterval_unconstrained)  
+  member procedure to_be_between(self in ut_expectation_yminterval, a_lower_bound yminterval_unconstrained, a_upper_bound yminterval_unconstrained),
+  member procedure to_be_greater_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained),
+  member procedure to_be_greater_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained),  
+  member procedure to_be_less_or_equal(self in ut_expectation_yminterval, a_expected yminterval_unconstrained),
+  member procedure to_be_less_than(self in ut_expectation_yminterval, a_expected yminterval_unconstrained)
 )
 /

Original file line number	Diff line number	Diff line change
`@@ -16,6 +16,10 @@ create or replace type ut_expectation_date under ut_expectation(`
`16`	`16`	`limitations under the License.`
`17`	`17`	`*/`
`18`	`18`	`overriding member procedure to_equal(self in ut_expectation_date, a_expected date, a_nulls_are_equal boolean := null),`
`19`		`- member procedure to_be_between(self in ut_expectation_date, a_lower_bound date, a_upper_bound date)`
	`19`	`+ member procedure to_be_between(self in ut_expectation_date, a_lower_bound date, a_upper_bound date),`
	`20`	`+ member procedure to_be_greater_or_equal(self in ut_expectation_date, a_expected date),`
	`21`	`+ member procedure to_be_greater_than(self in ut_expectation_date, a_expected date),`
	`22`	`+ member procedure to_be_less_or_equal(self in ut_expectation_date, a_expected date),`
	`23`	`+ member procedure to_be_less_than(self in ut_expectation_date, a_expected date)`
`20`	`24`	`)`
`21`	`25`	`/`