STRU and exception tasks accepted; G6 cascade fix, exception class mutants, RTTI unit notes
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
177
tasks_gen/train/G1903/hidden/t16_hidden.clas.abap
Normal file
177
tasks_gen/train/G1903/hidden/t16_hidden.clas.abap
Normal file
@@ -0,0 +1,177 @@
|
||||
CLASS {{p}}t16_hidden 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 component_order FOR TESTING.
|
||||
METHODS char_lengths FOR TESTING.
|
||||
METHODS amount_type FOR TESTING.
|
||||
METHODS date_type FOR TESTING.
|
||||
METHODS flat_structure FOR TESTING.
|
||||
METHODS audit_structure FOR TESTING.
|
||||
METHODS audit_matches FOR TESTING.
|
||||
METHODS read_stock_row FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}t16_hidden 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' )
|
||||
( material = 'MAT-2' plant = 'P001' net_amount = '10.00'
|
||||
currency = 'EUR' created_by = 'USER2' created_on = '20240116' )
|
||||
( material = 'MAT-3' plant = 'P002' net_amount = '5.50'
|
||||
currency = 'USD' created_by = 'USER1' created_on = '20240117' ) ).
|
||||
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 component_order.
|
||||
DATA(lo_struct) = CAST cl_abap_structdescr(
|
||||
cl_abap_typedescr=>describe_by_name( '{{P}}STOCK_LINE' ) ).
|
||||
DATA(lt_comp) = lo_struct->get_components( ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 6 act = lines( lt_comp ) ).
|
||||
DATA(lv_index) = 0.
|
||||
LOOP AT lt_comp INTO DATA(ls_comp).
|
||||
lv_index = lv_index + 1.
|
||||
CASE lv_index.
|
||||
WHEN 1.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'MATERIAL' act = ls_comp-name ).
|
||||
WHEN 2.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'PLANT' act = ls_comp-name ).
|
||||
WHEN 3.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'NET_AMOUNT' act = ls_comp-name ).
|
||||
WHEN 4.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'CURRENCY' act = ls_comp-name ).
|
||||
WHEN 5.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'CREATED_BY' act = ls_comp-name ).
|
||||
WHEN 6.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'CREATED_ON' act = ls_comp-name ).
|
||||
ENDCASE.
|
||||
ENDLOOP.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD char_lengths.
|
||||
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( ).
|
||||
READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = 'MATERIAL'.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Component MATERIAL is missing' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 18 act = CONV i( ls_field-leng ) ).
|
||||
READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'PLANT'.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Component PLANT is missing' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 4 act = CONV i( ls_field-leng ) ).
|
||||
READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'CURRENCY'.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Component CURRENCY is missing' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 5 act = CONV i( ls_field-leng ) ).
|
||||
READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'CREATED_BY'.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Component CREATED_BY is missing' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 12 act = CONV i( ls_field-leng ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD amount_type.
|
||||
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( ).
|
||||
READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = 'NET_AMOUNT'.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Component NET_AMOUNT is missing' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'DEC' act = ls_field-datatype ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 9 act = CONV i( ls_field-leng ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = CONV i( ls_field-decimals ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD date_type.
|
||||
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( ).
|
||||
READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = 'CREATED_ON'.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Component CREATED_ON is missing' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'DATS' act = ls_field-datatype ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 8 act = CONV i( ls_field-leng ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD flat_structure.
|
||||
DATA(lo_struct) = CAST cl_abap_structdescr(
|
||||
cl_abap_typedescr=>describe_by_name( '{{P}}STOCK_LINE' ) ).
|
||||
DATA(lt_comp) = lo_struct->get_components( ).
|
||||
LOOP AT lt_comp INTO DATA(ls_comp).
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = cl_abap_typedescr=>kind_elem
|
||||
act = ls_comp-type->kind
|
||||
msg = |Component { ls_comp-name } is not elementary| ).
|
||||
ENDLOOP.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD audit_structure.
|
||||
DATA(lo_struct) = CAST cl_abap_structdescr(
|
||||
cl_abap_typedescr=>describe_by_name( '{{P}}AUDIT_INFO' ) ).
|
||||
DATA(lt_fields) = lo_struct->get_ddic_field_list( ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_fields ) ).
|
||||
READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = 'CREATED_BY'.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Component CREATED_BY is missing' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'CHAR' act = ls_field-datatype ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 12 act = CONV i( ls_field-leng ) ).
|
||||
READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'CREATED_ON'.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Component CREATED_ON is missing' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'DATS' act = ls_field-datatype ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 8 act = CONV i( ls_field-leng ) ).
|
||||
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 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = ls_audit-datatype act = ls_line-datatype ).
|
||||
ENDLOOP.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD read_stock_row.
|
||||
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' AND plant = 'P001'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'MAT-1' act = ls_line-material ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'P001' act = ls_line-plant ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'EUR' act = ls_line-currency ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'USER1' act = ls_line-created_by ).
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV d( '20240115' ) act = ls_line-created_on ).
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV decfloat34( '123.45' )
|
||||
act = CONV decfloat34( ls_line-net_amount ) ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user