250 lines
11 KiB
ABAP
250 lines
11 KiB
ABAP
CLASS {{p}}quote_merger_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}quote_merger.
|
|
METHODS setup.
|
|
METHODS merges_two_lists FOR TESTING.
|
|
METHODS keeps_lowest_price FOR TESTING.
|
|
METHODS breaks_tie_by_supplier FOR TESTING.
|
|
METHODS counts_all_quotes FOR TESTING.
|
|
METHODS rejects_zero_price FOR TESTING.
|
|
METHODS rejects_negative_price FOR TESTING.
|
|
METHODS rejects_blank_material FOR TESTING.
|
|
METHODS sorts_by_material FOR TESTING.
|
|
METHODS handles_empty_input FOR TESTING.
|
|
METHODS lowest_in_one_table FOR TESTING.
|
|
METHODS mixed_valid_invalid FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}quote_merger_hidden IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}quote_merger( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD merges_two_lists.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
DATA lv_price TYPE {{p}}quote_merger=>ty_price.
|
|
|
|
lt_quotes_a = VALUE #( ( material = 'MAT-1' supplier = 'ALPHA' price = '10.00' ) ).
|
|
lt_quotes_b = VALUE #( ( material = 'MAT-2' supplier = 'BETA' price = '20.00' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rejected ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_quotes_a ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'MAT-1' act = lt_result[ 1 ]-material ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'ALPHA' act = lt_result[ 1 ]-supplier ).
|
|
lv_price = '10.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_price act = lt_result[ 1 ]-price ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lt_result[ 1 ]-quote_count ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'MAT-2' act = lt_result[ 2 ]-material ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'BETA' act = lt_result[ 2 ]-supplier ).
|
|
ENDMETHOD.
|
|
|
|
METHOD keeps_lowest_price.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
DATA lv_price TYPE {{p}}quote_merger=>ty_price.
|
|
|
|
lt_quotes_a = VALUE #( ( material = 'MAT-1' supplier = 'ALPHA' price = '10.00' ) ).
|
|
lt_quotes_b = VALUE #( ( material = 'MAT-1' supplier = 'BETA' price = '8.00' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'BETA' act = lt_result[ 1 ]-supplier ).
|
|
lv_price = '8.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_price act = lt_result[ 1 ]-price ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_result[ 1 ]-quote_count ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rejected ).
|
|
ENDMETHOD.
|
|
|
|
METHOD breaks_tie_by_supplier.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
|
|
lt_quotes_a = VALUE #( ( material = 'MAT-1' supplier = 'BETA' price = '10.00' ) ).
|
|
lt_quotes_b = VALUE #( ( material = 'MAT-1' supplier = 'ALPHA' price = '10.00' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'ALPHA' act = lt_result[ 1 ]-supplier ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_result[ 1 ]-quote_count ).
|
|
ENDMETHOD.
|
|
|
|
METHOD counts_all_quotes.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
|
|
lt_quotes_a = VALUE #( ( material = 'MAT-1' supplier = 'ALPHA' price = '10.00' )
|
|
( material = 'MAT-1' supplier = 'ALPHA' price = '10.00' ) ).
|
|
lt_quotes_b = VALUE #( ( material = 'MAT-1' supplier = 'BETA' price = '12.00' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 3 act = lt_result[ 1 ]-quote_count ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'ALPHA' act = lt_result[ 1 ]-supplier ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rejected ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_zero_price.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
|
|
lt_quotes_a = VALUE #( ( material = 'MAT-1' supplier = 'ALPHA' price = '0.00' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rejected ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_negative_price.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
|
|
lt_quotes_a = VALUE #( ( material = 'MAT-1' supplier = 'ALPHA' price = '-5.00' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rejected ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_blank_material.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
|
|
lt_quotes_a = VALUE #( ( material = '' supplier = 'ALPHA' price = '10.00' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rejected ).
|
|
ENDMETHOD.
|
|
|
|
METHOD sorts_by_material.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
|
|
lt_quotes_a = VALUE #( ( material = 'MAT-3' supplier = 'ALPHA' price = '10.00' )
|
|
( material = 'MAT-1' supplier = 'BETA' price = '11.00' ) ).
|
|
lt_quotes_b = VALUE #( ( material = 'MAT-2' supplier = 'GAMMA' price = '12.00' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 3 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'MAT-1' act = lt_result[ 1 ]-material ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'MAT-2' act = lt_result[ 2 ]-material ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'MAT-3' act = lt_result[ 3 ]-material ).
|
|
ENDMETHOD.
|
|
|
|
METHOD handles_empty_input.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rejected ).
|
|
ENDMETHOD.
|
|
|
|
METHOD lowest_in_one_table.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
DATA lv_price TYPE {{p}}quote_merger=>ty_price.
|
|
|
|
lt_quotes_a = VALUE #( ( material = 'MAT-1' supplier = 'ALPHA' price = '10.00' )
|
|
( material = 'MAT-1' supplier = 'BETA' price = '7.50' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'BETA' act = lt_result[ 1 ]-supplier ).
|
|
lv_price = '7.50'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_price act = lt_result[ 1 ]-price ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_result[ 1 ]-quote_count ).
|
|
ENDMETHOD.
|
|
|
|
METHOD mixed_valid_invalid.
|
|
DATA lt_quotes_a TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_quotes_b TYPE {{p}}quote_merger=>tt_quote.
|
|
DATA lt_result TYPE {{p}}quote_merger=>tt_result.
|
|
DATA lv_rejected TYPE i.
|
|
DATA lv_price TYPE {{p}}quote_merger=>ty_price.
|
|
|
|
lt_quotes_a = VALUE #( ( material = 'MAT-1' supplier = 'ALPHA' price = '10.00' )
|
|
( material = '' supplier = 'BETA' price = '5.00' ) ).
|
|
lt_quotes_b = VALUE #( ( material = 'MAT-2' supplier = 'GAMMA' price = '0.00' )
|
|
( material = 'MAT-1' supplier = 'DELTA' price = '9.00' ) ).
|
|
|
|
mo_cut->merge( EXPORTING it_quotes_a = lt_quotes_a
|
|
it_quotes_b = lt_quotes_b
|
|
IMPORTING et_result = lt_result
|
|
ev_rejected = lv_rejected ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_result ) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rejected ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'MAT-1' act = lt_result[ 1 ]-material ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 'DELTA' act = lt_result[ 1 ]-supplier ).
|
|
lv_price = '9.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_price act = lt_result[ 1 ]-price ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lt_result[ 1 ]-quote_count ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|