Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
74
tasks_gen/train/G1076/reference/claim_checker.clas.abap
Normal file
74
tasks_gen/train/G1076/reference/claim_checker.clas.abap
Normal 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.
|
||||
132
tasks_gen/train/G1076/reference/claim_checker.testclasses.abap
Normal file
132
tasks_gen/train/G1076/reference/claim_checker.testclasses.abap
Normal 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.
|
||||
Reference in New Issue
Block a user