Pipeline controller: plan 2 (hard +, error +50 %), backlog throttle, 2 trajectory workers, stop rules, summaries every 50; budget reserve
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,52 @@
|
||||
CLASS ltc_scaffold_fee DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
DATA mo_cut TYPE REF TO {{p}}scaffold_fee.
|
||||
METHODS setup.
|
||||
METHODS base_fee_only FOR TESTING.
|
||||
METHODS express_surcharge_rounds_up FOR TESTING.
|
||||
METHODS discount_on_long_hire FOR TESTING.
|
||||
METHODS no_discount_on_short_hire FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS ltc_scaffold_fee IMPLEMENTATION.
|
||||
METHOD setup.
|
||||
mo_cut = NEW {{p}}scaffold_fee( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD base_fee_only.
|
||||
DATA lv_exp TYPE {{p}}if_hire_fee=>ty_amount.
|
||||
DATA(ls_result) = mo_cut->{{p}}if_hire_fee~calculate_fee(
|
||||
iv_days = 3 iv_parts = 2 iv_express = abap_false ).
|
||||
lv_exp = '25.20'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-fee ).
|
||||
lv_exp = '0.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-discount ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD express_surcharge_rounds_up.
|
||||
DATA lv_exp TYPE {{p}}if_hire_fee=>ty_amount.
|
||||
DATA(ls_result) = mo_cut->{{p}}if_hire_fee~calculate_fee(
|
||||
iv_days = 2 iv_parts = 1 iv_express = abap_true ).
|
||||
lv_exp = '9.41'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-fee ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD discount_on_long_hire.
|
||||
DATA lv_exp TYPE {{p}}if_hire_fee=>ty_amount.
|
||||
DATA(ls_result) = mo_cut->{{p}}if_hire_fee~calculate_fee(
|
||||
iv_days = 31 iv_parts = 5 iv_express = abap_false ).
|
||||
lv_exp = '39.06'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-discount ).
|
||||
lv_exp = '611.94'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-fee ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD no_discount_on_short_hire.
|
||||
DATA lv_exp TYPE {{p}}if_hire_fee=>ty_amount.
|
||||
DATA(ls_result) = mo_cut->{{p}}if_hire_fee~calculate_fee(
|
||||
iv_days = 30 iv_parts = 1 iv_express = abap_false ).
|
||||
lv_exp = '0.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_result-discount ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user