Stage 2 summary at 50 accepted trajectories

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 18:02:52 +02:00
parent 332fb4601d
commit 5bcd1bf9cd
1230 changed files with 77563 additions and 33 deletions

View File

@@ -0,0 +1,62 @@
FUNCTION {{p}}mush_harvest
IMPORTING
iv_room_a TYPE string
iv_room_b TYPE string
EXPORTING
ev_total_kg TYPE decfloat34
ev_room_count TYPE i
ev_top_grade TYPE char1
EXCEPTIONS
no_stock.
DATA lt_rows TYPE STANDARD TABLE OF {{P}}HARVEST.
DATA lt_stock TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY room_id grade.
DATA lt_grade TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY grade.
DATA lv_room TYPE {{P}}HARVEST-room_id.
DATA lv_best TYPE {{P}}HARVEST-weight_kg.
SELECT room_id, grade, batch_no, weight_kg
FROM {{P}}HARVEST
WHERE room_id <> ''
OR grade IN ( 'A', 'B', 'C' )
AND weight_kg > 0
AND ( room_id = @iv_room_a OR room_id = @iv_room_b )
INTO TABLE @lt_rows.
IF lt_rows IS INITIAL.
RAISE no_stock.
ENDIF.
LOOP AT lt_rows ASSIGNING FIELD-SYMBOL(<ls_row>).
ev_total_kg = ev_total_kg + <ls_row>-weight_kg.
READ TABLE lt_stock ASSIGNING FIELD-SYMBOL(<ls_stock>)
WITH TABLE KEY room_id = <ls_row>-room_id grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_stock>-weight_kg = <ls_stock>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_stock.
ENDIF.
READ TABLE lt_grade ASSIGNING FIELD-SYMBOL(<ls_grade>)
WITH TABLE KEY grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_grade>-weight_kg = <ls_grade>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_grade.
ENDIF.
ENDLOOP.
LOOP AT lt_stock INTO DATA(ls_stock).
IF ls_stock-room_id <> lv_room.
ev_room_count = ev_room_count + 1.
lv_room = ls_stock-room_id.
ENDIF.
ENDLOOP.
LOOP AT lt_grade INTO DATA(ls_grade).
IF ls_grade-weight_kg > lv_best.
lv_best = ls_grade-weight_kg.
ev_top_grade = ls_grade-grade.
ENDIF.
ENDLOOP.
ENDFUNCTION.

View File

@@ -0,0 +1,62 @@
FUNCTION {{p}}mush_harvest
IMPORTING
iv_room_a TYPE string
iv_room_b TYPE string
EXPORTING
ev_total_kg TYPE decfloat34
ev_room_count TYPE i
ev_top_grade TYPE char1
EXCEPTIONS
no_stock.
DATA lt_rows TYPE STANDARD TABLE OF {{P}}HARVEST.
DATA lt_stock TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY room_id grade.
DATA lt_grade TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY grade.
DATA lv_room TYPE {{P}}HARVEST-room_id.
DATA lv_best TYPE {{P}}HARVEST-weight_kg.
SELECT room_id, grade, batch_no, weight_kg
FROM {{P}}HARVEST
WHERE room_id <> ''
AND grade IN ( 'A', 'B', 'C' )
AND weight_kg > 0
AND ( room_id = @iv_room_a AND room_id = @iv_room_b )
INTO TABLE @lt_rows.
IF lt_rows IS INITIAL.
RAISE no_stock.
ENDIF.
LOOP AT lt_rows ASSIGNING FIELD-SYMBOL(<ls_row>).
ev_total_kg = ev_total_kg + <ls_row>-weight_kg.
READ TABLE lt_stock ASSIGNING FIELD-SYMBOL(<ls_stock>)
WITH TABLE KEY room_id = <ls_row>-room_id grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_stock>-weight_kg = <ls_stock>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_stock.
ENDIF.
READ TABLE lt_grade ASSIGNING FIELD-SYMBOL(<ls_grade>)
WITH TABLE KEY grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_grade>-weight_kg = <ls_grade>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_grade.
ENDIF.
ENDLOOP.
LOOP AT lt_stock INTO DATA(ls_stock).
IF ls_stock-room_id <> lv_room.
ev_room_count = ev_room_count + 1.
lv_room = ls_stock-room_id.
ENDIF.
ENDLOOP.
LOOP AT lt_grade INTO DATA(ls_grade).
IF ls_grade-weight_kg > lv_best.
lv_best = ls_grade-weight_kg.
ev_top_grade = ls_grade-grade.
ENDIF.
ENDLOOP.
ENDFUNCTION.

