141 lines
6.0 KiB
ABAP
141 lines
6.0 KiB
ABAP
CLASS {{p}}t42_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}piano_pricer.
|
|
|
|
METHODS setup.
|
|
METHODS assert_charge
|
|
IMPORTING is_charge TYPE {{p}}piano_pricer=>ty_charge
|
|
iv_reason TYPE {{p}}piano_pricer=>ty_reason
|
|
iv_base TYPE {{p}}piano_pricer=>ty_amount
|
|
iv_travel TYPE {{p}}piano_pricer=>ty_amount
|
|
iv_extra TYPE {{p}}piano_pricer=>ty_amount
|
|
iv_total TYPE {{p}}piano_pricer=>ty_amount.
|
|
|
|
METHODS upright_basic FOR TESTING.
|
|
METHODS grand_pitch_raise FOR TESTING.
|
|
METHODS travel_beyond_free FOR TESTING.
|
|
METHODS digital_piano FOR TESTING.
|
|
METHODS studio_piano FOR TESTING.
|
|
METHODS concert_grand FOR TESTING.
|
|
METHODS unknown_type FOR TESTING.
|
|
METHODS negative_distance FOR TESTING.
|
|
METHODS negative_pitch FOR TESTING.
|
|
METHODS unknown_wins FOR TESTING.
|
|
METHODS exact_limits FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t42_hidden IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}piano_pricer( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD assert_charge.
|
|
cl_abap_unit_assert=>assert_equals( exp = iv_reason act = is_charge-reason msg = 'reason' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = iv_base act = is_charge-base_fee msg = 'base_fee' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = iv_travel act = is_charge-travel_fee msg = 'travel_fee' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = iv_extra act = is_charge-extra_fee msg = 'extra_fee' ).
|
|
cl_abap_unit_assert=>assert_equals( exp = iv_total act = is_charge-total_fee msg = 'total_fee' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD upright_basic.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'U'
|
|
iv_distance_km = 5
|
|
iv_pitch_cents = 0 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'OK' iv_base = '89.00' iv_travel = '0.00'
|
|
iv_extra = '0.00' iv_total = '89.00' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD grand_pitch_raise.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'G'
|
|
iv_distance_km = 0
|
|
iv_pitch_cents = 40 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'OK' iv_base = '129.00' iv_travel = '0.00'
|
|
iv_extra = '15.00' iv_total = '144.00' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD travel_beyond_free.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'U'
|
|
iv_distance_km = 25
|
|
iv_pitch_cents = 0 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'OK' iv_base = '89.00' iv_travel = '12.00'
|
|
iv_extra = '0.00' iv_total = '101.00' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD digital_piano.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'D'
|
|
iv_distance_km = 10
|
|
iv_pitch_cents = 10 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'OK' iv_base = '69.00' iv_travel = '0.00'
|
|
iv_extra = '10.00' iv_total = '79.00' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD studio_piano.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'S'
|
|
iv_distance_km = 12
|
|
iv_pitch_cents = 20 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'OK' iv_base = '99.00' iv_travel = '1.60'
|
|
iv_extra = '6.50' iv_total = '107.10' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD concert_grand.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'C'
|
|
iv_distance_km = 40
|
|
iv_pitch_cents = 60 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'OK' iv_base = '149.00' iv_travel = '24.00'
|
|
iv_extra = '27.00' iv_total = '200.00' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unknown_type.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'Z'
|
|
iv_distance_km = 5
|
|
iv_pitch_cents = 0 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'UNKNOWN' iv_base = '0.00' iv_travel = '0.00'
|
|
iv_extra = '0.00' iv_total = '0.00' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD negative_distance.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'U'
|
|
iv_distance_km = -1
|
|
iv_pitch_cents = 0 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'DISTANCE' iv_base = '0.00' iv_travel = '0.00'
|
|
iv_extra = '0.00' iv_total = '0.00' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD negative_pitch.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'U'
|
|
iv_distance_km = 5
|
|
iv_pitch_cents = -1 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'PITCH' iv_base = '0.00' iv_travel = '0.00'
|
|
iv_extra = '0.00' iv_total = '0.00' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unknown_wins.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'Z'
|
|
iv_distance_km = -5
|
|
iv_pitch_cents = -5 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'UNKNOWN' iv_base = '0.00' iv_travel = '0.00'
|
|
iv_extra = '0.00' iv_total = '0.00' ).
|
|
ENDMETHOD.
|
|
|
|
METHOD exact_limits.
|
|
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'U'
|
|
iv_distance_km = 10
|
|
iv_pitch_cents = 15 ).
|
|
assert_charge( is_charge = ls_charge
|
|
iv_reason = 'OK' iv_base = '89.00' iv_travel = '0.00'
|
|
iv_extra = '0.00' iv_total = '89.00' ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|