- assert( )->true( )

- assert( )->false( )

Author: ThePlenkov

src/zcl_assert.clas.locals_imp.abap

@@ -41,9 +41,21 @@ CLASS lcl_assert_checks IMPLEMENTATION.
     cl_abap_unit_assert=>assert_not_initial( <actual> ).
   ENDMETHOD.
   METHOD zif_assert_checks~ne.
-  ASSERT actual IS BOUND.
+    ASSERT actual IS BOUND.
     ASSIGN actual->* TO FIELD-SYMBOL(<actual>).
     cl_abap_unit_assert=>assert_differs( act = <actual> exp = expected ).
   ENDMETHOD.
 
+  METHOD zif_assert_checks_int~false.
+    ASSERT actual IS BOUND.
+    ASSIGN actual->* TO FIELD-SYMBOL(<actual>).
+    cl_abap_unit_assert=>assert_false( <actual> ) .
+  ENDMETHOD.
+
+  METHOD zif_assert_checks_int~true.
+    ASSERT actual IS BOUND.
+    ASSIGN actual->* TO FIELD-SYMBOL(<actual>).
+    cl_abap_unit_assert=>assert_true( <actual> ) .
+  ENDMETHOD.
+
 ENDCLASS.

src/zcl_assert.clas.testclasses.abap

@@ -20,6 +20,8 @@ class ltcl_main implementation.
     assert( 1 )->ne( 2 ).
     assert( new ltcl_main( ) )->bound( ).
     assert( not_bound )->not_bound( ).
+    assert( abap_true )->true(  ).
+    assert( abap_false )->false(  ).
 
   endmethod.
 

src/zif_assert_checks.intf.abap

@@ -9,6 +9,10 @@ INTERFACE zif_assert_checks
     not_initial FOR zif_assert_checks_int~not_initial,
     equals FOR zif_assert_checks_int~equals,
     differs FOR zif_assert_checks_int~differs,
+    true for zif_assert_checks_int~true,
+    false for zif_assert_checks_int~false,
+
+    " extra aliases
     eq FOR zif_assert_checks_int~equals,
     ne FOR zif_assert_checks_int~differs.
 

src/zif_assert_checks_int.intf.abap

@@ -6,6 +6,8 @@ INTERFACE zif_assert_checks_int
     initial,
     not_initial,
     equals IMPORTING expected TYPE any,
-    differs IMPORTING expected TYPE any.
+    differs IMPORTING expected TYPE any,
+    true,
+    false.
 
 ENDINTERFACE.