View File

@@ -0,0 +1,62 @@
FUNCTION {{p}}mush_harvest
IMPORTING
iv_room_a TYPE string
iv_room_b TYPE string
EXPORTING
ev_total_kg TYPE decfloat34
ev_room_count TYPE i
ev_top_grade TYPE char1
EXCEPTIONS
no_stock.
DATA lt_rows TYPE STANDARD TABLE OF {{P}}HARVEST.
DATA lt_stock TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY room_id grade.
DATA lt_grade TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY grade.
DATA lv_room TYPE {{P}}HARVEST-room_id.
DATA lv_best TYPE {{P}}HARVEST-weight_kg.
SELECT room_id, grade, batch_no, weight_kg
FROM {{P}}HARVEST
WHERE room_id <> ''
AND grade IN ( 'A', 'B', 'C' )
AND weight_kg > 0
AND ( room_id = @iv_room_a OR room_id <> @iv_room_b )
INTO TABLE @lt_rows.
IF lt_rows IS INITIAL.
RAISE no_stock.
ENDIF.
LOOP AT lt_rows ASSIGNING FIELD-SYMBOL(<ls_row>).
ev_total_kg = ev_total_kg + <ls_row>-weight_kg.
READ TABLE lt_stock ASSIGNING FIELD-SYMBOL(<ls_stock>)
WITH TABLE KEY room_id = <ls_row>-room_id grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_stock>-weight_kg = <ls_stock>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_stock.
ENDIF.
READ TABLE lt_grade ASSIGNING FIELD-SYMBOL(<ls_grade>)
WITH TABLE KEY grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_grade>-weight_kg = <ls_grade>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_grade.
ENDIF.
ENDLOOP.
LOOP AT lt_stock INTO DATA(ls_stock).
IF ls_stock-room_id <> lv_room.
ev_room_count = ev_room_count + 1.
lv_room = ls_stock-room_id.
ENDIF.
ENDLOOP.
LOOP AT lt_grade INTO DATA(ls_grade).
IF ls_grade-weight_kg > lv_best.
lv_best = ls_grade-weight_kg.
ev_top_grade = ls_grade-grade.
ENDIF.
ENDLOOP.
ENDFUNCTION.

View File

@@ -0,0 +1,62 @@
FUNCTION {{p}}mush_harvest
IMPORTING
iv_room_a TYPE string
iv_room_b TYPE string
EXPORTING
ev_total_kg TYPE decfloat34
ev_room_count TYPE i
ev_top_grade TYPE char1
EXCEPTIONS
no_stock.
DATA lt_rows TYPE STANDARD TABLE OF {{P}}HARVEST.
DATA lt_stock TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY room_id grade.
DATA lt_grade TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY grade.
DATA lv_room TYPE {{P}}HARVEST-room_id.
DATA lv_best TYPE {{P}}HARVEST-weight_kg.
SELECT room_id, grade, batch_no, weight_kg
FROM {{P}}HARVEST
WHERE room_id <> ''
AND grade IN ( 'A', 'B', 'C' )
AND weight_kg > 0
AND ( room_id = @iv_room_a OR room_id = @iv_room_b )
INTO TABLE @lt_rows.
IF lt_rows IS INITIAL.
RAISE no_stock.
ENDIF.
LOOP AT lt_rows ASSIGNING FIELD-SYMBOL(<ls_row>).
ev_total_kg = ev_total_kg + <ls_row>-weight_kg.
READ TABLE lt_stock ASSIGNING FIELD-SYMBOL(<ls_stock>)
WITH TABLE KEY room_id = <ls_row>-room_id grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_stock>-weight_kg = <ls_stock>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_stock.
ENDIF.
READ TABLE lt_grade ASSIGNING FIELD-SYMBOL(<ls_grade>)
WITH TABLE KEY grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_grade>-weight_kg = <ls_grade>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_grade.
ENDIF.
ENDLOOP.
LOOP AT lt_stock INTO DATA(ls_stock).
IF ls_stock-room_id = lv_room.
ev_room_count = ev_room_count + 1.
lv_room = ls_stock-room_id.
ENDIF.
ENDLOOP.
LOOP AT lt_grade INTO DATA(ls_grade).
IF ls_grade-weight_kg > lv_best.
lv_best = ls_grade-weight_kg.
ev_top_grade = ls_grade-grade.
ENDIF.
ENDLOOP.
ENDFUNCTION.

