Step F first pass: 81/92 accepted; budget floor 60 calls; rejected slots moved for regeneration

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
2026-10-03 12:10:52 +02:00
parent d3250acfb8
commit 39769afce8
741 changed files with 40573 additions and 317 deletions

View File

@@ -0,0 +1,44 @@
FUNCTION {{p}}groom_fee
IMPORTING
iv_size TYPE string
iv_long_hair TYPE abap_bool
iv_weekend TYPE abap_bool
iv_channel TYPE string
EXPORTING
ev_skip TYPE abap_bool
CHANGING
cv_fee TYPE decfloat34
EXCEPTIONS
invalid_size.
DATA lv_base TYPE decfloat34.
ev_skip = abap_false.
CASE iv_size.
WHEN 'S'.
lv_base = '26.50'.
WHEN 'M'.
lv_base = '42.50'.
WHEN 'L'.
lv_base = '64.50'.
WHEN OTHERS.
RAISE invalid_size.
ENDCASE.
IF iv_channel = 'PARTNER'.
ev_skip = abap_true.
RETURN.
ENDIF.
cv_fee = lv_base.
IF iv_long_hair = abap_true.
cv_fee = cv_fee + round( val = lv_base * 15 / 100
dec = 2
mode = cl_abap_math=>round_half_up ).
ENDIF.
IF iv_weekend = abap_true.
cv_fee = cv_fee + 10.
ENDIF.
ENDFUNCTION.

View File

@@ -0,0 +1,86 @@
CLASS {{p}}t14_test DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS fee_for
IMPORTING iv_size TYPE string
iv_long_hair TYPE abap_bool
iv_weekend TYPE abap_bool
iv_channel TYPE string
RETURNING VALUE(rv_fee) TYPE decfloat34.
METHODS base_fee FOR TESTING.
METHODS surcharges FOR TESTING.
METHODS partner_channel FOR TESTING.
METHODS invalid_size FOR TESTING.
ENDCLASS.
CLASS {{p}}t14_test IMPLEMENTATION.
METHOD fee_for.
DATA lv_skip TYPE abap_bool.
CALL FUNCTION '{{P}}GROOM_FEE'
EXPORTING
iv_size = iv_size
iv_long_hair = iv_long_hair
iv_weekend = iv_weekend
iv_channel = iv_channel
IMPORTING
ev_skip = lv_skip
CHANGING
cv_fee = rv_fee
EXCEPTIONS
invalid_size = 1
OTHERS = 2.
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
ENDMETHOD.
METHOD base_fee.
cl_abap_unit_assert=>assert_equals(
exp = CONV decfloat34( '42.50' )
act = fee_for( iv_size = `M` iv_long_hair = abap_false
iv_weekend = abap_false iv_channel = `SHOP` ) ).
ENDMETHOD.
METHOD surcharges.
cl_abap_unit_assert=>assert_equals(
exp = CONV decfloat34( '30.48' )
act = fee_for( iv_size = `S` iv_long_hair = abap_true
iv_weekend = abap_false iv_channel = `SHOP` ) ).
cl_abap_unit_assert=>assert_equals(
exp = CONV decfloat34( '52.50' )
act = fee_for( iv_size = `M` iv_long_hair = abap_false
iv_weekend = abap_true iv_channel = `SHOP` ) ).
ENDMETHOD.
METHOD partner_channel.
DATA lv_skip TYPE abap_bool.
DATA lv_fee TYPE decfloat34 VALUE 5.
CALL FUNCTION '{{P}}GROOM_FEE'
EXPORTING
iv_size = `L`
iv_long_hair = abap_false
iv_weekend = abap_false
iv_channel = `PARTNER`
IMPORTING
ev_skip = lv_skip
CHANGING
cv_fee = lv_fee.
cl_abap_unit_assert=>assert_true( lv_skip ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 5 ) act = lv_fee ).
ENDMETHOD.
METHOD invalid_size.
DATA lv_fee TYPE decfloat34.
CALL FUNCTION '{{P}}GROOM_FEE'
EXPORTING
iv_size = `XL`
iv_long_hair = abap_false
iv_weekend = abap_false
iv_channel = `SHOP`
CHANGING
cv_fee = lv_fee
EXCEPTIONS
invalid_size = 1
OTHERS = 2.
cl_abap_unit_assert=>assert_equals( exp = 1 act = sy-subrc ).
ENDMETHOD.
ENDCLASS.