72 lines
3.1 KiB
ABAP
72 lines
3.1 KiB
ABAP
CLASS ltc_log_merger DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}log_merger.
|
|
DATA mt_empty TYPE {{p}}log_merger=>tt_log.
|
|
METHODS setup.
|
|
METHODS merges_distinct_logs FOR TESTING.
|
|
METHODS keeps_first_duplicate FOR TESTING.
|
|
METHODS removes_small_logs FOR TESTING.
|
|
METHODS sorts_result FOR TESTING.
|
|
METHODS empty_input_is_empty FOR TESTING.
|
|
METHODS counts_per_district FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_log_merger IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}log_merger( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD merges_distinct_logs.
|
|
DATA(lt_result) = mo_cut->combine(
|
|
it_first = VALUE #( ( log_no = 'LOG0000001' district = 'A001' length_cm = 500 diameter_cm = 30 ) )
|
|
it_second = VALUE #( ( log_no = 'LOG0000002' district = 'B001' length_cm = 600 diameter_cm = 40 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'LOG0000001' act = lt_result[ 1 ]-log_no ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'LOG0000002' act = lt_result[ 2 ]-log_no ).
|
|
ENDMETHOD.
|
|
|
|
METHOD keeps_first_duplicate.
|
|
DATA(lt_result) = mo_cut->combine(
|
|
it_first = VALUE #( ( log_no = 'LOG0000001' district = 'A001' length_cm = 500 diameter_cm = 30 ) )
|
|
it_second = VALUE #( ( log_no = 'LOG0000001' district = 'B001' length_cm = 900 diameter_cm = 50 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'A001' act = lt_result[ 1 ]-district ).
|
|
ENDMETHOD.
|
|
|
|
METHOD removes_small_logs.
|
|
DATA(lt_result) = mo_cut->combine(
|
|
it_first = VALUE #( ( log_no = 'LOG0000001' district = 'A001' length_cm = 150 diameter_cm = 30 ) )
|
|
it_second = VALUE #( ( log_no = 'LOG0000002' district = 'A001' length_cm = 500 diameter_cm = 15 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_result ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD sorts_result.
|
|
DATA(lt_result) = mo_cut->combine(
|
|
it_first = VALUE #( ( log_no = 'LOG0000002' district = 'A001' length_cm = 500 diameter_cm = 30 ) )
|
|
it_second = VALUE #( ( log_no = 'LOG0000001' district = 'B001' length_cm = 500 diameter_cm = 30 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 'LOG0000001' act = lt_result[ 1 ]-log_no ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'LOG0000002' act = lt_result[ 2 ]-log_no ).
|
|
ENDMETHOD.
|
|
|
|
METHOD empty_input_is_empty.
|
|
DATA(lt_result) = mo_cut->combine( it_first = mt_empty it_second = mt_empty ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_result ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD counts_per_district.
|
|
DATA(lt_stat) = mo_cut->count_by_district(
|
|
it_log = VALUE #( ( log_no = 'LOG0000001' district = 'A001' length_cm = 500 diameter_cm = 30 )
|
|
( log_no = 'LOG0000002' district = 'A001' length_cm = 300 diameter_cm = 25 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_stat ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_stat[ 1 ]-log_qty ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 800 act = lt_stat[ 1 ]-total_length_cm ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|