View File

@@ -0,0 +1,62 @@
FUNCTION {{p}}mush_harvest
IMPORTING
iv_room_a TYPE string
iv_room_b TYPE string
EXPORTING
ev_total_kg TYPE decfloat34
ev_room_count TYPE i
ev_top_grade TYPE char1
EXCEPTIONS
no_stock.
DATA lt_rows TYPE STANDARD TABLE OF {{P}}HARVEST.
DATA lt_stock TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY room_id grade.
DATA lt_grade TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY grade.
DATA lv_room TYPE {{P}}HARVEST-room_id.
DATA lv_best TYPE {{P}}HARVEST-weight_kg.
SELECT room_id, grade, batch_no, weight_kg
FROM {{P}}HARVEST
WHERE room_id <> ''
AND grade IN ( 'A', 'B', 'C' )
AND weight_kg > 0
AND ( room_id = @iv_room_a OR room_id = @iv_room_b )
INTO TABLE @lt_rows.
IF lt_rows IS INITIAL.
RAISE no_stock.
ENDIF.
LOOP AT lt_rows ASSIGNING FIELD-SYMBOL(<ls_row>).
ev_total_kg = ev_total_kg + <ls_row>-weight_kg.
READ TABLE lt_stock ASSIGNING FIELD-SYMBOL(<ls_stock>)
WITH TABLE KEY room_id = <ls_row>-room_id grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_stock>-weight_kg = <ls_stock>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_stock.
ENDIF.
READ TABLE lt_grade ASSIGNING FIELD-SYMBOL(<ls_grade>)
WITH TABLE KEY grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_grade>-weight_kg = <ls_grade>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_grade.
ENDIF.
ENDLOOP.
LOOP AT lt_stock INTO DATA(ls_stock).
IF ls_stock-room_id <> lv_room.
ev_room_count = ev_room_count - 1.
lv_room = ls_stock-room_id.
ENDIF.
ENDLOOP.
LOOP AT lt_grade INTO DATA(ls_grade).
IF ls_grade-weight_kg > lv_best.
lv_best = ls_grade-weight_kg.
ev_top_grade = ls_grade-grade.
ENDIF.
ENDLOOP.
ENDFUNCTION.

View File

@@ -0,0 +1,34 @@
{
"id": "G1121",
"pool": "train",
"object_type": "FUNC",
"category": "C",
"attempts": [
{
"stage": "bundle",
"errors": [
"seed/harvest.tabl.abap: a table needs the annotation @AbapCatalog.tableCategory (for example #TRANSPARENT, #A)",
"seed/harvest.tabl.abap: a table needs the annotation @AbapCatalog.deliveryClass (for example #TRANSPARENT, #A)"
],
"by_check": {
"static": 2
}
},
{
"stage": "validate",
"oracle": 0,
"null": 0
},
{
"stage": "validate",
"oracle": 100.0,
"null": 0,
"mutation": {
"valid": 5,
"killed": 5,
"ok": true
}
}
],
"accepted": true
}

View File

