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,140 @@
CLASS {{p}}t31_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA mo_cut TYPE REF TO {{p}}fish_auction.
METHODS setup.
METHODS sums_two_species FOR TESTING.
METHODS counts_distinct_boats FOR TESTING.
METHODS ignores_zero_weight FOR TESTING.
METHODS ignores_blank_species FOR TESTING.
METHODS trims_and_uppercases FOR TESTING.
METHODS sorts_by_species FOR TESTING.
METHODS empty_input FOR TESTING.
METHODS all_entries_invalid FOR TESTING.
METHODS best_species_highest FOR TESTING.
METHODS best_species_tie FOR TESTING.
METHODS best_species_none FOR TESTING.
ENDCLASS.
CLASS {{p}}t31_hidden IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}fish_auction( ).
ENDMETHOD.
METHOD sums_two_species.
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
lt_result = mo_cut->summarize( VALUE #(
( boat_id = 'B1' species = 'COD' weight_kg = 100 )
( boat_id = 'B2' species = 'COD' weight_kg = 50 )
( boat_id = 'B1' species = 'HERRING' weight_kg = 30 ) ) ).
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 2 ).
READ TABLE lt_result INTO DATA(ls_row) WITH KEY species = 'COD'.
cl_abap_unit_assert=>assert_equals( act = ls_row-total_weight exp = 150 ).
cl_abap_unit_assert=>assert_equals( act = ls_row-boat_count exp = 2 ).
READ TABLE lt_result INTO ls_row WITH KEY species = 'HERRING'.
cl_abap_unit_assert=>assert_equals( act = ls_row-total_weight exp = 30 ).
cl_abap_unit_assert=>assert_equals( act = ls_row-boat_count exp = 1 ).
ENDMETHOD.
METHOD counts_distinct_boats.
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
lt_result = mo_cut->summarize( VALUE #(
( boat_id = 'B1' species = 'COD' weight_kg = 10 )
( boat_id = 'B1' species = 'COD' weight_kg = 20 )
( boat_id = 'B2' species = 'COD' weight_kg = 5 ) ) ).
READ TABLE lt_result INTO DATA(ls_row) WITH KEY species = 'COD'.
cl_abap_unit_assert=>assert_equals( act = ls_row-total_weight exp = 35 ).
cl_abap_unit_assert=>assert_equals( act = ls_row-boat_count exp = 2 ).
ENDMETHOD.
METHOD ignores_zero_weight.
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
lt_result = mo_cut->summarize( VALUE #(
( boat_id = 'B1' species = 'COD' weight_kg = 0 )
( boat_id = 'B2' species = 'COD' weight_kg = -5 )
( boat_id = 'B3' species = 'COD' weight_kg = 7 ) ) ).
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 1 ).
READ TABLE lt_result INTO DATA(ls_row) WITH KEY species = 'COD'.
cl_abap_unit_assert=>assert_equals( act = ls_row-total_weight exp = 7 ).
cl_abap_unit_assert=>assert_equals( act = ls_row-boat_count exp = 1 ).
ENDMETHOD.
METHOD ignores_blank_species.
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
lt_result = mo_cut->summarize( VALUE #(
( boat_id = 'B1' species = '' weight_kg = 10 )
( boat_id = 'B2' species = ' ' weight_kg = 20 )
( boat_id = 'B3' species = 'COD' weight_kg = 5 ) ) ).
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 1 ).
READ TABLE lt_result INTO DATA(ls_row) WITH KEY species = 'COD'.
cl_abap_unit_assert=>assert_equals( act = ls_row-total_weight exp = 5 ).
ENDMETHOD.
METHOD trims_and_uppercases.
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
lt_result = mo_cut->summarize( VALUE #(
( boat_id = 'B1' species = ' cod ' weight_kg = 10 )
( boat_id = 'B2' species = 'COD' weight_kg = 20 ) ) ).
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 1 ).
READ TABLE lt_result INTO DATA(ls_row) WITH KEY species = 'COD'.
cl_abap_unit_assert=>assert_equals( act = ls_row-total_weight exp = 30 ).
cl_abap_unit_assert=>assert_equals( act = ls_row-boat_count exp = 2 ).
ENDMETHOD.
METHOD sorts_by_species.
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
lt_result = mo_cut->summarize( VALUE #(
( boat_id = 'B1' species = 'TUNA' weight_kg = 10 )
( boat_id = 'B2' species = 'COD' weight_kg = 20 )
( boat_id = 'B3' species = 'MACKEREL' weight_kg = 5 ) ) ).
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 3 ).
READ TABLE lt_result INTO DATA(ls_row) INDEX 1.
cl_abap_unit_assert=>assert_equals( act = ls_row-species exp = 'COD' ).
READ TABLE lt_result INTO ls_row INDEX 3.
cl_abap_unit_assert=>assert_equals( act = ls_row-species exp = 'TUNA' ).
ENDMETHOD.
METHOD empty_input.
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
lt_result = mo_cut->summarize( VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 0 ).
ENDMETHOD.
METHOD all_entries_invalid.
DATA lt_result TYPE STANDARD TABLE OF {{p}}fish_auction=>ty_summary WITH EMPTY KEY.
lt_result = mo_cut->summarize( VALUE #(
( boat_id = 'B1' species = ' ' weight_kg = 10 )
( boat_id = 'B2' species = 'COD' weight_kg = 0 ) ) ).
cl_abap_unit_assert=>assert_equals( act = lines( lt_result ) exp = 0 ).
ENDMETHOD.
METHOD best_species_highest.
cl_abap_unit_assert=>assert_equals(
act = mo_cut->best_species( VALUE #(
( boat_id = 'B1' species = 'COD' weight_kg = 10 )
( boat_id = 'B2' species = 'TUNA' weight_kg = 40 )
( boat_id = 'B3' species = 'HERRING' weight_kg = 25 ) ) )
exp = 'TUNA' ).
ENDMETHOD.
METHOD best_species_tie.
cl_abap_unit_assert=>assert_equals(
act = mo_cut->best_species( VALUE #(
( boat_id = 'B1' species = 'TUNA' weight_kg = 30 )
( boat_id = 'B2' species = 'COD' weight_kg = 30 ) ) )
exp = 'COD' ).
ENDMETHOD.
METHOD best_species_none.
cl_abap_unit_assert=>assert_initial( mo_cut->best_species( VALUE #( ) ) ).
ENDMETHOD.
ENDCLASS.