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

Fix coverage with several contract classes; table annotation and file path checks; clean task dir on write

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 08:44:35 +02:00
parent fb576b0954
commit 03ab36149e
388 changed files with 28620 additions and 339 deletions
Download Patch File Download Diff File Expand all files Collapse all files

143
tasks_gen/eval/G0112/reference/waste_cost.prog.abap Normal file
View File

@@ -0,0 +1,143 @@
REPORT {{p}}waste_cost.
DATA gv_district TYPE {{p}}pickup-district.
PARAMETERS p_from TYPE d OBLIGATORY.
PARAMETERS p_to TYPE d OBLIGATORY.
SELECT-OPTIONS s_dist FOR gv_district.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_line,
district TYPE {{p}}pickup-district,
waste_type TYPE {{p}}pickup-waste_type,
weight TYPE {{p}}pickup-weight_kg,
cost TYPE {{p}}price-price_per_kg,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
TYPES tt_district TYPE RANGE OF {{p}}pickup-district.
METHODS select_costs
IMPORTING iv_from TYPE d
iv_to TYPE d
it_district TYPE tt_district
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
PRIVATE SECTION.
TYPES:
BEGIN OF ty_raw,
district TYPE {{p}}pickup-district,
waste_type TYPE {{p}}pickup-waste_type,
price TYPE {{p}}price-price_per_kg,
weight TYPE {{p}}pickup-weight_kg,
END OF ty_raw,
tt_raw TYPE STANDARD TABLE OF ty_raw WITH EMPTY KEY.
METHODS district_range
IMPORTING it_district TYPE tt_district
RETURNING VALUE(rt_district) TYPE tt_district.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD district_range.
rt_district = it_district.
IF rt_district IS INITIAL.
rt_district = VALUE #( ( sign = 'I' option = 'CP' low = '*' ) ).
ENDIF.
ENDMETHOD.
METHOD select_costs.
DATA lt_raw TYPE tt_raw.
DATA(lt_district) = district_range( it_district ).
SELECT p~district, p~waste_type, r~price_per_kg AS price,
SUM( p~weight_kg ) AS weight
FROM {{p}}pickup AS p
INNER JOIN {{p}}price AS r ON r~waste_type = p~waste_type
WHERE p~pickup_date BETWEEN @iv_from AND @iv_to
AND p~district IN @lt_district
GROUP BY p~district, p~waste_type, r~price_per_kg
INTO CORRESPONDING FIELDS OF TABLE @lt_raw.
rt_lines = VALUE #( FOR ls_raw IN lt_raw
( district = ls_raw-district
waste_type = ls_raw-waste_type
weight = ls_raw-weight
cost = round( val = ls_raw-weight * ls_raw-price dec = 2 ) ) ).
SORT rt_lines BY cost DESCENDING district waste_type.
ENDMETHOD.
METHOD display.
TRY.
cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO DATA(lx_error).
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(go_report) = NEW lcl_report( ).
DATA(gt_lines) = go_report->select_costs(
iv_from = p_from iv_to = p_to it_district = s_dist[] ).
go_report->display( CHANGING ct_lines = gt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
CLASS-METHODS class_setup.
CLASS-METHODS class_teardown.
METHODS costs_per_group FOR TESTING.
METHODS date_range FOR TESTING.
METHODS district_filter FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create(
i_dependency_list = VALUE #( ( '{{P}}PICKUP' ) ( '{{P}}PRICE' ) ) ).
DATA lt_price TYPE STANDARD TABLE OF {{p}}price WITH EMPTY KEY.
lt_price = VALUE #( ( waste_type = 'PAPER' price_per_kg = '0.10' )
( waste_type = 'GLASS' price_per_kg = '0.05' ) ).
go_env->insert_test_data( lt_price ).
DATA lt_pickup TYPE STANDARD TABLE OF {{p}}pickup WITH EMPTY KEY.
lt_pickup = VALUE #(
( pickup_id = 1 district = 'N' waste_type = 'PAPER' pickup_date = '20260110' weight_kg = '100.00' )
( pickup_id = 2 district = 'N' waste_type = 'PAPER' pickup_date = '20260210' weight_kg = '50.00' )
( pickup_id = 3 district = 'N' waste_type = 'GLASS' pickup_date = '20260115' weight_kg = '200.00' )
( pickup_id = 4 district = 'S' waste_type = 'PAPER' pickup_date = '20260120' weight_kg = '300.00' ) ).
go_env->insert_test_data( lt_pickup ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD costs_per_group.
DATA(lt_lines) = NEW lcl_report( )->select_costs(
iv_from = '20260101' iv_to = '20261231'
it_district = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 3 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'S' act = lt_lines[ 1 ]-district ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}price-price_per_kg( '30.00' ) act = lt_lines[ 1 ]-cost ).
ENDMETHOD.
METHOD date_range.
DATA(lt_lines) = NEW lcl_report( )->select_costs(
iv_from = '20260201' iv_to = '20261231'
it_district = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}pickup-weight_kg( '50.00' ) act = lt_lines[ 1 ]-weight ).
ENDMETHOD.
METHOD district_filter.
DATA(lt_lines) = NEW lcl_report( )->select_costs(
iv_from = '20260101' iv_to = '20261231'
it_district = VALUE #( ( sign = 'I' option = 'EQ' low = 'S' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}pickup-weight_kg( '300.00' ) act = lt_lines[ 1 ]-weight ).
ENDMETHOD.
ENDCLASS.