@@ -0,0 +1,171 @@
CLASS {{p}}t_mush_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS setup.
METHODS teardown.
METHODS add_batch
IMPORTING iv_room TYPE string iv_grade TYPE string
iv_batch TYPE string iv_weight TYPE decfloat34.
METHODS call
IMPORTING iv_a TYPE string iv_b TYPE string
EXPORTING ev_total TYPE decfloat34 ev_rooms TYPE i
ev_grade TYPE char1 ev_subrc TYPE sysubrc.
METHODS totals_two_rooms FOR TESTING.
METHODS ignores_other_room FOR TESTING.
METHODS ignores_bad_grade FOR TESTING.
METHODS ignores_zero_weight FOR TESTING.
METHODS ignores_negative_weight FOR TESTING.
METHODS counts_rooms FOR TESTING.
METHODS top_grade_by_weight FOR TESTING.
METHODS top_grade_tie FOR TESTING.
METHODS empty_table_raises FOR TESTING.
METHODS no_counting_row_raises FOR TESTING.
METHODS ignores_empty_room FOR TESTING.
ENDCLASS.
CLASS {{p}}t_mush_hidden IMPLEMENTATION.
METHOD setup.
DELETE FROM {{P}}HARVEST.
ENDMETHOD.
METHOD teardown.
DELETE FROM {{P}}HARVEST.
ENDMETHOD.
METHOD add_batch.
DATA ls_row TYPE {{P}}HARVEST.
ls_row-room_id = iv_room.
ls_row-grade = iv_grade.
ls_row-batch_no = iv_batch.
ls_row-weight_kg = iv_weight.
INSERT {{P}}HARVEST FROM @ls_row.
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
ENDMETHOD.
METHOD call.
CALL FUNCTION '{{P}}MUSH_HARVEST'
EXPORTING
iv_room_a = iv_a
iv_room_b = iv_b
IMPORTING
ev_total_kg = ev_total
ev_room_count = ev_rooms
ev_top_grade = ev_grade
EXCEPTIONS
no_stock = 1
OTHERS = 2.
ev_subrc = sy-subrc.
ENDMETHOD.
METHOD totals_two_rooms.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '10.000' ).
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '002' iv_weight = '2.500' ).
add_batch( iv_room = 'R02' iv_grade = 'A' iv_batch = '001' iv_weight = '1.500' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_rooms = DATA(lv_rooms) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '14' ) act = lv_total ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rooms ).
ENDMETHOD.
METHOD ignores_other_room.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '4.000' ).
add_batch( iv_room = 'R03' iv_grade = 'A' iv_batch = '001' iv_weight = '9.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_rooms = DATA(lv_rooms) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 4 ) act = lv_total ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rooms ).
ENDMETHOD.
METHOD ignores_bad_grade.
add_batch( iv_room = 'R01' iv_grade = 'D' iv_batch = '001' iv_weight = '7.000' ).
add_batch( iv_room = 'R01' iv_grade = 'a' iv_batch = '002' iv_weight = '7.000' ).
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '003' iv_weight = '1.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 1 ) act = lv_total ).
ENDMETHOD.
METHOD ignores_zero_weight.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '0.000' ).
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '002' iv_weight = '4.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_grade = DATA(lv_grade) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 4 ) act = lv_total ).
cl_abap_unit_assert=>assert_equals( exp = 'B' act = lv_grade ).
ENDMETHOD.
METHOD ignores_negative_weight.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '-3.000' ).
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '002' iv_weight = '4.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 4 ) act = lv_total ).
ENDMETHOD.
METHOD counts_rooms.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '5.000' ).
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '002' iv_weight = '5.000' ).
add_batch( iv_room = 'R02' iv_grade = 'C' iv_batch = '001' iv_weight = '5.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_rooms = DATA(lv_rooms) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 15 ) act = lv_total ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rooms ).
ENDMETHOD.
METHOD top_grade_by_weight.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '1.000' ).
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '002' iv_weight = '9.000' ).
add_batch( iv_room = 'R02' iv_grade = 'C' iv_batch = '001' iv_weight = '2.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_grade = DATA(lv_grade) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 'B' act = lv_grade ).
ENDMETHOD.
METHOD top_grade_tie.
add_batch( iv_room = 'R01' iv_grade = 'C' iv_batch = '001' iv_weight = '5.000' ).
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '002' iv_weight = '5.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R01'
IMPORTING ev_grade = DATA(lv_grade) ev_rooms = DATA(lv_rooms) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 'A' act = lv_grade ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rooms ).
ENDMETHOD.
METHOD empty_table_raises.
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_rooms = DATA(lv_rooms)
ev_grade = DATA(lv_grade) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_total ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rooms ).
cl_abap_unit_assert=>assert_initial( act = lv_grade ).
ENDMETHOD.
METHOD no_counting_row_raises.
add_batch( iv_room = 'R01' iv_grade = 'D' iv_batch = '001' iv_weight = '5.000' ).
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '002' iv_weight = '0.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_rooms = DATA(lv_rooms) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_total ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rooms ).
ENDMETHOD.
METHOD ignores_empty_room.
add_batch( iv_room = '' iv_grade = 'A' iv_batch = '001' iv_weight = '9.000' ).
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '1.000' ).
call( EXPORTING iv_a = '' iv_b = 'R01'
IMPORTING ev_total = DATA(lv_total) ev_rooms = DATA(lv_rooms) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 1 ) act = lv_total ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rooms ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,76 @@
{
"task": "G1121",
"mutants": [
{
"object": "{{P}}MUSH_HARVEST",
"mutant": "line 21: AND -> OR (logic)",
"status": "killed",
"hidden": "6/11",
"failed_tests": [
"IGNORES_BAD_GRADE",
"IGNORES_EMPTY_ROOM",
"IGNORES_NEGATIVE_WEIGHT",
"IGNORES_OTHER_ROOM",
"NO_COUNTING_ROW_RAISES"
]
},
{
"object": "{{P}}MUSH_HARVEST",
"mutant": "line 23: OR -> AND (logic)",
"status": "killed",
"hidden": "3/11",
"failed_tests": [
"COUNTS_ROOMS",
"IGNORES_BAD_GRADE",
"IGNORES_EMPTY_ROOM",
"IGNORES_NEGATIVE_WEIGHT",
"IGNORES_OTHER_ROOM",
"IGNORES_ZERO_WEIGHT",
"TOP_GRADE_BY_WEIGHT",
"TOTALS_TWO_ROOMS"
]
},
{
"object": "{{P}}MUSH_HARVEST",
"mutant": "line 23: = -> <> (eq)",
"status": "killed",
"hidden": "7/11",
"failed_tests": [
"COUNTS_ROOMS",
"IGNORES_EMPTY_ROOM",
"IGNORES_OTHER_ROOM",
"TOTALS_TWO_ROOMS"
]
},
{
"object": "{{P}}MUSH_HARVEST",
"mutant": "line 49: <> -> = (rel)",
"status": "killed",
"hidden": "6/11",
"failed_tests": [
"COUNTS_ROOMS",
"IGNORES_EMPTY_ROOM",
"IGNORES_OTHER_ROOM",
"TOP_GRADE_TIE",
"TOTALS_TWO_ROOMS"
]
},
{
"object": "{{P}}MUSH_HARVEST",
"mutant": "line 50: + -> - (arith)",
"status": "killed",
"hidden": "6/11",
"failed_tests": [
"COUNTS_ROOMS",
"IGNORES_EMPTY_ROOM",
"IGNORES_OTHER_ROOM",
"TOP_GRADE_TIE",
"TOTALS_TWO_ROOMS"
]
}
],
"valid": 5,
"killed": 5,
"kill_rate": 1.0,
"ok": true
}

