erhan/abap-llm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ADT fallback: Accept headers for FUNC; G0189 accepted; regen2 results

Browse Source 
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 16:31:03 +02:00
parent 428b3565b2
commit 7510131a7d
335 changed files with 12047 additions and 5545 deletions
Download Patch File Download Diff File Expand all files Collapse all files

151
tasks_gen/eval/G0129/reference/cold_chain_check.clas.abap Normal file
View File

@@ -0,0 +1,151 @@
CLASS {{p}}cold_chain_check DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES: BEGIN OF ty_reading,
offset_min TYPE i,
temp_tenths TYPE i,
END OF ty_reading,
tt_readings TYPE STANDARD TABLE OF ty_reading WITH EMPTY KEY,
BEGIN OF ty_config,
min_tenths TYPE i,
max_tenths TYPE i,
min_duration TYPE i,
max_gap TYPE i,
END OF ty_config.
METHODS constructor
IMPORTING is_config TYPE ty_config.
METHODS check
IMPORTING it_readings TYPE tt_readings
RETURNING VALUE(rv_mean) TYPE i
RAISING {{p}}cx_cold_chain.
PRIVATE SECTION.
DATA ms_config TYPE ty_config.
METHODS first_violation
IMPORTING it_readings TYPE tt_readings
RETURNING VALUE(rv_rule) TYPE string.
METHODS check_structure
IMPORTING it_readings TYPE tt_readings
RETURNING VALUE(rv_rule) TYPE string.
METHODS check_duration
IMPORTING it_readings TYPE tt_readings
RETURNING VALUE(rv_rule) TYPE string.
METHODS check_gap
IMPORTING it_readings TYPE tt_readings
RETURNING VALUE(rv_rule) TYPE string.
METHODS check_temperatures
IMPORTING it_readings TYPE tt_readings
RETURNING VALUE(rv_rule) TYPE string.
METHODS mean_tenths
IMPORTING it_readings TYPE tt_readings
RETURNING VALUE(rv_mean) TYPE i.
ENDCLASS.
CLASS {{p}}cold_chain_check IMPLEMENTATION.
METHOD constructor.
ms_config = is_config.
ENDMETHOD.
METHOD check.
DATA(lv_rule) = first_violation( it_readings ).
IF lv_rule IS NOT INITIAL.
RAISE EXCEPTION TYPE {{p}}cx_cold_chain
EXPORTING
iv_rule = lv_rule.
ENDIF.
rv_mean = mean_tenths( it_readings ).
ENDMETHOD.
METHOD first_violation.
rv_rule = check_structure( it_readings ).
IF rv_rule IS NOT INITIAL.
RETURN.
ENDIF.
rv_rule = check_duration( it_readings ).
IF rv_rule IS NOT INITIAL.
RETURN.
ENDIF.
rv_rule = check_gap( it_readings ).
IF rv_rule IS NOT INITIAL.
RETURN.
ENDIF.
rv_rule = check_temperatures( it_readings ).
ENDMETHOD.
METHOD check_structure.
IF lines( it_readings ) < 2.
rv_rule = 'TOO_FEW'.
RETURN.
ENDIF.
READ TABLE it_readings INDEX 1 INTO DATA(ls_first).
IF ls_first-offset_min <> 0.
rv_rule = 'NO_START'.
RETURN.
ENDIF.
DATA(lv_previous) = ls_first-offset_min.
LOOP AT it_readings FROM 2 INTO DATA(ls_reading).
IF ls_reading-offset_min <= lv_previous.
rv_rule = 'TIME_ORDER'.
RETURN.
ENDIF.
lv_previous = ls_reading-offset_min.
ENDLOOP.
ENDMETHOD.
METHOD check_duration.
DATA lv_last TYPE i.
LOOP AT it_readings INTO DATA(ls_reading).
lv_last = ls_reading-offset_min.
ENDLOOP.
IF lv_last < ms_config-min_duration.
rv_rule = 'TOO_SHORT'.
ENDIF.
ENDMETHOD.
METHOD check_gap.
DATA lv_previous TYPE i.
LOOP AT it_readings INTO DATA(ls_reading).
IF sy-tabix > 1 AND ls_reading-offset_min - lv_previous > ms_config-max_gap.
rv_rule = 'GAP'.
RETURN.
ENDIF.
lv_previous = ls_reading-offset_min.
ENDLOOP.
ENDMETHOD.
METHOD check_temperatures.
LOOP AT it_readings INTO DATA(ls_reading).
IF ls_reading-temp_tenths > ms_config-max_tenths.
rv_rule = 'TOO_HIGH'.
RETURN.
ENDIF.
IF ls_reading-temp_tenths < ms_config-min_tenths.
rv_rule = 'TOO_LOW'.
RETURN.
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD mean_tenths.
DATA lv_sum TYPE i.
LOOP AT it_readings INTO DATA(ls_reading).
lv_sum = lv_sum + ls_reading-temp_tenths.
ENDLOOP.
DATA(lv_count) = lines( it_readings ).
IF lv_count = 0.
rv_mean = 0.
RETURN.
ENDIF.
DATA(lv_abs_sum) = lv_sum.
IF lv_abs_sum < 0.
lv_abs_sum = -1 * lv_abs_sum.
ENDIF.
rv_mean = lv_abs_sum DIV lv_count.
IF lv_sum < 0.
rv_mean = -1 * rv_mean.
ENDIF.
ENDMETHOD.
ENDCLASS.

