78 lines
3.0 KiB
ABAP
78 lines
3.0 KiB
ABAP
CLASS ltc_fish_auction DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}fish_auction.
|
|
METHODS setup.
|
|
METHODS sums_and_counts FOR TESTING.
|
|
METHODS ignores_invalid_entries FOR TESTING.
|
|
METHODS normalizes_species FOR TESTING.
|
|
METHODS result_is_sorted FOR TESTING.
|
|
METHODS best_species_wins FOR TESTING.
|
|
METHODS best_species_tie FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_fish_auction IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}fish_auction( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD sums_and_counts.
|
|
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
|
|
lt_result = mo_cut->summarize( VALUE #(
|
|
( boat_id = 'B1' species = 'COD' weight_kg = 100 )
|
|
( boat_id = 'B2' species = 'COD' weight_kg = 50 )
|
|
( boat_id = 'B1' species = 'COD' weight_kg = 25 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 1 ).
|
|
READ TABLE lt_result INTO DATA(ls_row) WITH KEY species = 'COD'.
|
|
cl_abap_unit_assert=>assert_equals( act = ls_row-total_weight exp = 175 ).
|
|
cl_abap_unit_assert=>assert_equals( act = ls_row-boat_count exp = 2 ).
|
|
ENDMETHOD.
|
|
|
|
METHOD ignores_invalid_entries.
|
|
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
|
|
lt_result = mo_cut->summarize( VALUE #(
|
|
( boat_id = 'B1' species = ' ' weight_kg = 10 )
|
|
( boat_id = 'B2' species = 'COD' weight_kg = 0 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 0 ).
|
|
ENDMETHOD.
|
|
|
|
METHOD normalizes_species.
|
|
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
|
|
lt_result = mo_cut->summarize( VALUE #(
|
|
( boat_id = 'B1' species = ' tuna' weight_kg = 10 )
|
|
( boat_id = 'B2' species = 'TUNA ' weight_kg = 20 ) ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 1 ).
|
|
READ TABLE lt_result INTO DATA(ls_row) WITH KEY species = 'TUNA'.
|
|
cl_abap_unit_assert=>assert_equals( act = ls_row-total_weight exp = 30 ).
|
|
ENDMETHOD.
|
|
|
|
METHOD result_is_sorted.
|
|
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
|
|
lt_result = mo_cut->summarize( VALUE #(
|
|
( boat_id = 'B1' species = 'TUNA' weight_kg = 10 )
|
|
( boat_id = 'B2' species = 'COD' weight_kg = 10 ) ) ).
|
|
|
|
READ TABLE lt_result INTO DATA(ls_row) INDEX 1.
|
|
cl_abap_unit_assert=>assert_equals( act = ls_row-species exp = 'COD' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD best_species_wins.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = mo_cut->best_species( VALUE #(
|
|
( boat_id = 'B1' species = 'COD' weight_kg = 10 )
|
|
( boat_id = 'B2' species = 'TUNA' weight_kg = 40 ) ) )
|
|
exp = 'TUNA' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD best_species_tie.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
act = mo_cut->best_species( VALUE #(
|
|
( boat_id = 'B1' species = 'TUNA' weight_kg = 30 )
|
|
( boat_id = 'B2' species = 'COD' weight_kg = 30 ) ) )
|
|
exp = 'COD' ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|