erhan/abap-llm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Step F first pass: 81/92 accepted; budget floor 60 calls; rejected slots moved for regeneration

Browse Source 
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
2026-10-03 12:10:52 +02:00
parent d3250acfb8
commit 39769afce8
741 changed files with 40573 additions and 317 deletions
Download Patch File Download Diff File Expand all files Collapse all files

194
tasks_gen/eval/G0162/faulty/m0_planetarium.prog.abap Normal file
View File

@@ -0,0 +1,194 @@
REPORT {{p}}planetarium.
TYPES: BEGIN OF ty_visit,
show_id TYPE {{p}}visit-show_id,
tickets TYPE {{p}}visit-tickets,
ticket_price TYPE {{p}}visit-ticket_price,
END OF ty_visit.
TYPES tt_visit TYPE STANDARD TABLE OF ty_visit.
TYPES: BEGIN OF ty_line,
show_id TYPE {{p}}visit-show_id,
tickets TYPE i,
revenue TYPE p LENGTH 15 DECIMALS 2,
END OF ty_line.
TYPES tt_line TYPE STANDARD TABLE OF ty_line.
DATA gv_show_id TYPE {{p}}visit-show_id.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_show FOR gv_show_id.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
METHODS aggregate
IMPORTING it_visits TYPE tt_visit
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD aggregate.
DATA: ls_visit TYPE ty_visit,
ls_line TYPE ty_line.
LOOP AT it_visits INTO ls_visit.
READ TABLE ct_lines INTO ls_line WITH KEY show_id = ls_visit-show_id.
IF sy-subrc = 0.
ls_line-tickets = ls_line-tickets + ls_visit-tickets.
ls_line-revenue = ls_line-revenue + ls_visit-tickets / ls_visit-ticket_price.
MODIFY ct_lines FROM ls_line INDEX sy-tabix.
ELSE.
CLEAR ls_line.
ls_line-show_id = ls_visit-show_id.
ls_line-tickets = ls_visit-tickets.
ls_line-revenue = ls_visit-tickets * ls_visit-ticket_price.
APPEND ls_line TO ct_lines.
ENDIF.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING show_id ASCENDING.
ENDMETHOD.
METHOD display.
DATA: lo_alv TYPE REF TO cl_salv_table,
lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
lo_report TYPE REF TO lcl_report.
SELECT show_id tickets ticket_price
FROM {{p}}visit
INTO TABLE lt_visits
WHERE visit_date >= p_from
AND show_id IN s_show
AND tickets > 0.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
lo_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS sums_by_show FOR TESTING.
METHODS sorted_by_revenue FOR TESTING.
METHODS tie_break_by_show FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD sums_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lv_exp TYPE p LENGTH 15 DECIMALS 2,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 5.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'B'.
ls_visit-tickets = 4.
ls_visit-ticket_price = '15.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 15 act = ls_line-tickets ).
lv_exp = 15 * 12.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'B' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 4 act = ls_line-tickets ).
lv_exp = 4 * 15.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
ENDMETHOD.
METHOD sorted_by_revenue.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'C'.
ls_visit-tickets = 1.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'D'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'D' act = ls_line-show_id ).
ENDMETHOD.
METHOD tie_break_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'Z'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'Z' act = ls_line-show_id ).
ENDMETHOD.
ENDCLASS.

194
tasks_gen/eval/G0162/faulty/m1_planetarium.prog.abap Normal file
View File

