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,74 @@
CLASS {{p}}claim_checker DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES:
ty_policy_id TYPE c LENGTH 10,
ty_amount TYPE p LENGTH 8 DECIMALS 2,
BEGIN OF ty_claim,
policy_id TYPE ty_policy_id,
vehicle_age TYPE i,
damage TYPE ty_amount,
deductible TYPE ty_amount,
report_days TYPE i,
photo_count TYPE i,
END OF ty_claim.
CONSTANTS c_max_payout TYPE ty_amount VALUE '10000.00'.
METHODS check_claim
IMPORTING is_claim TYPE ty_claim
RETURNING VALUE(rv_payout) TYPE ty_amount
RAISING {{p}}cx_claim_error.
PRIVATE SECTION.
METHODS validate
IMPORTING is_claim TYPE ty_claim
RAISING {{p}}cx_claim_error.
METHODS raise_error
IMPORTING iv_reason TYPE {{p}}cx_claim_error=>ty_reason
RAISING {{p}}cx_claim_error.
ENDCLASS.
CLASS {{p}}claim_checker IMPLEMENTATION.
METHOD check_claim.
validate( is_claim ).
rv_payout = is_claim-damage - is_claim-deductible.
IF rv_payout > c_max_payout.
rv_payout = c_max_payout.
ENDIF.
ENDMETHOD.
METHOD validate.
IF substring( val = is_claim-policy_id len = 1 ) <> 'P'
OR substring( val = is_claim-policy_id off = 1 ) CN '0123456789'.
raise_error( 'POLICY' ).
ENDIF.
IF is_claim-report_days < 0 OR is_claim-report_days > 14.
raise_error( 'LATE' ).
ENDIF.
IF is_claim-vehicle_age < 0 OR is_claim-vehicle_age > 12.
raise_error( 'AGED' ).
ENDIF.
IF is_claim-photo_count < 2.
raise_error( 'PHOTOS' ).
ENDIF.
IF is_claim-damage <= 0.
raise_error( 'DAMAGE' ).
ENDIF.
IF is_claim-deductible < 0 OR is_claim-deductible > is_claim-damage.
raise_error( 'DEDUCT' ).
ENDIF.
ENDMETHOD.
METHOD raise_error.
RAISE EXCEPTION TYPE {{p}}cx_claim_error
EXPORTING
iv_reason = iv_reason.
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,132 @@
CLASS ltc_claim_checker DEFINITION FINAL FOR TESTING
DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA mo_cut TYPE REF TO {{p}}claim_checker.
METHODS setup.
METHODS claim
RETURNING VALUE(rs_claim) TYPE {{p}}claim_checker=>ty_claim.
METHODS payout
IMPORTING is_claim TYPE {{p}}claim_checker=>ty_claim
RETURNING VALUE(rv_payout) TYPE {{p}}claim_checker=>ty_amount.
METHODS pays_claim FOR TESTING.
METHODS caps_payout FOR TESTING.
METHODS rejects_policy FOR TESTING.
METHODS rejects_late FOR TESTING.
METHODS rejects_old_car FOR TESTING.
METHODS rejects_photos FOR TESTING.
METHODS rejects_damage FOR TESTING.
METHODS rejects_deductible FOR TESTING.
ENDCLASS.
CLASS ltc_claim_checker IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}claim_checker( ).
ENDMETHOD.
METHOD claim.
rs_claim = VALUE #( policy_id = 'P123456789'
vehicle_age = 3
damage = '2500.00'
deductible = '500.00'
report_days = 5
photo_count = 3 ).
ENDMETHOD.
METHOD payout.
TRY.
rv_payout = mo_cut->check_claim( is_claim ).
CATCH {{p}}cx_claim_error INTO DATA(lo_error).
cl_abap_unit_assert=>fail(
msg = |Unexpected rejection { lo_error->mv_reason }| ).
ENDTRY.
ENDMETHOD.
METHOD pays_claim.
cl_abap_unit_assert=>assert_equals(
exp = CONV {{p}}claim_checker=>ty_amount( '2000.00' )
act = payout( claim( ) ) ).
ENDMETHOD.
METHOD caps_payout.
DATA(ls_claim) = claim( ).
ls_claim-damage = '50000.00'.
cl_abap_unit_assert=>assert_equals(
exp = {{p}}claim_checker=>c_max_payout
act = payout( ls_claim ) ).
ENDMETHOD.
METHOD rejects_policy.
DATA(ls_claim) = claim( ).
ls_claim-policy_id = 'X123456789'.
TRY.
mo_cut->check_claim( ls_claim ).
cl_abap_unit_assert=>fail( msg = 'no exception' ).
CATCH {{p}}cx_claim_error INTO DATA(lo_error).
cl_abap_unit_assert=>assert_equals( exp = 'POLICY'
act = lo_error->mv_reason ).
ENDTRY.
ENDMETHOD.
METHOD rejects_late.
DATA(ls_claim) = claim( ).
ls_claim-report_days = 20.
TRY.
mo_cut->check_claim( ls_claim ).
cl_abap_unit_assert=>fail( msg = 'no exception' ).
CATCH {{p}}cx_claim_error INTO DATA(lo_error).
cl_abap_unit_assert=>assert_equals( exp = 'LATE'
act = lo_error->mv_reason ).
ENDTRY.
ENDMETHOD.
METHOD rejects_old_car.
DATA(ls_claim) = claim( ).
ls_claim-vehicle_age = 20.
TRY.
mo_cut->check_claim( ls_claim ).
cl_abap_unit_assert=>fail( msg = 'no exception' ).
CATCH {{p}}cx_claim_error INTO DATA(lo_error).
cl_abap_unit_assert=>assert_equals( exp = 'AGED'
act = lo_error->mv_reason ).
ENDTRY.
ENDMETHOD.
METHOD rejects_photos.
DATA(ls_claim) = claim( ).
ls_claim-photo_count = 0.
TRY.
mo_cut->check_claim( ls_claim ).
cl_abap_unit_assert=>fail( msg = 'no exception' ).
CATCH {{p}}cx_claim_error INTO DATA(lo_error).
cl_abap_unit_assert=>assert_equals( exp = 'PHOTOS'
act = lo_error->mv_reason ).
ENDTRY.
ENDMETHOD.
METHOD rejects_damage.
DATA(ls_claim) = claim( ).
ls_claim-damage = 0.
TRY.
mo_cut->check_claim( ls_claim ).
cl_abap_unit_assert=>fail( msg = 'no exception' ).
CATCH {{p}}cx_claim_error INTO DATA(lo_error).
cl_abap_unit_assert=>assert_equals( exp = 'DAMAGE'
act = lo_error->mv_reason ).
ENDTRY.
ENDMETHOD.
METHOD rejects_deductible.
DATA(ls_claim) = claim( ).
ls_claim-deductible = '9000.00'.
TRY.
mo_cut->check_claim( ls_claim ).
cl_abap_unit_assert=>fail( msg = 'no exception' ).
CATCH {{p}}cx_claim_error INTO DATA(lo_error).
cl_abap_unit_assert=>assert_equals( exp = 'DEDUCT'
act = lo_error->mv_reason ).
ENDTRY.
ENDMETHOD.
ENDCLASS.