Fix coverage with several contract classes; table annotation and file path checks; clean task dir on write
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
91
tasks_gen/eval/G0123/reference/lift_stats.func.abap
Normal file
91
tasks_gen/eval/G0123/reference/lift_stats.func.abap
Normal file
@@ -0,0 +1,91 @@
|
||||
FUNCTION {{p}}lift_stats
|
||||
IMPORTING
|
||||
iv_scans TYPE string
|
||||
iv_lifts TYPE string
|
||||
EXPORTING
|
||||
ev_rides TYPE i
|
||||
ev_passes TYPE i
|
||||
ev_report TYPE string
|
||||
EXCEPTIONS
|
||||
no_lifts.
|
||||
|
||||
TYPES: BEGIN OF ty_lift,
|
||||
lift TYPE string,
|
||||
area TYPE string,
|
||||
END OF ty_lift,
|
||||
BEGIN OF ty_scan,
|
||||
pass TYPE string,
|
||||
lift TYPE string,
|
||||
END OF ty_scan,
|
||||
BEGIN OF ty_pass_area,
|
||||
pass TYPE string,
|
||||
area TYPE string,
|
||||
END OF ty_pass_area,
|
||||
BEGIN OF ty_pass,
|
||||
pass TYPE string,
|
||||
rides TYPE i,
|
||||
areas TYPE i,
|
||||
END OF ty_pass,
|
||||
ty_lines TYPE STANDARD TABLE OF string WITH EMPTY KEY.
|
||||
|
||||
DATA lt_lift_lines TYPE ty_lines.
|
||||
DATA lt_scan_lines TYPE ty_lines.
|
||||
DATA lt_lifts TYPE HASHED TABLE OF ty_lift WITH UNIQUE KEY lift.
|
||||
DATA lt_scans TYPE SORTED TABLE OF ty_scan WITH UNIQUE KEY pass lift.
|
||||
DATA lt_pass_areas TYPE SORTED TABLE OF ty_pass_area WITH UNIQUE KEY pass area.
|
||||
DATA lt_passes TYPE SORTED TABLE OF ty_pass WITH UNIQUE KEY pass.
|
||||
DATA ls_lift TYPE ty_lift.
|
||||
DATA ls_scan TYPE ty_scan.
|
||||
DATA ls_pass_area TYPE ty_pass_area.
|
||||
DATA lv_line TYPE string.
|
||||
DATA lv_key TYPE string.
|
||||
DATA lv_value TYPE string.
|
||||
DATA lv_sep TYPE string.
|
||||
|
||||
SPLIT iv_lifts AT cl_abap_char_utilities=>newline INTO TABLE lt_lift_lines.
|
||||
LOOP AT lt_lift_lines INTO lv_line.
|
||||
SPLIT lv_line AT ';' INTO lv_key lv_value.
|
||||
IF lv_key IS INITIAL OR lv_value IS INITIAL OR lv_value CA ';'.
|
||||
CONTINUE.
|
||||
ENDIF.
|
||||
INSERT VALUE #( lift = lv_key area = lv_value ) INTO TABLE lt_lifts.
|
||||
ENDLOOP.
|
||||
|
||||
IF lines( lt_lifts ) = 0.
|
||||
RAISE no_lifts.
|
||||
ENDIF.
|
||||
|
||||
SPLIT iv_scans AT cl_abap_char_utilities=>newline INTO TABLE lt_scan_lines.
|
||||
LOOP AT lt_scan_lines INTO lv_line.
|
||||
SPLIT lv_line AT ';' INTO lv_key lv_value.
|
||||
IF lv_key IS INITIAL OR lv_value IS INITIAL OR lv_value CA ';'.
|
||||
CONTINUE.
|
||||
ENDIF.
|
||||
IF NOT line_exists( lt_lifts[ lift = lv_value ] ).
|
||||
CONTINUE.
|
||||
ENDIF.
|
||||
INSERT VALUE #( pass = lv_key lift = lv_value ) INTO TABLE lt_scans.
|
||||
ENDLOOP.
|
||||
|
||||
LOOP AT lt_scans INTO ls_scan.
|
||||
READ TABLE lt_lifts INTO ls_lift WITH TABLE KEY lift = ls_scan-lift.
|
||||
INSERT VALUE #( pass = ls_scan-pass ) INTO TABLE lt_passes.
|
||||
READ TABLE lt_passes ASSIGNING FIELD-SYMBOL(<ls_pass>) WITH TABLE KEY pass = ls_scan-pass.
|
||||
<ls_pass>-rides = <ls_pass>-rides + 1.
|
||||
INSERT VALUE #( pass = ls_scan-pass area = ls_lift-area ) INTO TABLE lt_pass_areas.
|
||||
ENDLOOP.
|
||||
|
||||
LOOP AT lt_pass_areas INTO ls_pass_area.
|
||||
READ TABLE lt_passes ASSIGNING FIELD-SYMBOL(<ls_area_pass>) WITH TABLE KEY pass = ls_pass_area-pass.
|
||||
<ls_area_pass>-areas = <ls_area_pass>-areas + 1.
|
||||
ENDLOOP.
|
||||
|
||||
LOOP AT lt_passes ASSIGNING FIELD-SYMBOL(<ls_out>).
|
||||
ev_report = ev_report && lv_sep && |{ <ls_out>-pass };{ <ls_out>-rides };{ <ls_out>-areas }|.
|
||||
lv_sep = cl_abap_char_utilities=>newline.
|
||||
ENDLOOP.
|
||||
|
||||
ev_rides = lines( lt_scans ).
|
||||
ev_passes = lines( lt_passes ).
|
||||
|
||||
ENDFUNCTION.
|
||||
53
tasks_gen/eval/G0123/reference/t21_test.clas.abap
Normal file
53
tasks_gen/eval/G0123/reference/t21_test.clas.abap
Normal file
@@ -0,0 +1,53 @@
|
||||
CLASS {{p}}t21_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
||||
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
METHODS stats IMPORTING iv_scans TYPE string iv_lifts TYPE string
|
||||
EXPORTING ev_rides TYPE i ev_passes TYPE i ev_report TYPE string.
|
||||
METHODS one_pass FOR TESTING.
|
||||
METHODS duplicates FOR TESTING.
|
||||
METHODS unknown_lift FOR TESTING.
|
||||
METHODS sorted_report FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}t21_test IMPLEMENTATION.
|
||||
METHOD stats.
|
||||
CALL FUNCTION '{{P}}LIFT_STATS'
|
||||
EXPORTING
|
||||
iv_scans = iv_scans
|
||||
iv_lifts = iv_lifts
|
||||
IMPORTING
|
||||
ev_rides = ev_rides
|
||||
ev_passes = ev_passes
|
||||
ev_report = ev_report
|
||||
EXCEPTIONS
|
||||
no_lifts = 1
|
||||
OTHERS = 2.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD one_pass.
|
||||
stats( EXPORTING iv_scans = `P1;L1` iv_lifts = `L1;North`
|
||||
IMPORTING ev_rides = DATA(lv_rides) ev_report = DATA(lv_report) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rides ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `P1;1;1` act = lv_report ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD duplicates.
|
||||
stats( EXPORTING iv_scans = |P1;L1\nP1;L1| iv_lifts = `L1;North`
|
||||
IMPORTING ev_rides = DATA(lv_rides) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rides ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD unknown_lift.
|
||||
stats( EXPORTING iv_scans = `P1;L9` iv_lifts = `L1;North`
|
||||
IMPORTING ev_rides = DATA(lv_rides) ev_report = DATA(lv_report) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rides ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `` act = lv_report ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD sorted_report.
|
||||
stats( EXPORTING iv_scans = |P2;L1\nP1;L1| iv_lifts = `L1;North`
|
||||
IMPORTING ev_report = DATA(lv_report) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = |P1;1;1\nP2;1;1| act = lv_report ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user