175 lines
6.7 KiB
ABAP
175 lines
6.7 KiB
ABAP
CLASS {{p}}kart_check_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PUBLIC SECTION.
|
|
INTERFACES {{p}}if_kart_check.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}if_kart_check.
|
|
METHODS setup.
|
|
METHODS assert_char_length
|
|
IMPORTING iv_name TYPE string
|
|
iv_length TYPE i.
|
|
METHODS assert_number
|
|
IMPORTING iv_name TYPE string
|
|
iv_value TYPE i.
|
|
METHODS reason_ok FOR TESTING.
|
|
METHODS reason_codes FOR TESTING.
|
|
METHODS limit_values FOR TESTING.
|
|
METHODS opening_times FOR TESTING.
|
|
METHODS reason_length FOR TESTING.
|
|
METHODS booking_components FOR TESTING.
|
|
METHODS bookings_is_table FOR TESTING.
|
|
METHODS check_booking_ok FOR TESTING.
|
|
METHODS check_group_ok FOR TESTING.
|
|
METHODS is_open_at_noon FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}kart_check_hidden IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = me.
|
|
ENDMETHOD.
|
|
|
|
METHOD assert_char_length.
|
|
DATA lv_probe TYPE string.
|
|
DATA lv_expected TYPE string.
|
|
DATA ls_booking TYPE {{p}}if_kart_check=>ty_booking.
|
|
ASSIGN COMPONENT iv_name OF STRUCTURE ls_booking TO FIELD-SYMBOL(<lv_field>).
|
|
IF sy-subrc <> 0.
|
|
cl_abap_unit_assert=>fail( msg = |Component { iv_name } is missing| ).
|
|
RETURN.
|
|
ENDIF.
|
|
DO iv_length + 1 TIMES.
|
|
lv_probe = lv_probe && 'X'.
|
|
ENDDO.
|
|
DO iv_length TIMES.
|
|
lv_expected = lv_expected && 'X'.
|
|
ENDDO.
|
|
<lv_field> = lv_probe.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_expected
|
|
act = <lv_field>
|
|
msg = |Length of { iv_name }| ).
|
|
ENDMETHOD.
|
|
|
|
METHOD assert_number.
|
|
DATA ls_booking TYPE {{p}}if_kart_check=>ty_booking.
|
|
ASSIGN COMPONENT iv_name OF STRUCTURE ls_booking TO FIELD-SYMBOL(<lv_field>).
|
|
IF sy-subrc <> 0.
|
|
cl_abap_unit_assert=>fail( msg = |Component { iv_name } is missing| ).
|
|
RETURN.
|
|
ENDIF.
|
|
<lv_field> = iv_value.
|
|
cl_abap_unit_assert=>assert_equals( exp = iv_value
|
|
act = <lv_field>
|
|
msg = |Value of { iv_name }| ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_ok.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'OK'
|
|
act = {{p}}if_kart_check=>c_reason-ok ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_codes.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'NO_NAME'
|
|
act = {{p}}if_kart_check=>c_reason-no_name ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'TOO_YOUNG'
|
|
act = {{p}}if_kart_check=>c_reason-too_young ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'TOO_OLD'
|
|
act = {{p}}if_kart_check=>c_reason-too_old ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'BAD_LAPS'
|
|
act = {{p}}if_kart_check=>c_reason-bad_laps ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'CLOSED'
|
|
act = {{p}}if_kart_check=>c_reason-closed ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'TOO_MANY'
|
|
act = {{p}}if_kart_check=>c_reason-too_many ).
|
|
ENDMETHOD.
|
|
|
|
METHOD limit_values.
|
|
cl_abap_unit_assert=>assert_equals( exp = 12
|
|
act = {{p}}if_kart_check=>c_limit-min_age ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 75
|
|
act = {{p}}if_kart_check=>c_limit-max_age ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 5
|
|
act = {{p}}if_kart_check=>c_limit-min_laps ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 30
|
|
act = {{p}}if_kart_check=>c_limit-max_laps ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 8
|
|
act = {{p}}if_kart_check=>c_limit-max_drivers ).
|
|
ENDMETHOD.
|
|
|
|
METHOD opening_times.
|
|
DATA lv_from TYPE t VALUE '090000'.
|
|
DATA lv_to TYPE t VALUE '220000'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_from
|
|
act = {{p}}if_kart_check=>c_open_from ).
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_to
|
|
act = {{p}}if_kart_check=>c_open_to ).
|
|
ENDMETHOD.
|
|
|
|
METHOD reason_length.
|
|
DATA lv_reason TYPE {{p}}if_kart_check=>ty_reason.
|
|
DATA lv_probe TYPE string.
|
|
DO 13 TIMES.
|
|
lv_probe = lv_probe && 'X'.
|
|
ENDDO.
|
|
lv_reason = lv_probe.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'XXXXXXXXXXXX'
|
|
act = lv_reason ).
|
|
ENDMETHOD.
|
|
|
|
METHOD booking_components.
|
|
assert_char_length( iv_name = 'DRIVER_NAME' iv_length = 20 ).
|
|
assert_number( iv_name = 'DRIVER_AGE' iv_value = 30 ).
|
|
assert_number( iv_name = 'LAPS' iv_value = 10 ).
|
|
DATA ls_booking TYPE {{p}}if_kart_check=>ty_booking.
|
|
ls_booking-booking_time = '235959'.
|
|
cl_abap_unit_assert=>assert_equals( exp = '235959'
|
|
act = ls_booking-booking_time ).
|
|
ENDMETHOD.
|
|
|
|
METHOD bookings_is_table.
|
|
DATA lt_bookings TYPE {{p}}if_kart_check=>tt_bookings.
|
|
DATA(lo_descr) = cl_abap_typedescr=>describe_by_data( lt_bookings ).
|
|
cl_abap_unit_assert=>assert_equals( exp = cl_abap_typedescr=>typekind_table
|
|
act = lo_descr->type_kind ).
|
|
DATA(lo_table) = CAST cl_abap_tabledescr( lo_descr ).
|
|
DATA(lo_row) = lo_table->get_table_line_type( ).
|
|
DATA(lo_struct) = CAST cl_abap_structdescr( lo_row ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 4
|
|
act = lines( lo_struct->components ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD check_booking_ok.
|
|
DATA ls_booking TYPE {{p}}if_kart_check=>ty_booking.
|
|
ls_booking-driver_name = 'MAX MUSTERMANN'.
|
|
ls_booking-driver_age = 30.
|
|
ls_booking-laps = 10.
|
|
ls_booking-booking_time = '140000'.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'OK'
|
|
act = mo_cut->check_booking( ls_booking ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD check_group_ok.
|
|
DATA lt_bookings TYPE {{p}}if_kart_check=>tt_bookings.
|
|
cl_abap_unit_assert=>assert_equals( exp = 'OK'
|
|
act = mo_cut->check_group( lt_bookings ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD is_open_at_noon.
|
|
DATA lv_time TYPE t VALUE '120000'.
|
|
cl_abap_unit_assert=>assert_equals( exp = abap_true
|
|
act = mo_cut->is_open( lv_time ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD {{p}}if_kart_check~check_booking.
|
|
rv_reason = {{p}}if_kart_check=>c_reason-ok.
|
|
ENDMETHOD.
|
|
|
|
METHOD {{p}}if_kart_check~check_group.
|
|
rv_reason = {{p}}if_kart_check=>c_reason-ok.
|
|
ENDMETHOD.
|
|
|
|
METHOD {{p}}if_kart_check~is_open.
|
|
rv_open = abap_true.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|