@@ -0,0 +1,194 @@
REPORT {{p}}planetarium.
TYPES: BEGIN OF ty_visit,
show_id TYPE {{p}}visit-show_id,
tickets TYPE {{p}}visit-tickets,
ticket_price TYPE {{p}}visit-ticket_price,
END OF ty_visit.
TYPES tt_visit TYPE STANDARD TABLE OF ty_visit.
TYPES: BEGIN OF ty_line,
show_id TYPE {{p}}visit-show_id,
tickets TYPE i,
revenue TYPE p LENGTH 15 DECIMALS 2,
END OF ty_line.
TYPES tt_line TYPE STANDARD TABLE OF ty_line.
DATA gv_show_id TYPE {{p}}visit-show_id.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_show FOR gv_show_id.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
METHODS aggregate
IMPORTING it_visits TYPE tt_visit
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD aggregate.
DATA: ls_visit TYPE ty_visit,
ls_line TYPE ty_line.
LOOP AT it_visits INTO ls_visit.
READ TABLE ct_lines INTO ls_line WITH KEY show_id = ls_visit-show_id.
IF sy-subrc = 0.
ls_line-tickets = ls_line-tickets + ls_visit-tickets.
ls_line-revenue = ls_line-revenue + ls_visit-tickets * ls_visit-ticket_price.
MODIFY ct_lines FROM ls_line INDEX sy-tabix.
ELSE.
CLEAR ls_line.
ls_line-show_id = ls_visit-show_id.
ls_line-tickets = ls_visit-tickets.
ls_line-revenue = ls_visit-tickets * ls_visit-ticket_price.
APPEND ls_line TO ct_lines.
ENDIF.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING show_id ASCENDING.
ENDMETHOD.
METHOD display.
DATA: lo_alv TYPE REF TO cl_salv_table,
lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
lo_report TYPE REF TO lcl_report.
SELECT show_id tickets ticket_price
FROM {{p}}visit
INTO TABLE lt_visits
WHERE visit_date < p_from
AND show_id IN s_show
AND tickets > 0.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
lo_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS sums_by_show FOR TESTING.
METHODS sorted_by_revenue FOR TESTING.
METHODS tie_break_by_show FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD sums_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lv_exp TYPE p LENGTH 15 DECIMALS 2,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 5.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'B'.
ls_visit-tickets = 4.
ls_visit-ticket_price = '15.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 15 act = ls_line-tickets ).
lv_exp = 15 * 12.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'B' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 4 act = ls_line-tickets ).
lv_exp = 4 * 15.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
ENDMETHOD.
METHOD sorted_by_revenue.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'C'.
ls_visit-tickets = 1.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'D'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'D' act = ls_line-show_id ).
ENDMETHOD.
METHOD tie_break_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'Z'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'Z' act = ls_line-show_id ).
ENDMETHOD.
ENDCLASS.

194
tasks_gen/eval/G0162/faulty/m2_planetarium.prog.abap Normal file
View File

@@ -0,0 +1,194 @@
REPORT {{p}}planetarium.
TYPES: BEGIN OF ty_visit,
show_id TYPE {{p}}visit-show_id,
tickets TYPE {{p}}visit-tickets,
ticket_price TYPE {{p}}visit-ticket_price,
END OF ty_visit.
TYPES tt_visit TYPE STANDARD TABLE OF ty_visit.
TYPES: BEGIN OF ty_line,
show_id TYPE {{p}}visit-show_id,
tickets TYPE i,
revenue TYPE p LENGTH 15 DECIMALS 2,
END OF ty_line.
TYPES tt_line TYPE STANDARD TABLE OF ty_line.
DATA gv_show_id TYPE {{p}}visit-show_id.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_show FOR gv_show_id.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
METHODS aggregate
IMPORTING it_visits TYPE tt_visit
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD aggregate.
DATA: ls_visit TYPE ty_visit,
ls_line TYPE ty_line.
LOOP AT it_visits INTO ls_visit.
READ TABLE ct_lines INTO ls_line WITH KEY show_id = ls_visit-show_id.
IF sy-subrc = 0.
ls_line-tickets = ls_line-tickets + ls_visit-tickets.
ls_line-revenue = ls_line-revenue + ls_visit-tickets * ls_visit-ticket_price.
MODIFY ct_lines FROM ls_line INDEX sy-tabix.
ELSE.
CLEAR ls_line.
ls_line-show_id = ls_visit-show_id.
ls_line-tickets = ls_visit-tickets.
ls_line-revenue = ls_visit-tickets * ls_visit-ticket_price.
APPEND ls_line TO ct_lines.
ENDIF.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING show_id ASCENDING.
ENDMETHOD.
METHOD display.
DATA: lo_alv TYPE REF TO cl_salv_table,
lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
lo_report TYPE REF TO lcl_report.
SELECT show_id tickets ticket_price
FROM {{p}}visit
INTO TABLE lt_visits
WHERE visit_date >= p_from
OR show_id IN s_show
AND tickets > 0.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
lo_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS sums_by_show FOR TESTING.
METHODS sorted_by_revenue FOR TESTING.
METHODS tie_break_by_show FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD sums_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lv_exp TYPE p LENGTH 15 DECIMALS 2,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 5.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'B'.
ls_visit-tickets = 4.
ls_visit-ticket_price = '15.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 15 act = ls_line-tickets ).
lv_exp = 15 * 12.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'B' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 4 act = ls_line-tickets ).
lv_exp = 4 * 15.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
ENDMETHOD.
METHOD sorted_by_revenue.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'C'.
ls_visit-tickets = 1.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'D'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'D' act = ls_line-show_id ).
ENDMETHOD.
METHOD tie_break_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'Z'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'Z' act = ls_line-show_id ).
ENDMETHOD.
ENDCLASS.

