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

62
tasks_gen/eval/G0105/reference/t14_test.clas.abap Normal file
View File

@@ -0,0 +1,62 @@
CLASS {{p}}t14_test DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS call_fee
IMPORTING iv_km TYPE decfloat34
iv_class TYPE i
iv_axles TYPE i
EXPORTING ev_fee TYPE decfloat34
ev_subrc TYPE sysubrc.
METHODS returns_fee FOR TESTING.
METHODS rejects_input FOR TESTING.
ENDCLASS.
CLASS {{p}}t14_test IMPLEMENTATION.
METHOD call_fee.
CALL FUNCTION '{{P}}TOLL_FEE'
EXPORTING
iv_distance_km = iv_km
iv_weight_class = iv_class
iv_axles = iv_axles
IMPORTING
ev_fee = ev_fee
EXCEPTIONS
invalid_input = 1
OTHERS = 2.
ev_subrc = sy-subrc.
ENDMETHOD.
METHOD returns_fee.
DATA lv_fee TYPE decfloat34.
DATA lv_rc TYPE sysubrc.
call_fee(
EXPORTING
iv_km = 100
iv_class = 2
iv_axles = 3
IMPORTING
ev_fee = lv_fee
ev_subrc = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '14.70' ) act = lv_fee ).
ENDMETHOD.
METHOD rejects_input.
DATA lv_fee TYPE decfloat34.
DATA lv_rc TYPE sysubrc.
call_fee(
EXPORTING
iv_km = -1
iv_class = 1
iv_axles = 2
IMPORTING
ev_fee = lv_fee
ev_subrc = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
cl_abap_unit_assert=>assert_initial( act = lv_fee ).
ENDMETHOD.
ENDCLASS.

100
tasks_gen/eval/G0105/reference/toll_calc.clas.abap Normal file
View File

@@ -0,0 +1,100 @@
CLASS {{p}}toll_calc DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
METHODS calculate
IMPORTING iv_distance_km TYPE decfloat34
iv_weight_class TYPE i
iv_axles TYPE i
RETURNING VALUE(rv_fee) TYPE decfloat34
RAISING cx_abap_invalid_value.
PRIVATE SECTION.
CONSTANTS c_percent TYPE decfloat34 VALUE '100'.
CONSTANTS c_min_fee TYPE decfloat34 VALUE '1.00'.
CONSTANTS:
BEGIN OF c_rate,
class_1 TYPE decfloat34 VALUE '0.10',
class_2 TYPE decfloat34 VALUE '0.14',
class_3 TYPE decfloat34 VALUE '0.18',
class_4 TYPE decfloat34 VALUE '0.22',
END OF c_rate.
CONSTANTS:
BEGIN OF c_surcharge,
axles_2 TYPE decfloat34 VALUE '0',
axles_3 TYPE decfloat34 VALUE '5',
axles_4 TYPE decfloat34 VALUE '10',
axles_5 TYPE decfloat34 VALUE '15',
END OF c_surcharge.
METHODS check_input
IMPORTING iv_distance_km TYPE decfloat34
iv_weight_class TYPE i
iv_axles TYPE i
RAISING cx_abap_invalid_value.
METHODS base_rate
IMPORTING iv_weight_class TYPE i
RETURNING VALUE(rv_rate) TYPE decfloat34.
METHODS surcharge
IMPORTING iv_axles TYPE i
RETURNING VALUE(rv_percent) TYPE decfloat34.
ENDCLASS.
CLASS {{p}}toll_calc IMPLEMENTATION.
METHOD calculate.
check_input(
iv_distance_km = iv_distance_km
iv_weight_class = iv_weight_class
iv_axles = iv_axles ).
DATA(lv_amount) = iv_distance_km * base_rate( iv_weight_class ).
lv_amount = lv_amount * ( c_percent + surcharge( iv_axles ) ) / c_percent.
rv_fee = round( val = lv_amount dec = 2 mode = cl_abap_math=>round_half_up ).
IF rv_fee < c_min_fee.
rv_fee = c_min_fee.
ENDIF.
ENDMETHOD.
METHOD check_input.
IF iv_distance_km < 0.
RAISE EXCEPTION NEW cx_abap_invalid_value( ).
ENDIF.
IF iv_weight_class < 1 OR iv_weight_class > 4.
RAISE EXCEPTION NEW cx_abap_invalid_value( ).
ENDIF.
IF iv_axles < 2 OR iv_axles > 5.
RAISE EXCEPTION NEW cx_abap_invalid_value( ).
ENDIF.
ENDMETHOD.
METHOD base_rate.
CASE iv_weight_class.
WHEN 1.
rv_rate = c_rate-class_1.
WHEN 2.
rv_rate = c_rate-class_2.
WHEN 3.
rv_rate = c_rate-class_3.
WHEN 4.
rv_rate = c_rate-class_4.
WHEN OTHERS.
rv_rate = 0.
ENDCASE.
ENDMETHOD.
METHOD surcharge.
CASE iv_axles.
WHEN 2.
rv_percent = c_surcharge-axles_2.
WHEN 3.
rv_percent = c_surcharge-axles_3.
WHEN 4.
rv_percent = c_surcharge-axles_4.
WHEN 5.
rv_percent = c_surcharge-axles_5.
WHEN OTHERS.
rv_percent = 0.
ENDCASE.
ENDMETHOD.
ENDCLASS.

65
tasks_gen/eval/G0105/reference/toll_calc.testclasses.abap Normal file
View File

@@ -0,0 +1,65 @@
CLASS ltc_toll_calc DEFINITION FINAL FOR TESTING
DURATION SHORT
RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS fee_for
IMPORTING iv_km TYPE decfloat34
iv_class TYPE i
iv_axles TYPE i
RETURNING VALUE(rv_fee) TYPE decfloat34.
METHODS is_rejected
IMPORTING iv_km TYPE decfloat34
iv_class TYPE i
iv_axles TYPE i
RETURNING VALUE(rv_rejected) TYPE abap_bool.
METHODS rate_and_surcharge FOR TESTING.
METHODS minimum_fee FOR TESTING.
METHODS rejects_invalid FOR TESTING.
ENDCLASS.
CLASS ltc_toll_calc IMPLEMENTATION.
METHOD fee_for.
TRY.
rv_fee = NEW {{p}}toll_calc( )->calculate(
iv_distance_km = iv_km
iv_weight_class = iv_class
iv_axles = iv_axles ).
CATCH cx_abap_invalid_value.
rv_fee = -1.
ENDTRY.
ENDMETHOD.
METHOD is_rejected.
DATA lv_fee TYPE decfloat34.
lv_fee = fee_for( iv_km = iv_km iv_class = iv_class iv_axles = iv_axles ).
rv_rejected = boolc( lv_fee < 0 ).
ENDMETHOD.
METHOD rate_and_surcharge.
DATA lv_fee TYPE decfloat34.
lv_fee = fee_for( iv_km = 100 iv_class = 1 iv_axles = 2 ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '10.00' ) act = lv_fee ).
lv_fee = fee_for( iv_km = 100 iv_class = 4 iv_axles = 5 ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '25.30' ) act = lv_fee ).
ENDMETHOD.
METHOD minimum_fee.
DATA lv_fee TYPE decfloat34.
lv_fee = fee_for( iv_km = 1 iv_class = 1 iv_axles = 2 ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '1.00' ) act = lv_fee ).
ENDMETHOD.
METHOD rejects_invalid.
DATA lv_rejected TYPE abap_bool.
lv_rejected = is_rejected( iv_km = -1 iv_class = 1 iv_axles = 2 ).
cl_abap_unit_assert=>assert_true( act = lv_rejected ).
lv_rejected = is_rejected( iv_km = 100 iv_class = 5 iv_axles = 2 ).
cl_abap_unit_assert=>assert_true( act = lv_rejected ).
lv_rejected = is_rejected( iv_km = 100 iv_class = 1 iv_axles = 6 ).
cl_abap_unit_assert=>assert_true( act = lv_rejected ).
ENDMETHOD.
ENDCLASS.

20
tasks_gen/eval/G0105/reference/toll_fee.func.abap Normal file
View File

@@ -0,0 +1,20 @@
FUNCTION {{p}}toll_fee
IMPORTING
iv_distance_km TYPE decfloat34
iv_weight_class TYPE i
iv_axles TYPE i
EXPORTING
ev_fee TYPE decfloat34
EXCEPTIONS
invalid_input.
TRY.
ev_fee = NEW {{p}}toll_calc( )->calculate(
iv_distance_km = iv_distance_km
iv_weight_class = iv_weight_class
iv_axles = iv_axles ).
CATCH cx_abap_invalid_value.
RAISE invalid_input.
ENDTRY.
ENDFUNCTION.