112
tasks_gen/eval/G0129/reference/cold_chain_check.testclasses.abap Normal file
View File

@@ -0,0 +1,112 @@
CLASS ltc_cold_chain DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA mo_cut TYPE REF TO {{p}}cold_chain_check.
METHODS setup.
METHODS mean_of
IMPORTING it_readings TYPE {{p}}cold_chain_check=>tt_readings
RETURNING VALUE(rv_mean) TYPE i.
METHODS rule_of
IMPORTING it_readings TYPE {{p}}cold_chain_check=>tt_readings
RETURNING VALUE(rv_rule) TYPE string.
METHODS valid_log FOR TESTING.
METHODS empty_log FOR TESTING.
METHODS late_start FOR TESTING.
METHODS wrong_order FOR TESTING.
METHODS short_duration FOR TESTING.
METHODS long_gap FOR TESTING.
METHODS too_warm FOR TESTING.
METHODS too_cold FOR TESTING.
ENDCLASS.
CLASS ltc_cold_chain IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}cold_chain_check(
is_config = VALUE #( min_tenths = 20
max_tenths = 80
min_duration = 120
max_gap = 60 ) ).
ENDMETHOD.
METHOD mean_of.
TRY.
rv_mean = mo_cut->check( it_readings ).
CATCH {{p}}cx_cold_chain INTO DATA(lx_error).
cl_abap_unit_assert=>fail( |Unexpected exception: { lx_error->mv_rule }| ).
ENDTRY.
ENDMETHOD.
METHOD rule_of.
TRY.
mo_cut->check( it_readings ).
cl_abap_unit_assert=>fail( `Exception expected` ).
CATCH {{p}}cx_cold_chain INTO DATA(lx_error).
rv_rule = lx_error->mv_rule.
ENDTRY.
ENDMETHOD.
METHOD valid_log.
DATA(lt_readings) = VALUE {{p}}cold_chain_check=>tt_readings(
( offset_min = 0 temp_tenths = 40 )
( offset_min = 30 temp_tenths = 45 )
( offset_min = 60 temp_tenths = 50 )
( offset_min = 120 temp_tenths = 55 ) ).
cl_abap_unit_assert=>assert_equals( exp = 47 act = mean_of( lt_readings ) ).
ENDMETHOD.
METHOD empty_log.
DATA(lt_readings) = VALUE {{p}}cold_chain_check=>tt_readings( ).
cl_abap_unit_assert=>assert_equals( exp = 'TOO_FEW' act = rule_of( lt_readings ) ).
ENDMETHOD.
METHOD late_start.
DATA(lt_readings) = VALUE {{p}}cold_chain_check=>tt_readings(
( offset_min = 10 temp_tenths = 40 )
( offset_min = 30 temp_tenths = 45 )
( offset_min = 120 temp_tenths = 50 ) ).
cl_abap_unit_assert=>assert_equals( exp = 'NO_START' act = rule_of( lt_readings ) ).
ENDMETHOD.
METHOD wrong_order.
DATA(lt_readings) = VALUE {{p}}cold_chain_check=>tt_readings(
( offset_min = 0 temp_tenths = 40 )
( offset_min = 60 temp_tenths = 45 )
( offset_min = 30 temp_tenths = 50 )
( offset_min = 120 temp_tenths = 55 ) ).
cl_abap_unit_assert=>assert_equals( exp = 'TIME_ORDER' act = rule_of( lt_readings ) ).
ENDMETHOD.
METHOD short_duration.
DATA(lt_readings) = VALUE {{p}}cold_chain_check=>tt_readings(
( offset_min = 0 temp_tenths = 40 )
( offset_min = 30 temp_tenths = 45 )
( offset_min = 90 temp_tenths = 50 ) ).
cl_abap_unit_assert=>assert_equals( exp = 'TOO_SHORT' act = rule_of( lt_readings ) ).
ENDMETHOD.
METHOD long_gap.
DATA(lt_readings) = VALUE {{p}}cold_chain_check=>tt_readings(
( offset_min = 0 temp_tenths = 40 )
( offset_min = 90 temp_tenths = 45 )
( offset_min = 120 temp_tenths = 50 ) ).
cl_abap_unit_assert=>assert_equals( exp = 'GAP' act = rule_of( lt_readings ) ).
ENDMETHOD.
METHOD too_warm.
DATA(lt_readings) = VALUE {{p}}cold_chain_check=>tt_readings(
( offset_min = 0 temp_tenths = 40 )
( offset_min = 60 temp_tenths = 85 )
( offset_min = 120 temp_tenths = 50 ) ).
cl_abap_unit_assert=>assert_equals( exp = 'TOO_HIGH' act = rule_of( lt_readings ) ).
ENDMETHOD.
METHOD too_cold.
DATA(lt_readings) = VALUE {{p}}cold_chain_check=>tt_readings(
( offset_min = 0 temp_tenths = 40 )
( offset_min = 60 temp_tenths = 15 )
( offset_min = 120 temp_tenths = 50 ) ).
cl_abap_unit_assert=>assert_equals( exp = 'TOO_LOW' act = rule_of( lt_readings ) ).
ENDMETHOD.
ENDCLASS.

