64 lines
2.0 KiB
ABAP
64 lines
2.0 KiB
ABAP
CLASS {{p}}lift_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
|
|
PRIVATE SECTION.
|
|
METHODS message_001 FOR TESTING.
|
|
METHODS message_002 FOR TESTING.
|
|
METHODS message_003 FOR TESTING.
|
|
METHODS message_004 FOR TESTING.
|
|
METHODS message_005 FOR TESTING.
|
|
METHODS exception_text FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}lift_test IMPLEMENTATION.
|
|
METHOD message_001.
|
|
DATA lv_text TYPE string.
|
|
MESSAGE ID '{{P}}MSG_CRANE' TYPE 'E' NUMBER '001' WITH 'L-100' INTO lv_text.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'Lift plan L-100 has no crane'
|
|
act = lv_text ).
|
|
ENDMETHOD.
|
|
|
|
METHOD message_002.
|
|
DATA lv_text TYPE string.
|
|
MESSAGE ID '{{P}}MSG_CRANE' TYPE 'E' NUMBER '002' WITH 'L-100' 'K-7' INTO lv_text.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'Lift plan L-100 is too heavy for crane K-7'
|
|
act = lv_text ).
|
|
ENDMETHOD.
|
|
|
|
METHOD message_003.
|
|
DATA lv_text TYPE string.
|
|
MESSAGE ID '{{P}}MSG_CRANE' TYPE 'E' NUMBER '003' WITH 'L-100' INTO lv_text.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'Lift plan L-100 is blocked because of wind'
|
|
act = lv_text ).
|
|
ENDMETHOD.
|
|
|
|
METHOD message_004.
|
|
DATA lv_text TYPE string.
|
|
MESSAGE ID '{{P}}MSG_CRANE' TYPE 'W' NUMBER '004' WITH 'L-100' INTO lv_text.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'Lift plan L-100 is near the load limit'
|
|
act = lv_text ).
|
|
ENDMETHOD.
|
|
|
|
METHOD message_005.
|
|
DATA lv_text TYPE string.
|
|
MESSAGE ID '{{P}}MSG_CRANE' TYPE 'I' NUMBER '005' WITH 'L-100' INTO lv_text.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'Lift plan L-100 is approved'
|
|
act = lv_text ).
|
|
ENDMETHOD.
|
|
|
|
METHOD exception_text.
|
|
DATA(lo_error) = NEW {{p}}cx_crane_error( iv_msgno = '002'
|
|
iv_attr1 = 'L-100'
|
|
iv_attr2 = 'K-7' ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = 'Lift plan L-100 is too heavy for crane K-7'
|
|
act = lo_error->get_message_text( ) ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|