122 lines
5.0 KiB
ABAP
122 lines
5.0 KiB
ABAP
CLASS {{p}}mix_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
METHODS call
|
|
IMPORTING it_tints TYPE {{P}}PAINT_MIX=>TY_TINTS
|
|
EXPORTING ev_volume TYPE decfloat34
|
|
ev_price TYPE decfloat34
|
|
ev_subrc TYPE sysubrc.
|
|
METHODS empty_table FOR TESTING.
|
|
METHODS single_tint FOR TESTING.
|
|
METHODS duplicate_tints FOR TESTING.
|
|
METHODS two_tints FOR TESTING.
|
|
METHODS zero_quantity FOR TESTING.
|
|
METHODS negative_quantity FOR TESTING.
|
|
METHODS unknown_tint FOR TESTING.
|
|
METHODS rounding FOR TESTING.
|
|
METHODS quantity_checked_first FOR TESTING.
|
|
METHODS fee_per_distinct_tint FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}mix_hidden IMPLEMENTATION.
|
|
METHOD call.
|
|
CALL FUNCTION '{{P}}MIX_PRICE'
|
|
EXPORTING
|
|
it_tints = it_tints
|
|
IMPORTING
|
|
ev_volume = ev_volume
|
|
ev_price = ev_price
|
|
EXCEPTIONS
|
|
no_components = 1
|
|
invalid_quantity = 2
|
|
unknown_tint = 3
|
|
OTHERS = 4.
|
|
ev_subrc = sy-subrc.
|
|
ENDMETHOD.
|
|
|
|
METHOD empty_table.
|
|
DATA lt_tints TYPE {{P}}PAINT_MIX=>TY_TINTS.
|
|
call( EXPORTING it_tints = lt_tints
|
|
IMPORTING ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_subrc ).
|
|
ENDMETHOD.
|
|
|
|
METHOD single_tint.
|
|
call( EXPORTING it_tints = VALUE #( ( tint_id = 'WHIT' quantity_ml = 1000 ) )
|
|
IMPORTING ev_volume = DATA(lv_volume)
|
|
ev_price = DATA(lv_price)
|
|
ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_subrc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 1000 ) act = lv_volume ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '21.5' ) act = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD duplicate_tints.
|
|
call( EXPORTING it_tints = VALUE #( ( tint_id = 'WHIT' quantity_ml = 1000 )
|
|
( tint_id = 'WHIT' quantity_ml = 500 ) )
|
|
IMPORTING ev_volume = DATA(lv_volume)
|
|
ev_price = DATA(lv_price)
|
|
ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_subrc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 1500 ) act = lv_volume ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '31.5' ) act = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD two_tints.
|
|
call( EXPORTING it_tints = VALUE #( ( tint_id = 'WHIT' quantity_ml = 1000 )
|
|
( tint_id = 'BLUE' quantity_ml = 200 ) )
|
|
IMPORTING ev_volume = DATA(lv_volume)
|
|
ev_price = DATA(lv_price)
|
|
ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_subrc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 1200 ) act = lv_volume ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 32 ) act = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD zero_quantity.
|
|
call( EXPORTING it_tints = VALUE #( ( tint_id = 'WHIT' quantity_ml = 0 ) )
|
|
IMPORTING ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_subrc ).
|
|
ENDMETHOD.
|
|
|
|
METHOD negative_quantity.
|
|
call( EXPORTING it_tints = VALUE #( ( tint_id = 'BLUE' quantity_ml = -5 ) )
|
|
IMPORTING ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_subrc ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unknown_tint.
|
|
call( EXPORTING it_tints = VALUE #( ( tint_id = 'XXXX' quantity_ml = 100 ) )
|
|
IMPORTING ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 3 act = lv_subrc ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rounding.
|
|
call( EXPORTING it_tints = VALUE #( ( tint_id = 'BLUE' quantity_ml = 111 ) )
|
|
IMPORTING ev_price = DATA(lv_price)
|
|
ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_subrc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '6.5' ) act = lv_price ).
|
|
ENDMETHOD.
|
|
|
|
METHOD quantity_checked_first.
|
|
call( EXPORTING it_tints = VALUE #( ( tint_id = 'XXXX' quantity_ml = 100 )
|
|
( tint_id = 'WHIT' quantity_ml = 0 ) )
|
|
IMPORTING ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_subrc ).
|
|
ENDMETHOD.
|
|
|
|
METHOD fee_per_distinct_tint.
|
|
call( EXPORTING it_tints = VALUE #( ( tint_id = 'WHIT' quantity_ml = 100 )
|
|
( tint_id = 'WHIT' quantity_ml = 100 )
|
|
( tint_id = 'BLUE' quantity_ml = 100 ) )
|
|
IMPORTING ev_volume = DATA(lv_volume)
|
|
ev_price = DATA(lv_price)
|
|
ev_subrc = DATA(lv_subrc) ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_subrc ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 300 ) act = lv_volume ).
|
|
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '11.5' ) act = lv_price ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|