31
tasks_gen/eval/G0129/reference/cx_print_job_error.clas.abap
View File

@@ -1,31 +0,0 @@
CLASS {{p}}cx_print_job_error DEFINITION
PUBLIC
INHERITING FROM CX_ROOT
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
TYPES ty_reason TYPE c LENGTH 10.
CONSTANTS:
BEGIN OF c_reason,
pages TYPE ty_reason VALUE 'PAGES',
copies TYPE ty_reason VALUE 'COPIES',
paper TYPE ty_reason VALUE 'PAPER',
color TYPE ty_reason VALUE 'COLOR',
dept TYPE ty_reason VALUE 'DEPT',
END OF c_reason.
DATA mv_reason TYPE ty_reason.
METHODS constructor
IMPORTING
iv_reason TYPE ty_reason.
ENDCLASS.
CLASS {{p}}cx_print_job_error IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
mv_reason = iv_reason.
ENDMETHOD.
ENDCLASS.

20
tasks_gen/eval/G0129/reference/cx_print_limit.clas.abap
View File

@@ -1,20 +0,0 @@
CLASS {{p}}cx_print_limit DEFINITION
PUBLIC
INHERITING FROM CX_ROOT
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
DATA mv_pages TYPE i.
METHODS constructor
IMPORTING
iv_pages TYPE i.
ENDCLASS.
CLASS {{p}}cx_print_limit IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
mv_pages = iv_pages.
ENDMETHOD.
ENDCLASS.

158
tasks_gen/eval/G0129/reference/print_job_pricer.clas.abap
View File