194
tasks_gen/eval/G0162/faulty/m3_planetarium.prog.abap Normal file
View File

@@ -0,0 +1,194 @@
REPORT {{p}}planetarium.
TYPES: BEGIN OF ty_visit,
show_id TYPE {{p}}visit-show_id,
tickets TYPE {{p}}visit-tickets,
ticket_price TYPE {{p}}visit-ticket_price,
END OF ty_visit.
TYPES tt_visit TYPE STANDARD TABLE OF ty_visit.
TYPES: BEGIN OF ty_line,
show_id TYPE {{p}}visit-show_id,
tickets TYPE i,
revenue TYPE p LENGTH 15 DECIMALS 2,
END OF ty_line.
TYPES tt_line TYPE STANDARD TABLE OF ty_line.
DATA gv_show_id TYPE {{p}}visit-show_id.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_show FOR gv_show_id.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
METHODS aggregate
IMPORTING it_visits TYPE tt_visit
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD aggregate.
DATA: ls_visit TYPE ty_visit,
ls_line TYPE ty_line.
LOOP AT it_visits INTO ls_visit.
READ TABLE ct_lines INTO ls_line WITH KEY show_id = ls_visit-show_id.
IF sy-subrc = 0.
ls_line-tickets = ls_line-tickets + ls_visit-tickets.
ls_line-revenue = ls_line-revenue + ls_visit-tickets * ls_visit-ticket_price.
MODIFY ct_lines FROM ls_line INDEX sy-tabix.
ELSE.
CLEAR ls_line.
ls_line-show_id = ls_visit-show_id.
ls_line-tickets = ls_visit-tickets.
ls_line-revenue = ls_visit-tickets * ls_visit-ticket_price.
APPEND ls_line TO ct_lines.
ENDIF.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING show_id ASCENDING.
ENDMETHOD.
METHOD display.
DATA: lo_alv TYPE REF TO cl_salv_table,
lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
lo_report TYPE REF TO lcl_report.
SELECT show_id tickets ticket_price
FROM {{p}}visit
INTO TABLE lt_visits
WHERE visit_date >= p_from
AND show_id IN s_show
OR tickets > 0.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
lo_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS sums_by_show FOR TESTING.
METHODS sorted_by_revenue FOR TESTING.
METHODS tie_break_by_show FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD sums_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lv_exp TYPE p LENGTH 15 DECIMALS 2,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 5.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'B'.
ls_visit-tickets = 4.
ls_visit-ticket_price = '15.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 15 act = ls_line-tickets ).
lv_exp = 15 * 12.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'B' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 4 act = ls_line-tickets ).
lv_exp = 4 * 15.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
ENDMETHOD.
METHOD sorted_by_revenue.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'C'.
ls_visit-tickets = 1.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'D'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'D' act = ls_line-show_id ).
ENDMETHOD.
METHOD tie_break_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'Z'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'Z' act = ls_line-show_id ).
ENDMETHOD.
ENDCLASS.

194
tasks_gen/eval/G0162/faulty/m4_planetarium.prog.abap Normal file
View File

