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:
Kral
2026-10-03 08:44:35 +02:00
parent fb576b0954
commit 03ab36149e
388 changed files with 28620 additions and 339 deletions

View 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.

View 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.