88 lines
3.3 KiB
ABAP
88 lines
3.3 KiB
ABAP
CLASS ltc_keg_tour_merger DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}keg_tour_merger.
|
|
METHODS setup.
|
|
METHODS merges_two_lists FOR TESTING.
|
|
METHODS adds_same_key FOR TESTING.
|
|
METHODS ignores_invalid_kegs FOR TESTING.
|
|
METHODS returns_empty_list FOR TESTING.
|
|
METHODS ranks_pubs FOR TESTING.
|
|
METHODS limits_ranked_pubs FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_keg_tour_merger IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}keg_tour_merger( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD merges_two_lists.
|
|
DATA(lt_a) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'P01' keg_type = 'LAG' kegs = 10 ) ).
|
|
DATA(lt_b) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'P02' keg_type = 'PIL' kegs = 7 ) ).
|
|
DATA(lt_exp) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'P01' keg_type = 'LAG' kegs = 10 )
|
|
( pub_id = 'P02' keg_type = 'PIL' kegs = 7 ) ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lt_exp
|
|
act = mo_cut->merge_tours( it_tour_a = lt_a it_tour_b = lt_b ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD adds_same_key.
|
|
DATA(lt_a) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'p01' keg_type = 'lag' kegs = 4 ) ).
|
|
DATA(lt_b) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'P01' keg_type = 'LAG' kegs = 6 ) ).
|
|
DATA(lt_exp) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'P01' keg_type = 'LAG' kegs = 10 ) ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lt_exp
|
|
act = mo_cut->merge_tours( it_tour_a = lt_a it_tour_b = lt_b ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD ignores_invalid_kegs.
|
|
DATA(lt_a) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'P01' keg_type = 'LAG' kegs = 0 )
|
|
( pub_id = 'P02' keg_type = 'LAG' kegs = -2 )
|
|
( pub_id = 'P03' keg_type = 'LAG' kegs = 8 ) ).
|
|
DATA(lt_exp) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'P03' keg_type = 'LAG' kegs = 8 ) ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lt_exp
|
|
act = mo_cut->merge_tours( it_tour_a = lt_a
|
|
it_tour_b = VALUE #( ) ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD returns_empty_list.
|
|
DATA(lt_act) = mo_cut->merge_tours( it_tour_a = VALUE #( )
|
|
it_tour_b = VALUE #( ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_act ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD ranks_pubs.
|
|
DATA(lt_tour) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'P01' keg_type = 'LAG' kegs = 5 )
|
|
( pub_id = 'P02' keg_type = 'LAG' kegs = 5 )
|
|
( pub_id = 'P03' keg_type = 'LAG' kegs = 11 ) ).
|
|
DATA(lt_exp) = VALUE {{p}}keg_tour_merger=>tt_pub(
|
|
( pub_id = 'P03' kegs = 11 )
|
|
( pub_id = 'P01' kegs = 5 )
|
|
( pub_id = 'P02' kegs = 5 ) ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lt_exp
|
|
act = mo_cut->top_pubs( it_tour = lt_tour iv_count = 3 ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD limits_ranked_pubs.
|
|
DATA(lt_tour) = VALUE {{p}}keg_tour_merger=>tt_entry(
|
|
( pub_id = 'P01' keg_type = 'LAG' kegs = 5 )
|
|
( pub_id = 'P02' keg_type = 'LAG' kegs = 9 ) ).
|
|
DATA(lt_exp) = VALUE {{p}}keg_tour_merger=>tt_pub(
|
|
( pub_id = 'P02' kegs = 9 ) ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lt_exp
|
|
act = mo_cut->top_pubs( it_tour = lt_tour iv_count = 1 ) ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|