170 lines
8.1 KiB
ABAP
170 lines
8.1 KiB
ABAP
CLASS {{p}}t02_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}towing_fee.
|
|
METHODS setup.
|
|
METHODS minimum_fee_applies FOR TESTING.
|
|
METHODS distance_charge FOR TESTING.
|
|
METHODS first_ten_km_free FOR TESTING.
|
|
METHODS night_surcharge FOR TESTING.
|
|
METHODS weekend_surcharge FOR TESTING.
|
|
METHODS night_and_weekend FOR TESTING.
|
|
METHODS night_hour_boundaries FOR TESTING.
|
|
METHODS rounds_up_to_five FOR TESTING.
|
|
METHODS large_vehicle_long_trip FOR TESTING.
|
|
METHODS rejects_unknown_class FOR TESTING.
|
|
METHODS rejects_bad_distance FOR TESTING.
|
|
METHODS rejects_bad_hour FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t02_hidden IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}towing_fee( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD minimum_fee_applies.
|
|
DATA(ls_result) = mo_cut->calculate( iv_vehicle_class = 'S'
|
|
iv_distance_km = 5
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}towing_fee=>c_status-ok
|
|
act = ls_result-status ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 80
|
|
act = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD distance_charge.
|
|
DATA(ls_result) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 30
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 130
|
|
act = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD first_ten_km_free.
|
|
DATA(ls_ten) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 10
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_false ).
|
|
DATA(ls_twenty) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 20
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 90
|
|
act = ls_ten-fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 110
|
|
act = ls_twenty-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD night_surcharge.
|
|
DATA(ls_result) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 30
|
|
iv_hour = 23
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 165
|
|
act = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD weekend_surcharge.
|
|
DATA(ls_result) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 30
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_true ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 150
|
|
act = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD night_and_weekend.
|
|
DATA(ls_result) = mo_cut->calculate( iv_vehicle_class = 'S'
|
|
iv_distance_km = 10
|
|
iv_hour = 23
|
|
iv_is_weekend = abap_true ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 85
|
|
act = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD night_hour_boundaries.
|
|
DATA(ls_22) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 10
|
|
iv_hour = 22
|
|
iv_is_weekend = abap_false ).
|
|
DATA(ls_21) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 10
|
|
iv_hour = 21
|
|
iv_is_weekend = abap_false ).
|
|
DATA(ls_5) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 10
|
|
iv_hour = 5
|
|
iv_is_weekend = abap_false ).
|
|
DATA(ls_6) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 10
|
|
iv_hour = 6
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 115 act = ls_22-fee msg = `hour 22` ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 90 act = ls_21-fee msg = `hour 21` ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 115 act = ls_5-fee msg = `hour 5` ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 90 act = ls_6-fee msg = `hour 6` ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rounds_up_to_five.
|
|
DATA(ls_result) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 11
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 95
|
|
act = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD large_vehicle_long_trip.
|
|
DATA(ls_result) = mo_cut->calculate( iv_vehicle_class = 'L'
|
|
iv_distance_km = 100
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 320
|
|
act = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_unknown_class.
|
|
DATA(ls_result) = mo_cut->calculate( iv_vehicle_class = 'X'
|
|
iv_distance_km = 30
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}towing_fee=>c_status-bad_class
|
|
act = ls_result-status ).
|
|
cl_abap_unit_assert=>assert_equals( exp = 0
|
|
act = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_bad_distance.
|
|
DATA(ls_zero) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 0
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_false ).
|
|
DATA(ls_far) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 501
|
|
iv_hour = 12
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}towing_fee=>c_status-bad_distance
|
|
act = ls_zero-status ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}towing_fee=>c_status-bad_distance
|
|
act = ls_far-status ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_bad_hour.
|
|
DATA(ls_24) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 10
|
|
iv_hour = 24
|
|
iv_is_weekend = abap_false ).
|
|
DATA(ls_neg) = mo_cut->calculate( iv_vehicle_class = 'M'
|
|
iv_distance_km = 10
|
|
iv_hour = -1
|
|
iv_is_weekend = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}towing_fee=>c_status-bad_hour
|
|
act = ls_24-status ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}towing_fee=>c_status-bad_hour
|
|
act = ls_neg-status ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|