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,113 @@
CLASS {{p}}escape_checker DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_room TYPE c LENGTH 4.
TYPES ty_price TYPE p LENGTH 8 DECIMALS 2.
METHODS check_booking
IMPORTING iv_room TYPE ty_room
iv_players TYPE i
iv_youngest_age TYPE i
iv_lead_hours TYPE i
RETURNING VALUE(rv_price) TYPE ty_price
RAISING {{p}}cx_escape_room
{{p}}cx_escape_players
{{p}}cx_escape_age
{{p}}cx_escape_time.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_rule,
room_code TYPE ty_room,
min_players TYPE i,
max_players TYPE i,
min_age TYPE i,
price_per_player TYPE ty_price,
min_lead_hours TYPE i,
END OF ty_rule,
tt_rule TYPE HASHED TABLE OF ty_rule WITH UNIQUE KEY room_code.
METHODS rules
RETURNING VALUE(rt_rule) TYPE tt_rule.
METHODS find_rule
IMPORTING iv_room TYPE ty_room
RETURNING VALUE(rs_rule) TYPE ty_rule
RAISING {{p}}cx_escape_room.
METHODS check_players
IMPORTING is_rule TYPE ty_rule
iv_players TYPE i
RAISING {{p}}cx_escape_players.
METHODS check_age
IMPORTING is_rule TYPE ty_rule
iv_age TYPE i
RAISING {{p}}cx_escape_age.
METHODS check_lead_hours
IMPORTING is_rule TYPE ty_rule
iv_lead_hours TYPE i
RAISING {{p}}cx_escape_time.
METHODS booking_price
IMPORTING is_rule TYPE ty_rule
iv_players TYPE i
RETURNING VALUE(rv_price) TYPE ty_price.
ENDCLASS.
CLASS {{p}}escape_checker IMPLEMENTATION.
METHOD check_booking.
DATA(ls_rule) = find_rule( iv_room ).
check_players( is_rule = ls_rule iv_players = iv_players ).
check_age( is_rule = ls_rule iv_age = iv_youngest_age ).
check_lead_hours( is_rule = ls_rule iv_lead_hours = iv_lead_hours ).
rv_price = booking_price( is_rule = ls_rule iv_players = iv_players ).
ENDMETHOD.
METHOD rules.
rt_rule = VALUE #(
( room_code = 'MARS' min_players = 2 max_players = 6 min_age = 12 price_per_player = 25 min_lead_hours = 2 )
( room_code = 'DEEP' min_players = 3 max_players = 8 min_age = 16 price_per_player = 30 min_lead_hours = 4 )
( room_code = 'JUNG' min_players = 2 max_players = 4 min_age = 8 price_per_player = 22 min_lead_hours = 1 )
( room_code = 'BANK' min_players = 4 max_players = 10 min_age = 18 price_per_player = 35 min_lead_hours = 6 ) ).
ENDMETHOD.
METHOD find_rule.
DATA lv_room TYPE ty_room.
lv_room = to_upper( replace( val = iv_room sub = ` ` with = `` occ = 0 ) ).
DATA(lt_rule) = rules( ).
READ TABLE lt_rule INTO rs_rule WITH TABLE KEY room_code = lv_room.
IF sy-subrc <> 0.
RAISE EXCEPTION TYPE {{p}}cx_escape_room
EXPORTING iv_text = |Room { iv_room } is not known|.
ENDIF.
ENDMETHOD.
METHOD check_players.
IF iv_players < is_rule-min_players.
RAISE EXCEPTION TYPE {{p}}cx_escape_players
EXPORTING iv_text = 'The group is smaller than the minimum of the room'.
ENDIF.
IF iv_players > is_rule-max_players.
RAISE EXCEPTION TYPE {{p}}cx_escape_players
EXPORTING iv_text = 'The group is larger than the maximum of the room'.
ENDIF.
ENDMETHOD.
METHOD check_age.
IF iv_age < is_rule-min_age.
RAISE EXCEPTION TYPE {{p}}cx_escape_age
EXPORTING iv_text = 'The youngest player is too young for the room'.
ENDIF.
ENDMETHOD.
METHOD check_lead_hours.
IF iv_lead_hours < is_rule-min_lead_hours.
RAISE EXCEPTION TYPE {{p}}cx_escape_time
EXPORTING iv_text = 'The booking is too close to the start of the game'.
ENDIF.
ENDMETHOD.
METHOD booking_price.
rv_price = iv_players * is_rule-price_per_player.
IF iv_players = is_rule-max_players.
rv_price = rv_price * 90 / 100.
ENDIF.
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,98 @@
CLASS ltc_escape_checker DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA mo_cut TYPE REF TO {{p}}escape_checker.
METHODS setup.
METHODS mars_price FOR TESTING.
METHODS group_discount FOR TESTING.
METHODS deep_price FOR TESTING.
METHODS unknown_room FOR TESTING.
METHODS too_many_players FOR TESTING.
METHODS too_young FOR TESTING.
METHODS lead_time_too_short FOR TESTING.
METHODS assert_price
IMPORTING iv_room TYPE {{p}}escape_checker=>ty_room
iv_players TYPE i
iv_age TYPE i
iv_lead TYPE i
iv_exp TYPE {{p}}escape_checker=>ty_price.
ENDCLASS.
CLASS ltc_escape_checker IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}escape_checker( ).
ENDMETHOD.
METHOD mars_price.
assert_price( iv_room = 'MARS' iv_players = 2 iv_age = 12 iv_lead = 2 iv_exp = '50.00' ).
ENDMETHOD.
METHOD group_discount.
assert_price( iv_room = 'MARS' iv_players = 6 iv_age = 12 iv_lead = 2 iv_exp = '135.00' ).
ENDMETHOD.
METHOD deep_price.
assert_price( iv_room = 'DEEP' iv_players = 3 iv_age = 16 iv_lead = 4 iv_exp = '90.00' ).
ENDMETHOD.
METHOD unknown_room.
TRY.
mo_cut->check_booking( iv_room = 'XXXX' iv_players = 2
iv_youngest_age = 12 iv_lead_hours = 2 ).
cl_abap_unit_assert=>fail( 'Exception expected' ).
CATCH {{p}}cx_escape_room INTO DATA(lo_error).
cl_abap_unit_assert=>assert_bound( lo_error ).
CATCH {{p}}cx_escape_error INTO DATA(lo_other).
cl_abap_unit_assert=>fail( |Wrong exception: { lo_other->get_text( ) }| ).
ENDTRY.
ENDMETHOD.
METHOD too_many_players.
TRY.
mo_cut->check_booking( iv_room = 'MARS' iv_players = 7
iv_youngest_age = 12 iv_lead_hours = 2 ).
cl_abap_unit_assert=>fail( 'Exception expected' ).
CATCH {{p}}cx_escape_players INTO DATA(lo_error).
cl_abap_unit_assert=>assert_bound( lo_error ).
CATCH {{p}}cx_escape_error INTO DATA(lo_other).
cl_abap_unit_assert=>fail( |Wrong exception: { lo_other->get_text( ) }| ).
ENDTRY.
ENDMETHOD.
METHOD too_young.
TRY.
mo_cut->check_booking( iv_room = 'MARS' iv_players = 2
iv_youngest_age = 11 iv_lead_hours = 2 ).
cl_abap_unit_assert=>fail( 'Exception expected' ).
CATCH {{p}}cx_escape_age INTO DATA(lo_error).
cl_abap_unit_assert=>assert_bound( lo_error ).
CATCH {{p}}cx_escape_error INTO DATA(lo_other).
cl_abap_unit_assert=>fail( |Wrong exception: { lo_other->get_text( ) }| ).
ENDTRY.
ENDMETHOD.
METHOD lead_time_too_short.
TRY.
mo_cut->check_booking( iv_room = 'MARS' iv_players = 2
iv_youngest_age = 12 iv_lead_hours = 1 ).
cl_abap_unit_assert=>fail( 'Exception expected' ).
CATCH {{p}}cx_escape_time INTO DATA(lo_error).
cl_abap_unit_assert=>assert_bound( lo_error ).
CATCH {{p}}cx_escape_error INTO DATA(lo_other).
cl_abap_unit_assert=>fail( |Wrong exception: { lo_other->get_text( ) }| ).
ENDTRY.
ENDMETHOD.
METHOD assert_price.
TRY.
cl_abap_unit_assert=>assert_equals(
exp = iv_exp
act = mo_cut->check_booking( iv_room = iv_room iv_players = iv_players
iv_youngest_age = iv_age iv_lead_hours = iv_lead ) ).
CATCH {{p}}cx_escape_error INTO DATA(lo_error).
cl_abap_unit_assert=>fail( |Unexpected exception: { lo_error->get_text( ) }| ).
ENDTRY.
ENDMETHOD.
ENDCLASS.