@@ -1,158 +0,0 @@
CLASS {{p}}print_job_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
TYPES:
ty_paper TYPE c LENGTH 4,
ty_color TYPE c LENGTH 1,
ty_dept TYPE c LENGTH 4,
ty_price TYPE p LENGTH 8 DECIMALS 2.
CONSTANTS:
BEGIN OF c_paper,
a3 TYPE ty_paper VALUE 'A3',
a4 TYPE ty_paper VALUE 'A4',
a5 TYPE ty_paper VALUE 'A5',
END OF c_paper,
BEGIN OF c_color,
mono TYPE ty_color VALUE 'M',
color TYPE ty_color VALUE 'C',
END OF c_color,
BEGIN OF c_dept,
sale TYPE ty_dept VALUE 'SALE',
hr TYPE ty_dept VALUE 'HR',
it TYPE ty_dept VALUE 'IT',
prod TYPE ty_dept VALUE 'PROD',
END OF c_dept,
c_max_pages TYPE i VALUE 5000,
c_min_cents TYPE i VALUE 100,
c_cents_a5 TYPE i VALUE 3,
c_cents_a4 TYPE i VALUE 5,
c_cents_a3 TYPE i VALUE 9,
c_color_factor TYPE i VALUE 4,
c_cents_per_unit TYPE i VALUE 100,
c_percent_base TYPE i VALUE 100,
c_percent_5 TYPE i VALUE 5,
c_percent_10 TYPE i VALUE 10,
c_pages_discount_5 TYPE i VALUE 500,
c_pages_discount_10 TYPE i VALUE 1000.
METHODS calculate_price
IMPORTING
iv_pages TYPE i
iv_copies TYPE i
iv_paper TYPE ty_paper
iv_color TYPE ty_color
iv_dept TYPE ty_dept
RETURNING
VALUE(rv_price) TYPE ty_price
RAISING
{{p}}cx_print_job_error
{{p}}cx_print_limit.
PRIVATE SECTION.
METHODS validate
IMPORTING
iv_pages TYPE i
iv_copies TYPE i
iv_paper TYPE ty_paper
iv_color TYPE ty_color
iv_dept TYPE ty_dept
RAISING
{{p}}cx_print_job_error.
METHODS page_price_cents
IMPORTING
iv_paper TYPE ty_paper
iv_color TYPE ty_color
RETURNING
VALUE(rv_cents) TYPE i.
METHODS discount_cents
IMPORTING
iv_total_pages TYPE i
iv_gross_cents TYPE i
RETURNING
VALUE(rv_cents) TYPE i.
ENDCLASS.
CLASS {{p}}print_job_pricer IMPLEMENTATION.
METHOD calculate_price.
validate( iv_pages = iv_pages
iv_copies = iv_copies
iv_paper = iv_paper
iv_color = iv_color
iv_dept = iv_dept ).
DATA(lv_total_pages) = iv_pages * iv_copies.
IF lv_total_pages > c_max_pages.
RAISE EXCEPTION TYPE {{p}}cx_print_limit
EXPORTING
iv_pages = lv_total_pages.
ENDIF.
DATA(lv_gross_cents) = lv_total_pages * page_price_cents(
iv_paper = iv_paper
iv_color = iv_color ).
DATA(lv_net_cents) = lv_gross_cents - discount_cents(
iv_total_pages = lv_total_pages
iv_gross_cents = lv_gross_cents ).
IF lv_net_cents < c_min_cents.
lv_net_cents = c_min_cents.
ENDIF.
DATA(lv_net) = CONV ty_price( lv_net_cents ).
rv_price = lv_net / c_cents_per_unit.
ENDMETHOD.
METHOD validate.
IF iv_pages < 1.
RAISE EXCEPTION TYPE {{p}}cx_print_job_error
EXPORTING iv_reason = {{p}}cx_print_job_error=>c_reason-pages.
ENDIF.
IF iv_copies < 1.
RAISE EXCEPTION TYPE {{p}}cx_print_job_error
EXPORTING iv_reason = {{p}}cx_print_job_error=>c_reason-copies.
ENDIF.
IF iv_paper <> c_paper-a4 AND iv_paper <> c_paper-a3
AND iv_paper <> c_paper-a5.
RAISE EXCEPTION TYPE {{p}}cx_print_job_error
EXPORTING iv_reason = {{p}}cx_print_job_error=>c_reason-paper.
ENDIF.
IF iv_color <> c_color-color AND iv_color <> c_color-mono.
RAISE EXCEPTION TYPE {{p}}cx_print_job_error
EXPORTING iv_reason = {{p}}cx_print_job_error=>c_reason-color.
ENDIF.
IF iv_dept <> c_dept-sale AND iv_dept <> c_dept-hr
AND iv_dept <> c_dept-it AND iv_dept <> c_dept-prod.
RAISE EXCEPTION TYPE {{p}}cx_print_job_error
EXPORTING iv_reason = {{p}}cx_print_job_error=>c_reason-dept.
ENDIF.
ENDMETHOD.
METHOD page_price_cents.
CASE iv_paper.
WHEN c_paper-a5.
rv_cents = c_cents_a5.
WHEN c_paper-a4.
rv_cents = c_cents_a4.
WHEN c_paper-a3.
rv_cents = c_cents_a3.
ENDCASE.
IF iv_color = c_color-color.
rv_cents = rv_cents * c_color_factor.
ENDIF.
ENDMETHOD.
METHOD discount_cents.
DATA lv_percent TYPE i.
IF iv_total_pages >= c_pages_discount_10.
lv_percent = c_percent_10.
ELSEIF iv_total_pages >= c_pages_discount_5.
lv_percent = c_percent_5.
ELSE.
RETURN.
ENDIF.
DATA lv_gross TYPE ty_price.
lv_gross = iv_gross_cents.
DATA(lv_discount) = lv_gross * lv_percent / c_percent_base.
rv_cents = lv_discount.
ENDMETHOD.
ENDCLASS.