@@ -0,0 +1,194 @@
REPORT {{p}}planetarium.
TYPES: BEGIN OF ty_visit,
show_id TYPE {{p}}visit-show_id,
tickets TYPE {{p}}visit-tickets,
ticket_price TYPE {{p}}visit-ticket_price,
END OF ty_visit.
TYPES tt_visit TYPE STANDARD TABLE OF ty_visit.
TYPES: BEGIN OF ty_line,
show_id TYPE {{p}}visit-show_id,
tickets TYPE i,
revenue TYPE p LENGTH 15 DECIMALS 2,
END OF ty_line.
TYPES tt_line TYPE STANDARD TABLE OF ty_line.
DATA gv_show_id TYPE {{p}}visit-show_id.
PARAMETERS p_from TYPE d OBLIGATORY.
SELECT-OPTIONS s_show FOR gv_show_id.
CLASS lcl_report DEFINITION FINAL.
PUBLIC SECTION.
METHODS aggregate
IMPORTING it_visits TYPE tt_visit
CHANGING ct_lines TYPE tt_line.
METHODS display
CHANGING ct_lines TYPE tt_line.
ENDCLASS.
CLASS lcl_report IMPLEMENTATION.
METHOD aggregate.
DATA: ls_visit TYPE ty_visit,
ls_line TYPE ty_line.
LOOP AT it_visits INTO ls_visit.
READ TABLE ct_lines INTO ls_line WITH KEY show_id = ls_visit-show_id.
IF sy-subrc = 0.
ls_line-tickets = ls_line-tickets + ls_visit-tickets.
ls_line-revenue = ls_line-revenue + ls_visit-tickets * ls_visit-ticket_price.
MODIFY ct_lines FROM ls_line INDEX sy-tabix.
ELSE.
CLEAR ls_line.
ls_line-show_id = ls_visit-show_id.
ls_line-tickets = ls_visit-tickets.
ls_line-revenue = ls_visit-tickets * ls_visit-ticket_price.
APPEND ls_line TO ct_lines.
ENDIF.
ENDLOOP.
SORT ct_lines BY revenue DESCENDING show_id ASCENDING.
ENDMETHOD.
METHOD display.
DATA: lo_alv TYPE REF TO cl_salv_table,
lx_error TYPE REF TO cx_salv_msg.
TRY.
cl_salv_table=>factory(
IMPORTING r_salv_table = lo_alv
CHANGING t_table = ct_lines ).
lo_alv->display( ).
CATCH cx_salv_msg INTO lx_error.
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
lo_report TYPE REF TO lcl_report.
SELECT show_id tickets ticket_price
FROM {{p}}visit
INTO TABLE lt_visits
WHERE visit_date >= p_from
AND show_id IN s_show
AND tickets <= 0.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
lo_report->display( CHANGING ct_lines = lt_lines ).
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS sums_by_show FOR TESTING.
METHODS sorted_by_revenue FOR TESTING.
METHODS tie_break_by_show FOR TESTING.
ENDCLASS.
CLASS ltc_report IMPLEMENTATION.
METHOD sums_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lv_exp TYPE p LENGTH 15 DECIMALS 2,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 5.
ls_visit-ticket_price = '12.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'B'.
ls_visit-tickets = 4.
ls_visit-ticket_price = '15.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 15 act = ls_line-tickets ).
lv_exp = 15 * 12.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'B' act = ls_line-show_id ).
cl_abap_unit_assert=>assert_equals( exp = 4 act = ls_line-tickets ).
lv_exp = 4 * 15.
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = ls_line-revenue ).
ENDMETHOD.
METHOD sorted_by_revenue.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'C'.
ls_visit-tickets = 1.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'D'.
ls_visit-tickets = 10.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'D' act = ls_line-show_id ).
ENDMETHOD.
METHOD tie_break_by_show.
DATA: lt_visits TYPE tt_visit,
lt_lines TYPE tt_line,
ls_visit TYPE ty_visit,
ls_line TYPE ty_line,
lo_report TYPE REF TO lcl_report.
CLEAR ls_visit.
ls_visit-show_id = 'Z'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CLEAR ls_visit.
ls_visit-show_id = 'A'.
ls_visit-tickets = 2.
ls_visit-ticket_price = '5.00'.
APPEND ls_visit TO lt_visits.
CREATE OBJECT lo_report.
lo_report->aggregate( EXPORTING it_visits = lt_visits
CHANGING ct_lines = lt_lines ).
READ TABLE lt_lines INTO ls_line INDEX 1.
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-show_id ).
READ TABLE lt_lines INTO ls_line INDEX 2.
cl_abap_unit_assert=>assert_equals( exp = 'Z' act = ls_line-show_id ).
ENDMETHOD.
ENDCLASS.