View File

@@ -0,0 +1,62 @@
FUNCTION {{p}}mush_harvest
IMPORTING
iv_room_a TYPE string
iv_room_b TYPE string
EXPORTING
ev_total_kg TYPE decfloat34
ev_room_count TYPE i
ev_top_grade TYPE char1
EXCEPTIONS
no_stock.
DATA lt_rows TYPE STANDARD TABLE OF {{P}}HARVEST.
DATA lt_stock TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY room_id grade.
DATA lt_grade TYPE SORTED TABLE OF {{P}}HARVEST WITH UNIQUE KEY grade.
DATA lv_room TYPE {{P}}HARVEST-room_id.
DATA lv_best TYPE {{P}}HARVEST-weight_kg.
SELECT room_id, grade, batch_no, weight_kg
FROM {{P}}HARVEST
WHERE room_id <> ''
AND grade IN ( 'A', 'B', 'C' )
AND weight_kg > 0
AND ( room_id = @iv_room_a OR room_id = @iv_room_b )
INTO TABLE @lt_rows.
IF lt_rows IS INITIAL.
RAISE no_stock.
ENDIF.
LOOP AT lt_rows ASSIGNING FIELD-SYMBOL(<ls_row>).
ev_total_kg = ev_total_kg + <ls_row>-weight_kg.
READ TABLE lt_stock ASSIGNING FIELD-SYMBOL(<ls_stock>)
WITH TABLE KEY room_id = <ls_row>-room_id grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_stock>-weight_kg = <ls_stock>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_stock.
ENDIF.
READ TABLE lt_grade ASSIGNING FIELD-SYMBOL(<ls_grade>)
WITH TABLE KEY grade = <ls_row>-grade.
IF sy-subrc = 0.
<ls_grade>-weight_kg = <ls_grade>-weight_kg + <ls_row>-weight_kg.
ELSE.
INSERT <ls_row> INTO TABLE lt_grade.
ENDIF.
ENDLOOP.
LOOP AT lt_stock INTO DATA(ls_stock).
IF ls_stock-room_id <> lv_room.
ev_room_count = ev_room_count + 1.
lv_room = ls_stock-room_id.
ENDIF.
ENDLOOP.
LOOP AT lt_grade INTO DATA(ls_grade).
IF ls_grade-weight_kg > lv_best.
lv_best = ls_grade-weight_kg.
ev_top_grade = ls_grade-grade.
ENDIF.
ENDLOOP.
ENDFUNCTION.

