180 lines
8.9 KiB
ABAP
180 lines
8.9 KiB
ABAP
CLASS {{p}}air_frt_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
|
|
PRIVATE SECTION.
|
|
TYPES ty_expected TYPE c LENGTH 20.
|
|
|
|
DATA mo_cut TYPE REF TO {{p}}if_air_freight.
|
|
|
|
METHODS setup.
|
|
METHODS assert_weight
|
|
IMPORTING iv_expected TYPE ty_expected
|
|
iv_actual TYPE {{p}}if_air_freight=>ty_weight.
|
|
METHODS assert_amount
|
|
IMPORTING iv_expected TYPE ty_expected
|
|
iv_actual TYPE {{p}}if_air_freight=>ty_amount.
|
|
|
|
METHODS general_shipment FOR TESTING.
|
|
METHODS volumetric_weight FOR TESTING.
|
|
METHODS rounds_up_to_kg FOR TESTING.
|
|
METHODS rate_break_100 FOR TESTING.
|
|
METHODS rate_break_101 FOR TESTING.
|
|
METHODS rate_break_501 FOR TESTING.
|
|
METHODS perishable_goods FOR TESTING.
|
|
METHODS valuable_dangerous FOR TESTING.
|
|
METHODS rejects_zero_weight FOR TESTING.
|
|
METHODS rejects_zero_volume FOR TESTING.
|
|
METHODS rejects_bad_category FOR TESTING.
|
|
METHODS rejects_too_heavy FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}air_frt_hidden IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}air_freight_pricer( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD assert_weight.
|
|
DATA lv_expected TYPE {{p}}if_air_freight=>ty_weight.
|
|
lv_expected = iv_expected.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = iv_actual ).
|
|
ENDMETHOD.
|
|
|
|
METHOD assert_amount.
|
|
DATA lv_expected TYPE {{p}}if_air_freight=>ty_amount.
|
|
lv_expected = iv_expected.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = iv_actual ).
|
|
ENDMETHOD.
|
|
|
|
METHOD general_shipment.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '12.000'
|
|
iv_volume = '48000.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-general
|
|
iv_dangerous = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_air_freight=>c_reason-ok
|
|
act = ls_result-reason ).
|
|
assert_weight( iv_expected = '12.000' iv_actual = ls_result-chargeable_weight ).
|
|
assert_amount( iv_expected = '108.00' iv_actual = ls_result-freight ).
|
|
assert_amount( iv_expected = '0.00' iv_actual = ls_result-dangerous_fee ).
|
|
assert_amount( iv_expected = '12.96' iv_actual = ls_result-fuel_fee ).
|
|
assert_amount( iv_expected = '15.00' iv_actual = ls_result-security_fee ).
|
|
assert_amount( iv_expected = '135.96' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD volumetric_weight.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '5.000'
|
|
iv_volume = '120000.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-general
|
|
iv_dangerous = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_air_freight=>c_reason-ok
|
|
act = ls_result-reason ).
|
|
assert_weight( iv_expected = '20.000' iv_actual = ls_result-chargeable_weight ).
|
|
assert_amount( iv_expected = '180.00' iv_actual = ls_result-freight ).
|
|
assert_amount( iv_expected = '21.60' iv_actual = ls_result-fuel_fee ).
|
|
assert_amount( iv_expected = '216.60' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rounds_up_to_kg.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '12.400'
|
|
iv_volume = '900.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-general
|
|
iv_dangerous = abap_false ).
|
|
assert_weight( iv_expected = '13.000' iv_actual = ls_result-chargeable_weight ).
|
|
assert_amount( iv_expected = '117.00' iv_actual = ls_result-freight ).
|
|
assert_amount( iv_expected = '146.04' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rate_break_100.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '100.000'
|
|
iv_volume = '600.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-general
|
|
iv_dangerous = abap_false ).
|
|
assert_weight( iv_expected = '100.000' iv_actual = ls_result-chargeable_weight ).
|
|
assert_amount( iv_expected = '720.00' iv_actual = ls_result-freight ).
|
|
assert_amount( iv_expected = '821.40' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rate_break_101.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '100.500'
|
|
iv_volume = '600.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-general
|
|
iv_dangerous = abap_false ).
|
|
assert_weight( iv_expected = '101.000' iv_actual = ls_result-chargeable_weight ).
|
|
assert_amount( iv_expected = '565.60' iv_actual = ls_result-freight ).
|
|
assert_amount( iv_expected = '648.47' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rate_break_501.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '500.400'
|
|
iv_volume = '600.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-general
|
|
iv_dangerous = abap_false ).
|
|
assert_weight( iv_expected = '501.000' iv_actual = ls_result-chargeable_weight ).
|
|
assert_amount( iv_expected = '2154.30' iv_actual = ls_result-freight ).
|
|
assert_amount( iv_expected = '2427.82' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD perishable_goods.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '10.000'
|
|
iv_volume = '600.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-perishable
|
|
iv_dangerous = abap_false ).
|
|
assert_amount( iv_expected = '112.50' iv_actual = ls_result-freight ).
|
|
assert_amount( iv_expected = '0.00' iv_actual = ls_result-dangerous_fee ).
|
|
assert_amount( iv_expected = '141.00' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD valuable_dangerous.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '10.000'
|
|
iv_volume = '600.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-valuable
|
|
iv_dangerous = abap_true ).
|
|
assert_amount( iv_expected = '135.00' iv_actual = ls_result-freight ).
|
|
assert_amount( iv_expected = '54.00' iv_actual = ls_result-dangerous_fee ).
|
|
assert_amount( iv_expected = '22.68' iv_actual = ls_result-fuel_fee ).
|
|
assert_amount( iv_expected = '226.68' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_zero_weight.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '0.000'
|
|
iv_volume = '600.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-general
|
|
iv_dangerous = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_air_freight=>c_reason-bad_weight
|
|
act = ls_result-reason ).
|
|
assert_weight( iv_expected = '0.000' iv_actual = ls_result-chargeable_weight ).
|
|
assert_amount( iv_expected = '0.00' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_zero_volume.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '10.000'
|
|
iv_volume = '0.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-general
|
|
iv_dangerous = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_air_freight=>c_reason-bad_volume
|
|
act = ls_result-reason ).
|
|
assert_amount( iv_expected = '0.00' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_bad_category.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '10.000'
|
|
iv_volume = '600.000'
|
|
iv_category = 'EXPRESS'
|
|
iv_dangerous = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_air_freight=>c_reason-bad_category
|
|
act = ls_result-reason ).
|
|
assert_amount( iv_expected = '0.00' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_too_heavy.
|
|
DATA(ls_result) = mo_cut->price( iv_weight = '3000.500'
|
|
iv_volume = '600.000'
|
|
iv_category = {{p}}if_air_freight=>c_category-general
|
|
iv_dangerous = abap_false ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_air_freight=>c_reason-too_heavy
|
|
act = ls_result-reason ).
|
|
assert_weight( iv_expected = '0.000' iv_actual = ls_result-chargeable_weight ).
|
|
assert_amount( iv_expected = '0.00' iv_actual = ls_result-total_amount ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|