Stage 2 summary at 50 accepted trajectories

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 18:02:52 +02:00
parent 332fb4601d
commit 5bcd1bf9cd
1230 changed files with 77563 additions and 33 deletions

View File

@@ -0,0 +1,9 @@
CLASS {{p}}cx_shift_error DEFINITION PUBLIC INHERITING FROM cx_static_check
FINAL CREATE PUBLIC.
PUBLIC SECTION.
DATA mv_reason TYPE c LENGTH 10.
ENDCLASS.
CLASS {{p}}cx_shift_error IMPLEMENTATION.
ENDCLASS.

View File

@@ -0,0 +1,108 @@
CLASS {{p}}shift_booker DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_amount TYPE p LENGTH 9 DECIMALS 2.
TYPES ty_hours TYPE p LENGTH 5 DECIMALS 2.
TYPES ty_mode TYPE c LENGTH 3.
TYPES ty_group TYPE c LENGTH 1.
TYPES ty_order TYPE c LENGTH 10.
TYPES:
BEGIN OF ty_shift,
order_no TYPE ty_order,
start_date TYPE d,
work_hours TYPE ty_hours,
calc_mode TYPE ty_mode,
group_code TYPE ty_group,
piece_count TYPE i,
END OF ty_shift.
METHODS evaluate
IMPORTING is_shift TYPE ty_shift
RETURNING VALUE(rv_pay) TYPE ty_amount
RAISING {{p}}cx_shift_error.
PRIVATE SECTION.
TYPES ty_reason TYPE c LENGTH 10.
CONSTANTS c_piece_bonus TYPE ty_amount VALUE '0.50'.
METHODS check_shift
IMPORTING is_shift TYPE ty_shift
RAISING {{p}}cx_shift_error.
METHODS raise_error
IMPORTING iv_reason TYPE ty_reason
RAISING {{p}}cx_shift_error.
METHODS base_rate
IMPORTING iv_group_code TYPE ty_group
RETURNING VALUE(rv_rate) TYPE ty_amount.
METHODS mode_factor
IMPORTING iv_calc_mode TYPE ty_mode
RETURNING VALUE(rv_factor) TYPE ty_amount.
ENDCLASS.
CLASS {{p}}shift_booker IMPLEMENTATION.
METHOD evaluate.
check_shift( is_shift ).
DATA lv_hour_rate TYPE ty_amount.
lv_hour_rate = base_rate( is_shift-group_code ) * mode_factor( is_shift-calc_mode ).
rv_pay = is_shift-work_hours * lv_hour_rate + is_shift-piece_count * c_piece_bonus.
ENDMETHOD.
METHOD check_shift.
IF is_shift-order_no IS INITIAL.
raise_error( 'ORDER' ).
ENDIF.
IF is_shift-start_date IS INITIAL.
raise_error( 'DATE' ).
ENDIF.
IF is_shift-work_hours <= 0.
raise_error( 'HOURS' ).
ENDIF.
IF is_shift-calc_mode <> 'STD'
AND is_shift-calc_mode <> 'OT1'
AND is_shift-calc_mode <> 'OT2'.
raise_error( 'MODE' ).
ENDIF.
IF is_shift-group_code <> 'A'
AND is_shift-group_code <> 'B'
AND is_shift-group_code <> 'C'.
raise_error( 'GROUP' ).
ENDIF.
IF is_shift-piece_count < 1.
raise_error( 'COUNT' ).
ENDIF.
ENDMETHOD.
METHOD raise_error.
DATA(lx_error) = NEW {{p}}cx_shift_error( ).
lx_error->mv_reason = iv_reason.
RAISE EXCEPTION lx_error.
ENDMETHOD.
METHOD base_rate.
CASE iv_group_code.
WHEN 'A'.
rv_rate = '18.00'.
WHEN 'B'.
rv_rate = '22.00'.
WHEN 'C'.
rv_rate = '26.00'.
WHEN OTHERS.
rv_rate = '0.00'.
ENDCASE.
ENDMETHOD.
METHOD mode_factor.
CASE iv_calc_mode.
WHEN 'STD'.
rv_factor = '1.00'.
WHEN 'OT1'.
rv_factor = '1.50'.
WHEN 'OT2'.
rv_factor = '2.00'.
WHEN OTHERS.
rv_factor = '0.00'.
ENDCASE.
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,105 @@
CLASS ltc_shift_booker DEFINITION FINAL FOR TESTING
DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
TYPES ty_reason TYPE c LENGTH 10.
DATA mo_cut TYPE REF TO {{p}}shift_booker.
METHODS setup.
METHODS valid_shift
RETURNING VALUE(rs_shift) TYPE {{p}}shift_booker=>ty_shift.
METHODS expect_reason
IMPORTING is_shift TYPE {{p}}shift_booker=>ty_shift
iv_reason TYPE ty_reason.
METHODS expect_pay
IMPORTING is_shift TYPE {{p}}shift_booker=>ty_shift
iv_pay TYPE {{p}}shift_booker=>ty_amount.
METHODS standard_pay FOR TESTING.
METHODS overtime_pay FOR TESTING.
METHODS empty_order FOR TESTING.
METHODS zero_hours FOR TESTING.
METHODS bad_mode FOR TESTING.
METHODS bad_group FOR TESTING.
METHODS zero_pieces FOR TESTING.
ENDCLASS.
CLASS ltc_shift_booker IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}shift_booker( ).
ENDMETHOD.
METHOD valid_shift.
rs_shift = VALUE #( order_no = '4711'
start_date = '20240212'
work_hours = '8.00'
calc_mode = 'STD'
group_code = 'A'
piece_count = 100 ).
ENDMETHOD.
METHOD expect_reason.
TRY.
mo_cut->evaluate( is_shift ).
cl_abap_unit_assert=>fail( msg = |no exception for { iv_reason }| ).
CATCH {{p}}cx_shift_error INTO DATA(lx_error).
cl_abap_unit_assert=>assert_equals( exp = iv_reason
act = lx_error->mv_reason ).
ENDTRY.
ENDMETHOD.
METHOD expect_pay.
TRY.
cl_abap_unit_assert=>assert_equals( exp = iv_pay
act = mo_cut->evaluate( is_shift ) ).
CATCH {{p}}cx_shift_error.
cl_abap_unit_assert=>fail( msg = 'unexpected exception' ).
ENDTRY.
ENDMETHOD.
METHOD standard_pay.
expect_pay( is_shift = valid_shift( ) iv_pay = '194.00' ).
ENDMETHOD.
METHOD overtime_pay.
DATA(ls_shift) = valid_shift( ).
ls_shift-work_hours = '7.50'.
ls_shift-calc_mode = 'OT1'.
ls_shift-group_code = 'B'.
ls_shift-piece_count = 40.
expect_pay( is_shift = ls_shift iv_pay = '267.50' ).
ENDMETHOD.
METHOD empty_order.
DATA(ls_shift) = valid_shift( ).
ls_shift-order_no = ''.
expect_reason( is_shift = ls_shift iv_reason = 'ORDER' ).
ENDMETHOD.
METHOD zero_hours.
DATA(ls_shift) = valid_shift( ).
ls_shift-work_hours = '0.00'.
expect_reason( is_shift = ls_shift iv_reason = 'HOURS' ).
ENDMETHOD.
METHOD bad_mode.
DATA(ls_shift) = valid_shift( ).
ls_shift-calc_mode = 'XX'.
expect_reason( is_shift = ls_shift iv_reason = 'MODE' ).
ENDMETHOD.
METHOD bad_group.
DATA(ls_shift) = valid_shift( ).
ls_shift-group_code = 'D'.
expect_reason( is_shift = ls_shift iv_reason = 'GROUP' ).
ENDMETHOD.
METHOD zero_pieces.
DATA(ls_shift) = valid_shift( ).
ls_shift-piece_count = 0.
expect_reason( is_shift = ls_shift iv_reason = 'COUNT' ).
ENDMETHOD.
ENDCLASS.