View File

@@ -0,0 +1,89 @@
CLASS {{p}}t_mush_test DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS setup.
METHODS teardown.
METHODS add_batch
IMPORTING iv_room TYPE string iv_grade TYPE string
iv_batch TYPE string iv_weight TYPE decfloat34.
METHODS call
IMPORTING iv_a TYPE string iv_b TYPE string
EXPORTING ev_total TYPE decfloat34 ev_rooms TYPE i
ev_grade TYPE char1 ev_subrc TYPE sysubrc.
METHODS sums_two_rooms FOR TESTING.
METHODS ignores_bad_records FOR TESTING.
METHODS finds_top_grade FOR TESTING.
METHODS raises_without_records FOR TESTING.
ENDCLASS.
CLASS {{p}}t_mush_test IMPLEMENTATION.
METHOD setup.
DELETE FROM {{P}}HARVEST.
ENDMETHOD.
METHOD teardown.
DELETE FROM {{P}}HARVEST.
ENDMETHOD.
METHOD add_batch.
DATA ls_row TYPE {{P}}HARVEST.
ls_row-room_id = iv_room.
ls_row-grade = iv_grade.
ls_row-batch_no = iv_batch.
ls_row-weight_kg = iv_weight.
INSERT {{P}}HARVEST FROM @ls_row.
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
ENDMETHOD.
METHOD call.
CALL FUNCTION '{{P}}MUSH_HARVEST'
EXPORTING
iv_room_a = iv_a
iv_room_b = iv_b
IMPORTING
ev_total_kg = ev_total
ev_room_count = ev_rooms
ev_top_grade = ev_grade
EXCEPTIONS
no_stock = 1
OTHERS = 2.
ev_subrc = sy-subrc.
ENDMETHOD.
METHOD sums_two_rooms.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '10.000' ).
add_batch( iv_room = 'R02' iv_grade = 'B' iv_batch = '001' iv_weight = '5.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_rooms = DATA(lv_rooms) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 15 ) act = lv_total ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rooms ).
ENDMETHOD.
METHOD ignores_bad_records.
add_batch( iv_room = 'R01' iv_grade = 'D' iv_batch = '001' iv_weight = '4.000' ).
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '002' iv_weight = '0.000' ).
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '003' iv_weight = '3.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 3 ) act = lv_total ).
ENDMETHOD.
METHOD finds_top_grade.
add_batch( iv_room = 'R01' iv_grade = 'A' iv_batch = '001' iv_weight = '1.000' ).
add_batch( iv_room = 'R01' iv_grade = 'B' iv_batch = '002' iv_weight = '9.000' ).
call( EXPORTING iv_a = 'R01' iv_b = 'R01'
IMPORTING ev_grade = DATA(lv_grade) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 'B' act = lv_grade ).
ENDMETHOD.
METHOD raises_without_records.
call( EXPORTING iv_a = 'R01' iv_b = 'R02'
IMPORTING ev_total = DATA(lv_total) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_total ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,10 @@
@EndUserText.label: 'Harvest record of a growing room'
@AbapCatalog.tableCategory: #TRANSPARENT
@AbapCatalog.deliveryClass: #A
@AbapCatalog.enhancement.category: #NOT_EXTENSIBLE
define table {{P}}HARVEST {
key room_id : abap.char(4);
key grade : abap.char(1);
key batch_no : abap.char(3);
weight_kg : abap.dec(13,3);
}

View File

@@ -0,0 +1,54 @@
# 1. Goal
Summarise the harvest of two growing rooms of a mushroom farm. The store keeper
calls one function module for the two rooms. The function module reads the
harvest records of the two rooms and returns the summary.
# 2. Open questions
None.
# 3. Context
- Function group {{P}}FG_MUSH exists in package $TMP.
- Table {{P}}HARVEST exists in package $TMP. It holds the harvest records of
all growing rooms. Its fields are room_id, grade, batch_no and weight_kg. One
record is the weight of one batch of one grade in one room.
- The function module reads the harvest records of the two rooms from this
table.
# 4. Contract
- Create the function module {{P}}MUSH_HARVEST in function group {{P}}FG_MUSH.
- Interface of {{P}}MUSH_HARVEST:
IMPORTING iv_room_a TYPE string
IMPORTING iv_room_b TYPE string
EXPORTING ev_total_kg TYPE decfloat34
EXPORTING ev_room_count TYPE i
EXPORTING ev_top_grade TYPE char1
EXCEPTIONS no_stock
# 5. Business rules
1. A harvest record counts only if all of these conditions are true:
- its room_id is not empty,
- its room_id is equal to iv_room_a or to iv_room_b,
- its grade is 'A', 'B' or 'C',
- its weight_kg is greater than zero.
2. A record that does not count is ignored. It does not cause an error.
3. ev_total_kg is the sum of the weight_kg of all counting records. If no
record counts, ev_total_kg is 0.
4. ev_room_count is the number of different room_id values among the counting
records. If no record counts, ev_room_count is 0.
5. ev_top_grade is the grade with the highest sum of weight_kg among the
counting records. If two grades have the same sum, ev_top_grade is the grade
that comes first in alphabetical order. If no record counts, ev_top_grade is
initial.
6. If no record counts, the function module raises the exception NO_STOCK.
7. If at least one record counts, the function module does not raise an
exception.
# 6. Constraints
- Release target: ABAP Platform 2025 (SAP_BASIS 816).
- Coding standards: Clean ABAP. Keep the function module below 40 statements.
- Out of scope: do not change table {{P}}HARVEST.
# 7. Acceptance
- The function module is active and has no syntax error.
- The hidden tests pass.
- Write ABAP Unit tests for the function module in a global test class.

View File

@@ -0,0 +1,84 @@
{
"id": "G1121",
"category": "C",
"object_type": "FUNC",
"difficulty": 2,
"release_target": "v816",
"expected_outcome": "implement",
"budget": {
"max_tool_calls": 60,
"max_activations": 15
},
"seed": [
{
"type": "FUGR",
"name": "{{P}}FG_MUSH",
"description": "Functions of the mushroom farm"
},
{
"type": "TABL",
"name": "{{P}}HARVEST",
"file": "seed/harvest.tabl.abap",
"description": "Harvest record of a growing room"
}
],
"contract": [
{
"type": "FUNC",
"name": "{{P}}MUSH_HARVEST",
"functionGroup": "{{P}}FG_MUSH",
"params": [
{
"name": "iv_room_a",
"type": "string"
},
{
"name": "iv_room_b",
"type": "string"
},
{
"name": "ev_total_kg",
"type": "decfloat34"
},
{
"name": "ev_room_count",
"type": "i"
},
{
"name": "ev_top_grade",
"type": "char1"
}
]
}
],
"out_of_scope": [
"{{P}}HARVEST"
],
"hidden_tests": [
{
"type": "CLAS",
"name": "{{P}}T_MUSH_HIDDEN",
"file": "hidden/t_mush_hidden.clas.abap",
"description": "Hidden tests for {{P}}MUSH_HARVEST"
}
],
"reference": [
{
"type": "FUNC",
"name": "{{P}}MUSH_HARVEST",
"functionGroup": "{{P}}FG_MUSH",
"file": "reference/mush_harvest.func.abap",
"description": "Summarises the harvest of two growing rooms"
},
{
"type": "CLAS",
"name": "{{P}}T_MUSH_TEST",
"file": "reference/t_mush_test.clas.abap",
"description": "Own tests for {{P}}MUSH_HARVEST"
}
],
"craft_checks": [
"method_length",
"internal_table_kind"
]
}