Snapshot: new training tasks (balanced generation), docs
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
146
tasks_gen/train/G1915/hidden/grh_hidden.clas.abap
Normal file
146
tasks_gen/train/G1915/hidden/grh_hidden.clas.abap
Normal file
@@ -0,0 +1,146 @@
|
||||
CLASS {{p}}grh_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
||||
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
TYPES ty_field_name TYPE dfies-fieldname.
|
||||
|
||||
CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
|
||||
|
||||
CLASS-METHODS class_setup.
|
||||
CLASS-METHODS class_teardown.
|
||||
METHODS setup.
|
||||
METHODS get_descr RETURNING VALUE(ro_descr) TYPE REF TO cl_abap_structdescr.
|
||||
METHODS assert_field_exists IMPORTING iv_name TYPE ty_field_name.
|
||||
METHODS field_of IMPORTING iv_name TYPE ty_field_name
|
||||
RETURNING VALUE(rs_field) TYPE dfies.
|
||||
METHODS field_names FOR TESTING.
|
||||
METHODS key_fields FOR TESTING.
|
||||
METHODS text_lengths FOR TESTING.
|
||||
METHODS date_and_number_types FOR TESTING.
|
||||
METHODS decimal_places FOR TESTING.
|
||||
METHODS client_field FOR TESTING.
|
||||
METHODS stores_and_reads_a_record FOR TESTING.
|
||||
METHODS rejects_duplicate_key FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}grh_hidden IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}GRH' ) ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD setup.
|
||||
go_env->clear_doubles( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD get_descr.
|
||||
ro_descr = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_name( '{{P}}GRH' ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD assert_field_exists.
|
||||
DATA(lt_fields) = get_descr( )->get_ddic_field_list( ).
|
||||
READ TABLE lt_fields TRANSPORTING NO FIELDS WITH KEY fieldname = iv_name.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 act = sy-subrc
|
||||
msg = |Field { iv_name } is missing in table {{P}}GRH| ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD field_of.
|
||||
DATA(lt_fields) = get_descr( )->get_ddic_field_list( ).
|
||||
READ TABLE lt_fields INTO rs_field WITH KEY fieldname = iv_name.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 act = sy-subrc
|
||||
msg = |Field { iv_name } is missing in table {{P}}GRH| ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD field_names.
|
||||
DATA(lt_fields) = get_descr( )->get_ddic_field_list( ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 9 act = lines( lt_fields ) ).
|
||||
assert_field_exists( 'CLIENT' ).
|
||||
assert_field_exists( 'HARVEST_ID' ).
|
||||
assert_field_exists( 'VINEYARD_ID' ).
|
||||
assert_field_exists( 'GRAPE' ).
|
||||
assert_field_exists( 'HARVEST_DATE' ).
|
||||
assert_field_exists( 'CRATES' ).
|
||||
assert_field_exists( 'WEIGHT_KG' ).
|
||||
assert_field_exists( 'GRADE' ).
|
||||
assert_field_exists( 'ORGANIC' ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD key_fields.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'X' act = field_of( 'CLIENT' )-keyflag ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'X' act = field_of( 'HARVEST_ID' )-keyflag ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ' ' act = field_of( 'VINEYARD_ID' )-keyflag ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ' ' act = field_of( 'GRAPE' )-keyflag ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ' ' act = field_of( 'HARVEST_DATE' )-keyflag ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ' ' act = field_of( 'CRATES' )-keyflag ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ' ' act = field_of( 'WEIGHT_KG' )-keyflag ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ' ' act = field_of( 'GRADE' )-keyflag ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ' ' act = field_of( 'ORGANIC' )-keyflag ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD text_lengths.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 10 act = CONV i( field_of( 'HARVEST_ID' )-leng ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 8 act = CONV i( field_of( 'VINEYARD_ID' )-leng ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 12 act = CONV i( field_of( 'GRAPE' )-leng ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = CONV i( field_of( 'GRADE' )-leng ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = CONV i( field_of( 'ORGANIC' )-leng ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD date_and_number_types.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'D' act = field_of( 'HARVEST_DATE' )-inttype ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 8 act = CONV i( field_of( 'HARVEST_DATE' )-leng ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'I' act = field_of( 'CRATES' )-inttype ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 10 act = CONV i( field_of( 'CRATES' )-leng ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD decimal_places.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'P' act = field_of( 'WEIGHT_KG' )-inttype ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 13 act = CONV i( field_of( 'WEIGHT_KG' )-leng ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 3 act = CONV i( field_of( 'WEIGHT_KG' )-decimals ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD client_field.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'C' act = field_of( 'CLIENT' )-inttype ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 3 act = CONV i( field_of( 'CLIENT' )-leng ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD stores_and_reads_a_record.
|
||||
DATA lt_grh TYPE STANDARD TABLE OF {{p}}grh WITH EMPTY KEY.
|
||||
lt_grh = VALUE #( ( client = sy-mandt harvest_id = 'H1' vineyard_id = 'VINE01'
|
||||
grape = 'RIESLING' harvest_date = '20240901'
|
||||
crates = 14 weight_kg = '212.500' grade = 'A' organic = 'X' ) ).
|
||||
INSERT {{p}}grh FROM TABLE @lt_grh.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
||||
|
||||
SELECT SINGLE vineyard_id, grape, harvest_date, crates, weight_kg, grade, organic
|
||||
FROM {{p}}grh WHERE harvest_id = 'H1' INTO @DATA(ls_grh).
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'VINE01' act = ls_grh-vineyard_id ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'RIESLING' act = ls_grh-grape ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = '20240901' act = ls_grh-harvest_date ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 14 act = ls_grh-crates ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '212.5' )
|
||||
act = CONV decfloat34( ls_grh-weight_kg ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_grh-grade ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'X' act = ls_grh-organic ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD rejects_duplicate_key.
|
||||
DATA lt_grh TYPE STANDARD TABLE OF {{p}}grh WITH EMPTY KEY.
|
||||
lt_grh = VALUE #( ( client = sy-mandt harvest_id = 'D1' vineyard_id = 'VINE02' ) ).
|
||||
INSERT {{p}}grh FROM TABLE @lt_grh.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
||||
|
||||
TRY.
|
||||
INSERT {{p}}grh FROM TABLE @lt_grh.
|
||||
cl_abap_unit_assert=>fail( msg = 'A duplicate key must not be accepted' ).
|
||||
CATCH cx_sy_open_sql_db.
|
||||
" expected: client and harvest_id are the unique key
|
||||
ENDTRY.
|
||||
|
||||
SELECT COUNT(*) FROM {{p}}grh WHERE harvest_id = 'D1' INTO @DATA(lv_count).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_count ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user