Moced to_be_True into boolean assertion type. It will fail to compile it data-type is different.

jgebal · jgebal · commit bae866e4527c · 2016-10-11T01:25:54.000+01:00
diff --git a/examples/demo_expectations.pck b/examples/demo_expectations.pck
@@ -93,7 +93,7 @@ create or replace package body demo_expectations is
     ut.expect( l_timestamp_ltz ).to_( equal( l_date ) );
     ut.expect( l_varchar2 ).to_( equal( l_clob ) );
 
-    ut.expect( l_varchar2 ).to_be_true;
+    --ut.expect( l_varchar2 ).to_be_true; -- this will not compile
     ut.expect( l_varchar2 ).to_( be_true );
 
   end;
diff --git a/source/assertions/ut_assertion.tpb b/source/assertions/ut_assertion.tpb
@@ -86,19 +86,6 @@ create or replace type body ut_assertion as
     ut_assert_processor.add_assert_result( l_assert_result );
   end;
 
-  final member procedure to_be_true(self in ut_assertion) is
-    l_result boolean;
-  begin
-    l_result :=
-    case when self.actual_data is of (ut_data_value_boolean)
-      then ut_utils.int_to_boolean(treat(self.actual_data as ut_data_value_boolean).value)
-      else false
-    end;
-    self.build_assert_result(
-      l_result
-      , 'to_be_true', ut_utils.to_string(true), 'boolean');
-  end;
-
   final member procedure to_be_null is
   begin
     ut_utils.debug_log('ut_assertion.to_be_null');
diff --git a/source/assertions/ut_assertion.tps b/source/assertions/ut_assertion.tps
@@ -14,7 +14,6 @@ create or replace type ut_assertion as object
   member procedure to_equal(self in ut_assertion, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null),
   member procedure to_equal(self in ut_assertion, a_expected varchar2, a_nulls_are_equal boolean := null),
   member procedure to_(self in ut_assertion, a_expectation ut_expectation),
-  final member procedure to_be_true(self in ut_assertion),
   final member procedure to_be_null,
   final member procedure to_be_not_null
 )
diff --git a/source/assertions/ut_assertion_boolean.tpb b/source/assertions/ut_assertion_boolean.tpb
@@ -6,5 +6,18 @@ create or replace type body ut_assertion_boolean as
     self.to_( equal(a_expected, a_nulls_are_equal) );
   end;
 
+  member procedure to_be_true(self in ut_assertion_boolean) is
+    l_result boolean;
+  begin
+    l_result :=
+    case when self.actual_data is of (ut_data_value_boolean)
+      then ut_utils.int_to_boolean(treat(self.actual_data as ut_data_value_boolean).value)
+      else false
+    end;
+    self.build_assert_result(
+      l_result
+      , 'to_be_true', ut_utils.to_string(true), 'boolean');
+  end;
+
 end;
 /
diff --git a/source/assertions/ut_assertion_boolean.tps b/source/assertions/ut_assertion_boolean.tps
@@ -1,5 +1,6 @@
 create or replace type ut_assertion_boolean under ut_assertion
 (
-  overriding member procedure to_equal(self in ut_assertion_boolean, a_expected boolean, a_nulls_are_equal boolean := null)
+  overriding member procedure to_equal(self in ut_assertion_boolean, a_expected boolean, a_nulls_are_equal boolean := null),
+  member procedure to_be_true(self in ut_assertion_boolean)
 )
 /

Original file line number	Diff line number	Diff line change
`@@ -14,7 +14,6 @@ create or replace type ut_assertion as object`
`14`	`14`	`member procedure to_equal(self in ut_assertion, a_expected timestamp_tz_unconstrained, a_nulls_are_equal boolean := null),`
`15`	`15`	`member procedure to_equal(self in ut_assertion, a_expected varchar2, a_nulls_are_equal boolean := null),`
`16`	`16`	`member procedure to_(self in ut_assertion, a_expectation ut_expectation),`
`17`		`- final member procedure to_be_true(self in ut_assertion),`
`18`	`17`	`final member procedure to_be_null,`
`19`	`18`	`final member procedure to_be_not_null`
`20`	`19`	`)`
Original file line number	Diff line number	Diff line change
`@@ -1,5 +1,6 @@`
`1`	`1`	`create or replace type ut_assertion_boolean under ut_assertion`
`2`	`2`	`(`
`3`		`- overriding member procedure to_equal(self in ut_assertion_boolean, a_expected boolean, a_nulls_are_equal boolean := null)`
	`3`	`+ overriding member procedure to_equal(self in ut_assertion_boolean, a_expected boolean, a_nulls_are_equal boolean := null),`
	`4`	`+ member procedure to_be_true(self in ut_assertion_boolean)`
`4`	`5`	`)`
`5`	`6`	`/`