Implemented the not_to expectation.

jgebal · jgebal · commit 40d561668664 · 2016-10-17T00:28:25.000+01:00
diff --git a/examples/demo_expectations.pck b/examples/demo_expectations.pck
@@ -41,6 +41,12 @@ create or replace package demo_expectations is
   -- %test(demo of success for to_be_like expectation)
   procedure demo_to_be_like_success;
 
+  -- %test(demo of failure for not_to expectations)
+  procedure demo_not_to_failure;
+
+  -- %test(demo of success for not_to expectations)
+  procedure demo_not_to_success;
+
 end;
 /
 
@@ -469,5 +475,32 @@ create or replace package body demo_expectations is
     ut.expect( l_clob ).to_( be_like('a%a_TE%\_', '\') ); --escape wildcards with '\'
   end;
 
+  procedure demo_not_to_failure is
+  begin
+    ut.expect( 'Hi, I am Stephen' ).not_to( be_like('%Stephen') );
+    ut.expect( 'stephen' ).not_to( match('^Stephen$', 'i') ); --case insensitive
+    ut.expect( sysdate ).not_to( be_not_null() );
+    ut.expect( to_char(null) ).not_to( be_null() );
+    ut.expect( false ).not_to( be_false );
+    ut.expect( true ).not_to( be_true );
+    ut.expect( 123 ).not_to( be_false );
+    ut.expect( sysdate ).not_to( be_true );
+    ut.expect( 1 ).not_to( equal( 1 ) );
+    ut.expect( 1 ).not_to( equal( '1' ) );
+    ut.expect( to_char(null) ).not_to( equal( to_char(null) ) );
+  end;
+
+  procedure demo_not_to_success is
+  begin
+    ut.expect( sysdate ).not_to( be_null() );
+    ut.expect( to_char(null) ).not_to( be_not_null() );
+    ut.expect( true ).not_to( be_false );
+    ut.expect( false ).not_to( be_true );
+    ut.expect( cast(null as boolean) ).not_to( be_false );
+    ut.expect( cast(null as boolean) ).not_to( be_true );
+    ut.expect( 1 ).not_to( equal( 2 ) );
+    ut.expect( to_char(null) ).not_to( equal( to_char(null), a_nulls_are_equal=> false ) );
+  end;
+
 end;
 /
diff --git a/source/assertions/ut_assertion.tpb b/source/assertions/ut_assertion.tpb
@@ -78,7 +78,7 @@ create or replace type body ut_assertion as
     self.to_( equal(a_expected) );
   end;
 
-  member procedure to_(self in ut_assertion, a_expectation ut_expectation) is
+  final member procedure to_(self in ut_assertion, a_expectation ut_expectation) is
     l_assert_result boolean;
     l_assert_name   varchar2(4000);
     l_expectation   ut_expectation := a_expectation;
@@ -94,6 +94,22 @@ create or replace type body ut_assertion as
     end if;
   end;
 
+  final member procedure not_to(self in ut_assertion, a_expectation ut_expectation) is
+    l_assert_result boolean;
+    l_assert_name   varchar2(4000);
+    l_expectation   ut_expectation := a_expectation;
+  begin
+    ut_utils.debug_log('ut_assertion.not_to(self in ut_assertion, a_expectation ut_expectation)');
+
+    l_assert_result := not l_expectation.run_expectation( self.actual_data );
+    l_assert_name   := 'not to '||l_expectation.name;
+    if l_expectation.expected is not null then
+      add_assert_result( l_assert_result, l_assert_name, l_expectation.additional_info, l_expectation.expected.to_string(), l_expectation.expected.type);
+    else
+      add_assert_result( l_assert_result, l_assert_name, l_expectation.additional_info );
+    end if;
+  end;
+
   final member procedure to_be_null(self in ut_assertion) 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
@@ -15,7 +15,8 @@ create or replace type ut_assertion as object
   member procedure to_equal(self in ut_assertion, a_expected timestamp_ltz_unconstrained, a_nulls_are_equal boolean := null),
   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_(self in ut_assertion, a_expectation ut_expectation),
+  final member procedure not_to(self in ut_assertion, a_expectation ut_expectation),
   final member procedure to_be_null(self in ut_assertion),
   final member procedure to_be_not_null(self in ut_assertion)
 )
