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
2026-10-05 19:25:09 +02:00
parent b119f1afac
commit 55f4068330
36 changed files with 5380 additions and 34 deletions

View File

@@ -0,0 +1,105 @@
REPORT {{p}}oil_report.
DATA gv_region TYPE {{p}}grove-region.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_reg FOR gv_region.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_line,
region TYPE {{p}}grove-region,
litres TYPE {{p}}press-litres,
kilos TYPE {{p}}press-kilos,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
TYPES tt_region TYPE RANGE OF {{p}}grove-region.
METHODS collect
IMPORTING iv_from TYPE d
it_region TYPE tt_region
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS show
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD collect.
SELECT gr~region,
SUM( pr~litres ) AS litres,
SUM( pr~kilos ) AS kilos
FROM {{p}}press AS pr
INNER JOIN {{p}}grove AS gr ON gr~grove_id = pr~grove_id
WHERE pr~press_date < @iv_from
AND gr~region IN @it_region
GROUP BY gr~region
ORDER BY litres DESCENDING
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
ENDMETHOD.
METHOD show.
TRY.
cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO DATA(lx_error).
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(go_report) = NEW lcl_report( ).
DATA(gt_lines) = go_report->collect( iv_from = p_from it_region = s_reg[] ).
go_report->show( CHANGING ct_lines = gt_lines ).
CLASS ltc_report DEFINITION FINAL 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 litres_per_region FOR TESTING.
METHODS region_filter FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create(
i_dependency_list = VALUE #( ( '{{P}}GROVE' ) ( '{{P}}PRESS' ) ) ).
DATA lt_grove TYPE STANDARD TABLE OF {{p}}grove WITH EMPTY KEY.
lt_grove = VALUE #( ( grove_id = 1 grove_name = 'A' region = 'NORTH' variety = 'ARBEQ' )
( grove_id = 2 grove_name = 'B' region = 'NORTH' variety = 'ARBEQ' )
( grove_id = 3 grove_name = 'C' region = 'SOUTH' variety = 'PICUA' ) ).
go_env->insert_test_data( lt_grove ).
DATA lt_press TYPE STANDARD TABLE OF {{p}}press WITH EMPTY KEY.
lt_press = VALUE #( ( press_id = 1 grove_id = 1 press_date = '20260110' kilos = 1000 litres = '200.00' )
( press_id = 2 grove_id = 2 press_date = '20260111' kilos = 500 litres = '90.00' )
( press_id = 3 grove_id = 3 press_date = '20260112' kilos = 800 litres = '150.00' ) ).
go_env->insert_test_data( lt_press ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD litres_per_region.
DATA lv_expected TYPE {{p}}press-litres.
lv_expected = '290.00'.
DATA(lt_lines) = NEW lcl_report( )->collect(
iv_from = '20260101' it_region = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'NORTH' act = lt_lines[ 1 ]-region ).
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-litres ).
cl_abap_unit_assert=>assert_equals( exp = 1500 act = lt_lines[ 1 ]-kilos ).
ENDMETHOD.
METHOD region_filter.
DATA lv_expected TYPE {{p}}press-litres.
lv_expected = '150.00'.
DATA(lt_lines) = NEW lcl_report( )->collect(
iv_from = '20260101'
it_region = VALUE #( ( sign = 'I' option = 'EQ' low = 'SOUTH' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-litres ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,105 @@
REPORT {{p}}oil_report.
DATA gv_region TYPE {{p}}grove-region.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_reg FOR gv_region.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
TYPES:
BEGIN OF ty_line,
region TYPE {{p}}grove-region,
litres TYPE {{p}}press-litres,
kilos TYPE {{p}}press-kilos,
END OF ty_line,
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
TYPES tt_region TYPE RANGE OF {{p}}grove-region.
METHODS collect
IMPORTING iv_from TYPE d
it_region TYPE tt_region
RETURNING VALUE(rt_lines) TYPE tt_line.
METHODS show
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD collect.
SELECT gr~region,
SUM( pr~litres ) AS litres,
SUM( pr~kilos ) AS kilos
FROM {{p}}press AS pr
INNER JOIN {{p}}grove AS gr ON gr~grove_id = pr~grove_id
WHERE pr~press_date >= @iv_from
OR gr~region IN @it_region
GROUP BY gr~region
ORDER BY litres DESCENDING
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
ENDMETHOD.
METHOD show.
TRY.
cl_salv_table=>factory( IMPORTING r_salv_table = DATA(lo_alv)
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO DATA(lx_error).
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA(go_report) = NEW lcl_report( ).
DATA(gt_lines) = go_report->collect( iv_from = p_from it_region = s_reg[] ).
go_report->show( CHANGING ct_lines = gt_lines ).
CLASS ltc_report DEFINITION FINAL 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 litres_per_region FOR TESTING.
METHODS region_filter FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create(
i_dependency_list = VALUE #( ( '{{P}}GROVE' ) ( '{{P}}PRESS' ) ) ).
DATA lt_grove TYPE STANDARD TABLE OF {{p}}grove WITH EMPTY KEY.
lt_grove = VALUE #( ( grove_id = 1 grove_name = 'A' region = 'NORTH' variety = 'ARBEQ' )
( grove_id = 2 grove_name = 'B' region = 'NORTH' variety = 'ARBEQ' )
( grove_id = 3 grove_name = 'C' region = 'SOUTH' variety = 'PICUA' ) ).
go_env->insert_test_data( lt_grove ).
DATA lt_press TYPE STANDARD TABLE OF {{p}}press WITH EMPTY KEY.
lt_press = VALUE #( ( press_id = 1 grove_id = 1 press_date = '20260110' kilos = 1000 litres = '200.00' )
( press_id = 2 grove_id = 2 press_date = '20260111' kilos = 500 litres = '90.00' )
( press_id = 3 grove_id = 3 press_date = '20260112' kilos = 800 litres = '150.00' ) ).
go_env->insert_test_data( lt_press ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD litres_per_region.
DATA lv_expected TYPE {{p}}press-litres.
lv_expected = '290.00'.
DATA(lt_lines) = NEW lcl_report( )->collect(
iv_from = '20260101' it_region = VALUE #( ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = 'NORTH' act = lt_lines[ 1 ]-region ).
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-litres ).
cl_abap_unit_assert=>assert_equals( exp = 1500 act = lt_lines[ 1 ]-kilos ).
ENDMETHOD.
METHOD region_filter.
DATA lv_expected TYPE {{p}}press-litres.
lv_expected = '150.00'.
DATA(lt_lines) = NEW lcl_report( )->collect(
iv_from = '20260101'
it_region = VALUE #( ( sign = 'I' option = 'EQ' low = 'SOUTH' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-litres ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,34 @@
{
"id": "G1140",
"pool": "train",
"object_type": "PROG",
"category": "B",
"attempts": [
{
"stage": "bundle",
"errors": [
"Too close to task G0020 (similarity spec 0.67, rules 0.49, names 1.00). Choose a different business topic and different object names.",
"Too close to task G0183 (similarity spec 0.60, rules 0.00, names 1.00). Choose a different business topic and different object names."
],
"by_check": {
"extra": 2
}
},
{
"stage": "validate",
"oracle": 86.7,
"null": 0
},
{
"stage": "validate",
"oracle": 100.0,
"null": 0,
"mutation": {
"valid": 2,
"killed": 2,
"ok": true
}
}
],
"accepted": true
}

View File

@@ -15,7 +15,7 @@ CLASS {{p}}mill_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
IMPORTING ir_data TYPE REF TO data
iv_row TYPE i
iv_col TYPE string
RETURNING VALUE(rv_value) TYPE string.
RETURNING VALUE(rv_value) TYPE {{p}}press-litres.
METHODS lines_of
IMPORTING ir_data TYPE REF TO data
RETURNING VALUE(rv_lines) TYPE i.
@@ -60,9 +60,12 @@ CLASS {{p}}mill_hidden IMPLEMENTATION.
ENDMETHOD.
METHOD amount_of.
DATA lv_amount TYPE p LENGTH 15 DECIMALS 2.
lv_amount = value_of( ir_data = ir_data iv_row = iv_row iv_col = iv_col ).
rv_value = CONV string( lv_amount ).
FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
ASSIGN ir_data->* TO <lt_data>.
ASSIGN <lt_data>[ iv_row ] TO FIELD-SYMBOL(<ls_line>).
ASSIGN COMPONENT iv_col OF STRUCTURE <ls_line> TO FIELD-SYMBOL(<lv_value>).
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = |Column { iv_col } missing| ).
rv_value = <lv_value>.
ENDMETHOD.
METHOD all_regions.
@@ -70,29 +73,40 @@ CLASS {{p}}mill_hidden IMPLEMENTATION.
ENDMETHOD.
METHOD sorted_by_litres.
DATA(lr_data) = run( '20260101' ).
DATA lr_data TYPE REF TO data.
lr_data = run( '20260101' ).
cl_abap_unit_assert=>assert_equals( exp = `NORTH` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `REGION` ) ).
cl_abap_unit_assert=>assert_equals( exp = `SOUTH` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `REGION` ) ).
cl_abap_unit_assert=>assert_equals( exp = `WEST` act = value_of( ir_data = lr_data iv_row = 3 iv_col = `REGION` ) ).
ENDMETHOD.
METHOD litres_and_kilos.
DATA(lr_data) = run( '20260101' ).
cl_abap_unit_assert=>assert_equals( exp = `290.00` act = amount_of( ir_data = lr_data iv_row = 1 iv_col = `LITRES` ) ).
cl_abap_unit_assert=>assert_equals( exp = `1500` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `KILOS` ) ).
DATA lr_data TYPE REF TO data.
DATA lv_expected TYPE {{p}}press-litres.
lr_data = run( '20260101' ).
lv_expected = '290.00'.
cl_abap_unit_assert=>assert_equals( exp = lv_expected
act = amount_of( ir_data = lr_data iv_row = 1 iv_col = `LITRES` ) ).
cl_abap_unit_assert=>assert_equals( exp = `1500`
act = value_of( ir_data = lr_data iv_row = 1 iv_col = `KILOS` ) ).
ENDMETHOD.
METHOD region_filter.
DATA(lr_data) = run( iv_from = '20260101'
it_region = VALUE #( ( sign = 'I' option = 'EQ' low = 'SOUTH' ) ) ).
DATA lr_data TYPE REF TO data.
DATA lv_expected TYPE {{p}}press-litres.
lr_data = run( iv_from = '20260101'
it_region = VALUE #( ( sign = 'I' option = 'EQ' low = 'SOUTH' ) ) ).
lv_expected = '150.00'.
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `150.00` act = amount_of( ir_data = lr_data iv_row = 1 iv_col = `LITRES` ) ).
cl_abap_unit_assert=>assert_equals( exp = lv_expected
act = amount_of( ir_data = lr_data iv_row = 1 iv_col = `LITRES` ) ).
ENDMETHOD.
METHOD two_region_filter.
DATA(lr_data) = run( iv_from = '20260101'
it_region = VALUE #( ( sign = 'I' option = 'EQ' low = 'WEST' )
( sign = 'I' option = 'EQ' low = 'SOUTH' ) ) ).
DATA lr_data TYPE REF TO data.
lr_data = run( iv_from = '20260101'
it_region = VALUE #( ( sign = 'I' option = 'EQ' low = 'WEST' )
( sign = 'I' option = 'EQ' low = 'SOUTH' ) ) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines_of( lr_data ) ).
cl_abap_unit_assert=>assert_equals( exp = `SOUTH` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `REGION` ) ).
cl_abap_unit_assert=>assert_equals( exp = `WEST` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `REGION` ) ).