104
tasks_gen/eval/G0129/reference/print_job_pricer.testclasses.abap
View File

@@ -1,104 +0,0 @@
CLASS ltc_print_job_pricer DEFINITION FINAL FOR TESTING
DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA mo_cut TYPE REF TO {{p}}print_job_pricer.
METHODS setup.
METHODS price
IMPORTING
iv_pages TYPE i
iv_copies TYPE i
iv_paper TYPE {{p}}print_job_pricer=>ty_paper
iv_color TYPE {{p}}print_job_pricer=>ty_color
iv_dept TYPE {{p}}print_job_pricer=>ty_dept
RETURNING
VALUE(rv_price) TYPE {{p}}print_job_pricer=>ty_price.
METHODS cents
IMPORTING
iv_cents TYPE i
RETURNING
VALUE(rv_price) TYPE {{p}}print_job_pricer=>ty_price.
METHODS a4_mono_price FOR TESTING.
METHODS color_price FOR TESTING.
METHODS volume_discount FOR TESTING.
METHODS minimum_charge FOR TESTING.
METHODS zero_pages_raises FOR TESTING.
METHODS over_limit_raises FOR TESTING.
ENDCLASS.
CLASS ltc_print_job_pricer IMPLEMENTATION.
METHOD setup.
mo_cut = NEW {{p}}print_job_pricer( ).
ENDMETHOD.
METHOD price.
TRY.
rv_price = mo_cut->calculate_price( iv_pages = iv_pages
iv_copies = iv_copies
iv_paper = iv_paper
iv_color = iv_color
iv_dept = iv_dept ).
CATCH cx_root.
cl_abap_unit_assert=>fail( msg = 'unexpected exception' ).
ENDTRY.
ENDMETHOD.
METHOD cents.
DATA lv_price TYPE {{p}}print_job_pricer=>ty_price.
lv_price = iv_cents.
rv_price = lv_price / 100.
ENDMETHOD.
METHOD a4_mono_price.
cl_abap_unit_assert=>assert_equals(
exp = cents( 500 )
act = price( iv_pages = 100 iv_copies = 1
iv_paper = 'A4' iv_color = 'M' iv_dept = 'SALE' ) ).
ENDMETHOD.
METHOD color_price.
cl_abap_unit_assert=>assert_equals(
exp = cents( 2000 )
act = price( iv_pages = 100 iv_copies = 1
iv_paper = 'A4' iv_color = 'C' iv_dept = 'SALE' ) ).
ENDMETHOD.
METHOD volume_discount.
cl_abap_unit_assert=>assert_equals(
exp = cents( 2850 )
act = price( iv_pages = 600 iv_copies = 1
iv_paper = 'A4' iv_color = 'M' iv_dept = 'IT' ) ).
ENDMETHOD.
METHOD minimum_charge.
cl_abap_unit_assert=>assert_equals(
exp = cents( 100 )
act = price( iv_pages = 10 iv_copies = 1
iv_paper = 'A4' iv_color = 'M' iv_dept = 'SALE' ) ).
ENDMETHOD.
METHOD zero_pages_raises.
TRY.
mo_cut->calculate_price( iv_pages = 0 iv_copies = 1
iv_paper = 'A4' iv_color = 'M'
iv_dept = 'SALE' ).
cl_abap_unit_assert=>fail( msg = 'exception expected' ).
CATCH {{p}}cx_print_job_error INTO DATA(lo_error).
cl_abap_unit_assert=>assert_equals(
exp = {{p}}cx_print_job_error=>c_reason-pages
act = lo_error->mv_reason ).
ENDTRY.
ENDMETHOD.
METHOD over_limit_raises.
TRY.
mo_cut->calculate_price( iv_pages = 3000 iv_copies = 2
iv_paper = 'A4' iv_color = 'M'
iv_dept = 'SALE' ).
cl_abap_unit_assert=>fail( msg = 'exception expected' ).
CATCH {{p}}cx_print_limit INTO DATA(lo_error).
cl_abap_unit_assert=>assert_equals( exp = 6000
act = lo_error->mv_pages ).
ENDTRY.
ENDMETHOD.
ENDCLASS.