Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CLASS lcl_abstract_specification_tst DEFINITION.
- PROTECTED SECTION.
- DATA:
- mo_null_object TYPE REF TO object ##needed.
- METHODS:
- get_specification
- IMPORTING
- i_is_satisfied TYPE abap_bool
- RETURNING value(ro_specification) TYPE REF TO zif_specification,
- get_and_specification
- IMPORTING
- i_is_satisfied_x TYPE abap_bool
- i_is_satisfied_y TYPE abap_bool
- RETURNING value(ro_specification) TYPE REF TO zif_specification,
- get_or_specification
- IMPORTING
- i_is_satisfied_x TYPE abap_bool
- i_is_satisfied_y TYPE abap_bool
- RETURNING value(ro_specification) TYPE REF TO zif_specification,
- get_not_specification
- IMPORTING
- i_is_satisfied TYPE abap_bool
- RETURNING value(ro_specification) TYPE REF TO zif_specification.
- ENDCLASS.
- CLASS lcl_abstract_specification_tst IMPLEMENTATION.
- METHOD get_specification.
- CREATE OBJECT ro_specification
- TYPE zcl_test_specification
- EXPORTING
- i_is_satisfied = i_is_satisfied.
- ENDMETHOD.
- METHOD get_and_specification.
- ro_specification =
- me->get_specification(
- i_is_satisfied_x
- )->and(
- me->get_specification( i_is_satisfied_y )
- ).
- ENDMETHOD.
- METHOD get_or_specification.
- ro_specification =
- me->get_specification(
- i_is_satisfied_x
- )->or(
- me->get_specification( i_is_satisfied_y )
- ).
- ENDMETHOD.
- METHOD get_not_specification.
- ro_specification =
- me->get_specification(
- i_is_satisfied
- )->not( ).
- ENDMETHOD.
- ENDCLASS.
- CLASS ltcl_test_specification DEFINITION
- INHERITING FROM lcl_abstract_specification_tst
- FOR TESTING
- DURATION SHORT
- RISK LEVEL HARMLESS
- FINAL.
- PRIVATE SECTION.
- METHODS:
- is_satisfied_yes FOR TESTING,
- is_satisfied_no FOR TESTING.
- ENDCLASS.
- CLASS ltcl_test_specification IMPLEMENTATION.
- METHOD is_satisfied_yes.
- cl_abap_unit_assert=>assert_equals(
- exp = abap_true
- act = me->get_specification( abap_true )->is_satisfied_by( me->mo_null_object )
- ).
- ENDMETHOD.
- METHOD is_satisfied_no.
- cl_abap_unit_assert=>assert_equals(
- exp = abap_false
- act = me->get_specification( abap_false )->is_satisfied_by( mo_null_object )
- ).
- ENDMETHOD.
- ENDCLASS.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement