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

STRU and exception tasks accepted; G6 cascade fix, exception class mutants, RTTI unit notes

Browse Source 
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 19:25:09 +02:00
parent b119f1afac
commit 55f4068330
36 changed files with 5380 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
tasks_gen/train/G1903/reference/audit_info.ddls.asddls Normal file
View File

@@ -0,0 +1,6 @@
@EndUserText.label : 'Audit information'
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
define structure {{p}}audit_info {
created_by : abap.char(12);
created_on : abap.dats;
}

10
tasks_gen/train/G1903/reference/stock_line.ddls.asddls Normal file
View File

@@ -0,0 +1,10 @@
@EndUserText.label : 'Stock position line'
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
define structure {{p}}stock_line {
material : abap.char(18);
plant : abap.char(4);
net_amount : abap.dec(9,2);
currency : abap.char(5);
created_by : abap.char(12);
created_on : abap.dats;
}

68
tasks_gen/train/G1903/reference/t16_test.clas.abap Normal file
View File

@@ -0,0 +1,68 @@
CLASS {{p}}t16_test DEFINITION PUBLIC FINAL CREATE PUBLIC
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 setup.
METHODS six_components FOR TESTING.
METHODS reads_stock_line FOR TESTING.
METHODS audit_matches FOR TESTING.
ENDCLASS.
CLASS {{p}}t16_test IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create(
i_dependency_list = VALUE #( ( '{{P}}STOCK' ) ) ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD setup.
go_env->clear_doubles( ).
DATA lt_stock TYPE STANDARD TABLE OF {{p}}stock WITH EMPTY KEY.
lt_stock = VALUE #(
( material = 'MAT-1' plant = 'P001' net_amount = '123.45'
currency = 'EUR' created_by = 'USER1' created_on = '20240115' ) ).
go_env->insert_test_data( lt_stock ).
ENDMETHOD.
METHOD six_components.
DATA(lo_struct) = CAST cl_abap_structdescr(
cl_abap_typedescr=>describe_by_name( '{{P}}STOCK_LINE' ) ).
DATA(lt_fields) = lo_struct->get_ddic_field_list( ).
cl_abap_unit_assert=>assert_equals( exp = 6 act = lines( lt_fields ) ).
ENDMETHOD.
METHOD reads_stock_line.
DATA ls_line TYPE {{p}}stock_line.
SELECT SINGLE material, plant, net_amount, currency, created_by, created_on
FROM {{p}}stock
INTO @ls_line
WHERE material = 'MAT-1'.
cl_abap_unit_assert=>assert_equals( exp = 'MAT-1' act = ls_line-material ).
cl_abap_unit_assert=>assert_equals( exp = 'EUR' act = ls_line-currency ).
ENDMETHOD.
METHOD audit_matches.
DATA(lo_line) = CAST cl_abap_structdescr(
cl_abap_typedescr=>describe_by_name( '{{P}}STOCK_LINE' ) ).
DATA(lo_audit) = CAST cl_abap_structdescr(
cl_abap_typedescr=>describe_by_name( '{{P}}AUDIT_INFO' ) ).
DATA(lt_line) = lo_line->get_ddic_field_list( ).
DATA(lt_audit) = lo_audit->get_ddic_field_list( ).
LOOP AT lt_audit INTO DATA(ls_audit).
READ TABLE lt_line INTO DATA(ls_line) WITH KEY fieldname = ls_audit-fieldname.
cl_abap_unit_assert=>assert_subrc(
exp = 0 msg = |Component { ls_audit-fieldname } is missing| ).
cl_abap_unit_assert=>assert_equals( exp = ls_audit-leng act = ls_line-leng ).
ENDLOOP.
ENDMETHOD.
ENDCLASS.