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:
Kral
2026-10-05 13:35:54 +02:00
parent 1c4667a0fc
commit 13360292dd
781 changed files with 50211 additions and 22 deletions

View File

@@ -0,0 +1,87 @@
CLASS {{p}}piano_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_piano_type TYPE c LENGTH 1.
TYPES ty_amount TYPE p LENGTH 8 DECIMALS 2.
TYPES ty_reason TYPE c LENGTH 8.
TYPES:
BEGIN OF ty_charge,
reason TYPE ty_reason,
base_fee TYPE ty_amount,
travel_fee TYPE ty_amount,
extra_fee TYPE ty_amount,
total_fee TYPE ty_amount,
END OF ty_charge.
CONSTANTS:
BEGIN OF c_reason,
ok TYPE ty_reason VALUE 'OK',
unknown TYPE ty_reason VALUE 'UNKNOWN',
distance TYPE ty_reason VALUE 'DISTANCE',
pitch TYPE ty_reason VALUE 'PITCH',
END OF c_reason.
METHODS calculate
IMPORTING iv_piano_type TYPE ty_piano_type
iv_distance_km TYPE i
iv_pitch_cents TYPE i
RETURNING VALUE(rs_charge) TYPE ty_charge.
PRIVATE SECTION.
CONSTANTS c_standard_minutes TYPE i VALUE 45.
METHODS rate_for
IMPORTING iv_piano_type TYPE ty_piano_type
RETURNING VALUE(rs_rate) TYPE {{p}}tune_rates=>ty_rate.
METHODS calc_extra_fee
IMPORTING iv_pitch_cents TYPE i
is_rate TYPE {{p}}tune_rates=>ty_rate
RETURNING VALUE(rv_fee) TYPE ty_amount.
METHODS calc_travel_fee
IMPORTING iv_distance_km TYPE i
RETURNING VALUE(rv_fee) TYPE ty_amount.
ENDCLASS.
CLASS {{p}}piano_pricer IMPLEMENTATION.
METHOD calculate.
DATA(ls_rate) = rate_for( iv_piano_type ).
IF ls_rate IS INITIAL.
rs_charge = VALUE #( reason = c_reason-unknown ).
RETURN.
ENDIF.
IF iv_distance_km < 0.
rs_charge = VALUE #( reason = c_reason-distance ).
RETURN.
ENDIF.
IF iv_pitch_cents < 0.
rs_charge = VALUE #( reason = c_reason-pitch ).
RETURN.
ENDIF.
rs_charge = VALUE #( reason = c_reason-ok
base_fee = ls_rate-base_fee
travel_fee = calc_travel_fee( iv_distance_km )
extra_fee = calc_extra_fee( iv_pitch_cents = iv_pitch_cents
is_rate = ls_rate ) ).
rs_charge-total_fee = rs_charge-base_fee + rs_charge-travel_fee + rs_charge-extra_fee.
ENDMETHOD.
METHOD rate_for.
DATA(lo_rates) = NEW {{p}}tune_rates( ).
DATA(lt_rate) = lo_rates->get_rates( ).
READ TABLE lt_rate WITH KEY piano_type = iv_piano_type INTO rs_rate.
ENDMETHOD.
METHOD calc_extra_fee.
DATA(lv_extra_minutes) = c_standard_minutes + iv_pitch_cents - is_rate-incl_minutes.
IF lv_extra_minutes <= 0.
RETURN.
ENDIF.
rv_fee = lv_extra_minutes * is_rate-minute_fee.
ENDMETHOD.
METHOD calc_travel_fee.
DATA(lv_chargeable_km) = iv_distance_km - {{p}}tune_rates=>c_free_km.
IF lv_chargeable_km <= 0.
RETURN.
ENDIF.
rv_fee = lv_chargeable_km * {{p}}tune_rates=>c_km_fee.
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,84 @@
CLASS ltc_piano_pricer DEFINITION FINAL 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_visit FOR TESTING.
METHODS pitch_raise FOR TESTING.
METHODS far_visit FOR TESTING.
METHODS unknown_piano FOR TESTING.
METHODS invalid_distance FOR TESTING.
METHODS invalid_pitch FOR TESTING.
ENDCLASS.
CLASS ltc_piano_pricer 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 ).
cl_abap_unit_assert=>assert_equals( exp = iv_base act = is_charge-base_fee ).
cl_abap_unit_assert=>assert_equals( exp = iv_travel act = is_charge-travel_fee ).
cl_abap_unit_assert=>assert_equals( exp = iv_extra act = is_charge-extra_fee ).
cl_abap_unit_assert=>assert_equals( exp = iv_total act = is_charge-total_fee ).
ENDMETHOD.
METHOD upright_visit.
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'U'
iv_distance_km = 3
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 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 far_visit.
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 unknown_piano.
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'Z'
iv_distance_km = 0
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 invalid_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 invalid_pitch.
DATA(ls_charge) = mo_cut->calculate( iv_piano_type = 'U'
iv_distance_km = 0
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.
ENDCLASS.