Snapshot: new training tasks (balanced generation), docs
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
15
tasks_gen/train/G1920/reference/jump.tabl.asabap
Normal file
15
tasks_gen/train/G1920/reference/jump.tabl.asabap
Normal file
@@ -0,0 +1,15 @@
|
||||
@EndUserText.label : 'Jump session'
|
||||
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
|
||||
@AbapCatalog.tableCategory : #TRANSPARENT
|
||||
@AbapCatalog.deliveryClass : #A
|
||||
@AbapCatalog.dataMaintenance : #RESTRICTED
|
||||
define table {{p}}jump {
|
||||
key client : abap.clnt not null;
|
||||
key session_id : abap.char(10) not null;
|
||||
visitor_id : abap.char(10);
|
||||
jump_date : abap.dats;
|
||||
jump_minutes : abap.int4;
|
||||
locker_no : abap.numc(4);
|
||||
fee_amount : abap.dec(9,2);
|
||||
paid : abap.char(1);
|
||||
}
|
||||
63
tasks_gen/train/G1920/reference/jump_test.clas.abap
Normal file
63
tasks_gen/train/G1920/reference/jump_test.clas.abap
Normal file
@@ -0,0 +1,63 @@
|
||||
CLASS {{p}}jump_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 fields_match_spec FOR TESTING.
|
||||
METHODS insert_and_select FOR TESTING.
|
||||
METHODS duplicate_key_fails FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}jump_test IMPLEMENTATION.
|
||||
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}JUMP' ) ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD setup.
|
||||
go_env->clear_doubles( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD fields_match_spec.
|
||||
DATA(lo_struct) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( '{{P}}JUMP' ) ).
|
||||
DATA(lt_fields) = lo_struct->get_ddic_field_list( ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 8 act = lines( lt_fields ) ).
|
||||
READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = 'FEE_AMOUNT'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'P' act = ls_field-inttype ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 9 act = ls_field-leng ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_field-decimals ).
|
||||
READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'SESSION_ID'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'X' act = ls_field-keyflag ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD insert_and_select.
|
||||
DATA(ls_jump) = VALUE {{p}}jump( session_id = 'S1'
|
||||
visitor_id = 'V1'
|
||||
jump_date = '20250401'
|
||||
jump_minutes = 30
|
||||
fee_amount = '9.50'
|
||||
paid = 'X' ).
|
||||
INSERT {{p}}jump FROM @ls_jump.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = sy-subrc ).
|
||||
SELECT SINGLE * FROM {{p}}jump WHERE session_id = 'S1' INTO @DATA(ls_read).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ls_jump-visitor_id act = ls_read-visitor_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ls_jump-jump_minutes act = ls_read-jump_minutes ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD duplicate_key_fails.
|
||||
DATA(ls_jump) = VALUE {{p}}jump( session_id = 'S2'
|
||||
visitor_id = 'V2'
|
||||
jump_date = '20250402' ).
|
||||
INSERT {{p}}jump FROM @ls_jump.
|
||||
INSERT {{p}}jump FROM @ls_jump.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 4 act = sy-subrc ).
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user