View File

@@ -1,5 +1,5 @@
{
"task": "T50",
"task": "G1140",
"mutants": [
{
"object": "{{P}}OIL_REPORT",
@@ -8,37 +8,29 @@
"hidden": "0/6",
"failed_tests": [
"ALL_REGIONS",
"SORTED_BY_LITRES",
"DATE_FILTER",
"LITRES_AND_KILOS",
"REGION_FILTER",
"TWO_REGION_FILTER",
"DATE_FILTER"
"SORTED_BY_LITRES",
"TWO_REGION_FILTER"
]
},
{
"object": "{{P}}OIL_REPORT",
"mutant": "line 34: AND -> OR (logic)",
"status": "killed",
"hidden": "3/6",
"hidden": "1/6",
"failed_tests": [
"ALL_REGIONS",
"DATE_FILTER",
"REGION_FILTER",
"TWO_REGION_FILTER",
"DATE_FILTER"
]
},
{
"object": "{{P}}OIL_REPORT",
"mutant": "line 36: DESCENDING -> ASCENDING (order)",
"status": "killed",
"hidden": "4/6",
"failed_tests": [
"SORTED_BY_LITRES",
"TWO_REGION_FILTER"
]
}
],
"valid": 3,
"killed": 3,
"valid": 2,
"killed": 2,
"kill_rate": 1.0,
"ok": true
}