Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
106
tasks_gen/train/G1132/faulty/m0_walker_stats.prog.abap
Normal file
106
tasks_gen/train/G1132/faulty/m0_walker_stats.prog.abap
Normal file
@@ -0,0 +1,106 @@
|
||||
REPORT {{p}}walker_stats.
|
||||
|
||||
DATA gv_walker TYPE {{p}}walk-walker.
|
||||
DATA gv_date TYPE {{p}}walk-walk_date.
|
||||
|
||||
SELECT-OPTIONS s_date FOR gv_date.
|
||||
SELECT-OPTIONS s_walker FOR gv_walker.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
|
||||
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
|
||||
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
|
||||
|
||||
METHODS select_totals
|
||||
IMPORTING it_date TYPE tt_date
|
||||
it_walker TYPE tt_walker
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_totals.
|
||||
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
|
||||
FROM {{p}}walk
|
||||
WHERE walk_date IN @it_date
|
||||
OR walker IN @it_walker
|
||||
AND status = 'F'
|
||||
GROUP BY walker
|
||||
HAVING COUNT( * ) >= 2
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
SORT rt_lines BY dist_m DESCENDING walker ASCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD display.
|
||||
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->select_totals( it_date = s_date[] it_walker = s_walker[] ).
|
||||
go_report->display( 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 totals_per_walker FOR TESTING.
|
||||
METHODS excludes_single FOR TESTING.
|
||||
METHODS ignores_cancelled FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
|
||||
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
|
||||
lt_walk = VALUE #(
|
||||
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
|
||||
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
|
||||
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
|
||||
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
|
||||
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
|
||||
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
|
||||
go_env->insert_test_data( lt_walk ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_walker.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD excludes_single.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD ignores_cancelled.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
106
tasks_gen/train/G1132/faulty/m1_walker_stats.prog.abap
Normal file
106
tasks_gen/train/G1132/faulty/m1_walker_stats.prog.abap
Normal file
@@ -0,0 +1,106 @@
|
||||
REPORT {{p}}walker_stats.
|
||||
|
||||
DATA gv_walker TYPE {{p}}walk-walker.
|
||||
DATA gv_date TYPE {{p}}walk-walk_date.
|
||||
|
||||
SELECT-OPTIONS s_date FOR gv_date.
|
||||
SELECT-OPTIONS s_walker FOR gv_walker.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
|
||||
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
|
||||
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
|
||||
|
||||
METHODS select_totals
|
||||
IMPORTING it_date TYPE tt_date
|
||||
it_walker TYPE tt_walker
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_totals.
|
||||
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
|
||||
FROM {{p}}walk
|
||||
WHERE walk_date IN @it_date
|
||||
AND walker IN @it_walker
|
||||
OR status = 'F'
|
||||
GROUP BY walker
|
||||
HAVING COUNT( * ) >= 2
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
SORT rt_lines BY dist_m DESCENDING walker ASCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD display.
|
||||
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->select_totals( it_date = s_date[] it_walker = s_walker[] ).
|
||||
go_report->display( 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 totals_per_walker FOR TESTING.
|
||||
METHODS excludes_single FOR TESTING.
|
||||
METHODS ignores_cancelled FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
|
||||
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
|
||||
lt_walk = VALUE #(
|
||||
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
|
||||
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
|
||||
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
|
||||
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
|
||||
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
|
||||
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
|
||||
go_env->insert_test_data( lt_walk ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_walker.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD excludes_single.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD ignores_cancelled.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
106
tasks_gen/train/G1132/faulty/m2_walker_stats.prog.abap
Normal file
106
tasks_gen/train/G1132/faulty/m2_walker_stats.prog.abap
Normal file
@@ -0,0 +1,106 @@
|
||||
REPORT {{p}}walker_stats.
|
||||
|
||||
DATA gv_walker TYPE {{p}}walk-walker.
|
||||
DATA gv_date TYPE {{p}}walk-walk_date.
|
||||
|
||||
SELECT-OPTIONS s_date FOR gv_date.
|
||||
SELECT-OPTIONS s_walker FOR gv_walker.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
|
||||
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
|
||||
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
|
||||
|
||||
METHODS select_totals
|
||||
IMPORTING it_date TYPE tt_date
|
||||
it_walker TYPE tt_walker
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_totals.
|
||||
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
|
||||
FROM {{p}}walk
|
||||
WHERE walk_date IN @it_date
|
||||
AND walker IN @it_walker
|
||||
AND status <> 'F'
|
||||
GROUP BY walker
|
||||
HAVING COUNT( * ) >= 2
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
SORT rt_lines BY dist_m DESCENDING walker ASCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD display.
|
||||
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->select_totals( it_date = s_date[] it_walker = s_walker[] ).
|
||||
go_report->display( 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 totals_per_walker FOR TESTING.
|
||||
METHODS excludes_single FOR TESTING.
|
||||
METHODS ignores_cancelled FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
|
||||
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
|
||||
lt_walk = VALUE #(
|
||||
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
|
||||
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
|
||||
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
|
||||
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
|
||||
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
|
||||
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
|
||||
go_env->insert_test_data( lt_walk ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_walker.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD excludes_single.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD ignores_cancelled.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
106
tasks_gen/train/G1132/faulty/m3_walker_stats.prog.abap
Normal file
106
tasks_gen/train/G1132/faulty/m3_walker_stats.prog.abap
Normal file
@@ -0,0 +1,106 @@
|
||||
REPORT {{p}}walker_stats.
|
||||
|
||||
DATA gv_walker TYPE {{p}}walk-walker.
|
||||
DATA gv_date TYPE {{p}}walk-walk_date.
|
||||
|
||||
SELECT-OPTIONS s_date FOR gv_date.
|
||||
SELECT-OPTIONS s_walker FOR gv_walker.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
|
||||
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
|
||||
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
|
||||
|
||||
METHODS select_totals
|
||||
IMPORTING it_date TYPE tt_date
|
||||
it_walker TYPE tt_walker
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_totals.
|
||||
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
|
||||
FROM {{p}}walk
|
||||
WHERE walk_date IN @it_date
|
||||
AND walker IN @it_walker
|
||||
AND status = 'F'
|
||||
GROUP BY walker
|
||||
HAVING COUNT( * ) < 2
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
SORT rt_lines BY dist_m DESCENDING walker ASCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD display.
|
||||
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->select_totals( it_date = s_date[] it_walker = s_walker[] ).
|
||||
go_report->display( 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 totals_per_walker FOR TESTING.
|
||||
METHODS excludes_single FOR TESTING.
|
||||
METHODS ignores_cancelled FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
|
||||
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
|
||||
lt_walk = VALUE #(
|
||||
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
|
||||
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
|
||||
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
|
||||
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
|
||||
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
|
||||
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
|
||||
go_env->insert_test_data( lt_walk ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_walker.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD excludes_single.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD ignores_cancelled.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
106
tasks_gen/train/G1132/faulty/m4_walker_stats.prog.abap
Normal file
106
tasks_gen/train/G1132/faulty/m4_walker_stats.prog.abap
Normal file
@@ -0,0 +1,106 @@
|
||||
REPORT {{p}}walker_stats.
|
||||
|
||||
DATA gv_walker TYPE {{p}}walk-walker.
|
||||
DATA gv_date TYPE {{p}}walk-walk_date.
|
||||
|
||||
SELECT-OPTIONS s_date FOR gv_date.
|
||||
SELECT-OPTIONS s_walker FOR gv_walker.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
|
||||
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
|
||||
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
|
||||
|
||||
METHODS select_totals
|
||||
IMPORTING it_date TYPE tt_date
|
||||
it_walker TYPE tt_walker
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_totals.
|
||||
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
|
||||
FROM {{p}}walk
|
||||
WHERE walk_date IN @it_date
|
||||
AND walker IN @it_walker
|
||||
AND status = 'F'
|
||||
GROUP BY walker
|
||||
HAVING COUNT( * ) >= 3
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
SORT rt_lines BY dist_m DESCENDING walker ASCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD display.
|
||||
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->select_totals( it_date = s_date[] it_walker = s_walker[] ).
|
||||
go_report->display( 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 totals_per_walker FOR TESTING.
|
||||
METHODS excludes_single FOR TESTING.
|
||||
METHODS ignores_cancelled FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
|
||||
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
|
||||
lt_walk = VALUE #(
|
||||
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
|
||||
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
|
||||
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
|
||||
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
|
||||
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
|
||||
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
|
||||
go_env->insert_test_data( lt_walk ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_walker.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD excludes_single.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD ignores_cancelled.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
33
tasks_gen/train/G1132/generation.json
Normal file
33
tasks_gen/train/G1132/generation.json
Normal file
@@ -0,0 +1,33 @@
|
||||
{
|
||||
"id": "G1132",
|
||||
"pool": "train",
|
||||
"object_type": "PROG",
|
||||
"category": "B",
|
||||
"attempts": [
|
||||
{
|
||||
"stage": "bundle",
|
||||
"errors": [
|
||||
"Too close to task G0160 (similarity spec 0.61, rules 0.43, names 1.00). Choose a different business topic and different object names."
|
||||
],
|
||||
"by_check": {
|
||||
"extra": 1
|
||||
}
|
||||
},
|
||||
{
|
||||
"stage": "validate",
|
||||
"oracle": 0,
|
||||
"null": 0
|
||||
},
|
||||
{
|
||||
"stage": "validate",
|
||||
"oracle": 100.0,
|
||||
"null": 0,
|
||||
"mutation": {
|
||||
"valid": 5,
|
||||
"killed": 5,
|
||||
"ok": true
|
||||
}
|
||||
}
|
||||
],
|
||||
"accepted": true
|
||||
}
|
||||
102
tasks_gen/train/G1132/hidden/walk_check.clas.abap
Normal file
102
tasks_gen/train/G1132/hidden/walk_check.clas.abap
Normal file
@@ -0,0 +1,102 @@
|
||||
CLASS {{p}}walk_check DEFINITION PUBLIC FINAL CREATE PUBLIC
|
||||
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
|
||||
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
|
||||
|
||||
METHODS run
|
||||
IMPORTING it_date TYPE tt_date OPTIONAL
|
||||
it_walker TYPE tt_walker OPTIONAL
|
||||
RETURNING VALUE(rr_data) TYPE REF TO data.
|
||||
|
||||
METHODS lines_of
|
||||
IMPORTING ir_data TYPE REF TO data
|
||||
RETURNING VALUE(rv_lines) TYPE i.
|
||||
|
||||
METHODS value_of
|
||||
IMPORTING ir_data TYPE REF TO data
|
||||
iv_row TYPE i
|
||||
iv_col TYPE string
|
||||
RETURNING VALUE(rv_value) TYPE string.
|
||||
|
||||
METHODS all_walkers FOR TESTING.
|
||||
METHODS sorted_by_dist FOR TESTING.
|
||||
METHODS dist_and_walks FOR TESTING.
|
||||
METHODS date_filter FOR TESTING.
|
||||
METHODS walker_filter FOR TESTING.
|
||||
METHODS cancelled_excluded FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}walk_check IMPLEMENTATION.
|
||||
METHOD run.
|
||||
cl_salv_bs_runtime_info=>set( display = abap_false metadata = abap_false data = abap_true ).
|
||||
SUBMIT {{p}}walker_stats
|
||||
WITH s_date IN it_date
|
||||
WITH s_walker IN it_walker
|
||||
AND RETURN.
|
||||
TRY.
|
||||
cl_salv_bs_runtime_info=>get_data_ref( IMPORTING r_data = rr_data ).
|
||||
CATCH cx_salv_bs_sc_runtime_info.
|
||||
ENDTRY.
|
||||
cl_salv_bs_runtime_info=>clear_all( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD lines_of.
|
||||
FIELD-SYMBOLS <lt_data> TYPE STANDARD TABLE.
|
||||
IF ir_data IS BOUND.
|
||||
ASSIGN ir_data->* TO <lt_data>.
|
||||
rv_lines = lines( <lt_data> ).
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD value_of.
|
||||
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 = condense( CONV string( <lv_value> ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD all_walkers.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 3 act = lines_of( run( ) ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD sorted_by_dist.
|
||||
DATA(lr_data) = run( ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `W2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKER` ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `W3` act = value_of( ir_data = lr_data iv_row = 2 iv_col = `WALKER` ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `W1` act = value_of( ir_data = lr_data iv_row = 3 iv_col = `WALKER` ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD dist_and_walks.
|
||||
DATA(lr_data) = run( ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `10000` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `DIST_M` ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKS` ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `6500` act = value_of( ir_data = lr_data iv_row = 3 iv_col = `DIST_M` ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `3` act = value_of( ir_data = lr_data iv_row = 3 iv_col = `WALKS` ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD date_filter.
|
||||
DATA(lr_data) = run( it_date = VALUE #( ( sign = 'I' option = 'BT' low = '20260106' high = '20260110' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `W1` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKER` ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `3500` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `DIST_M` ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKS` ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD walker_filter.
|
||||
DATA(lr_data) = run( it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'W3' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `10000` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `DIST_M` ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKS` ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD cancelled_excluded.
|
||||
DATA(lr_data) = run( it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'W2' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines_of( lr_data ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `10000` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `DIST_M` ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = `2` act = value_of( ir_data = lr_data iv_row = 1 iv_col = `WALKS` ) ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
75
tasks_gen/train/G1132/mutation.json
Normal file
75
tasks_gen/train/G1132/mutation.json
Normal file
@@ -0,0 +1,75 @@
|
||||
{
|
||||
"task": "G1132",
|
||||
"mutants": [
|
||||
{
|
||||
"object": "{{P}}WALKER_STATS",
|
||||
"mutant": "line 29: AND -> OR (logic)",
|
||||
"status": "killed",
|
||||
"hidden": "2/6",
|
||||
"failed_tests": [
|
||||
"CANCELLED_EXCLUDED",
|
||||
"DATE_FILTER",
|
||||
"DIST_AND_WALKS",
|
||||
"WALKER_FILTER"
|
||||
]
|
||||
},
|
||||
{
|
||||
"object": "{{P}}WALKER_STATS",
|
||||
"mutant": "line 30: AND -> OR (logic)",
|
||||
"status": "killed",
|
||||
"hidden": "2/6",
|
||||
"failed_tests": [
|
||||
"CANCELLED_EXCLUDED",
|
||||
"DATE_FILTER",
|
||||
"DIST_AND_WALKS",
|
||||
"WALKER_FILTER"
|
||||
]
|
||||
},
|
||||
{
|
||||
"object": "{{P}}WALKER_STATS",
|
||||
"mutant": "line 30: = -> <> (eq)",
|
||||
"status": "killed",
|
||||
"hidden": "0/6",
|
||||
"failed_tests": [
|
||||
"ALL_WALKERS",
|
||||
"CANCELLED_EXCLUDED",
|
||||
"DATE_FILTER",
|
||||
"DIST_AND_WALKS",
|
||||
"SORTED_BY_DIST",
|
||||
"WALKER_FILTER"
|
||||
]
|
||||
},
|
||||
{
|
||||
"object": "{{P}}WALKER_STATS",
|
||||
"mutant": "line 32: >= -> < (rel)",
|
||||
"status": "killed",
|
||||
"hidden": "0/6",
|
||||
"failed_tests": [
|
||||
"ALL_WALKERS",
|
||||
"CANCELLED_EXCLUDED",
|
||||
"DATE_FILTER",
|
||||
"DIST_AND_WALKS",
|
||||
"SORTED_BY_DIST",
|
||||
"WALKER_FILTER"
|
||||
]
|
||||
},
|
||||
{
|
||||
"object": "{{P}}WALKER_STATS",
|
||||
"mutant": "line 32: 2 -> 3 (const)",
|
||||
"status": "killed",
|
||||
"hidden": "0/6",
|
||||
"failed_tests": [
|
||||
"ALL_WALKERS",
|
||||
"CANCELLED_EXCLUDED",
|
||||
"DATE_FILTER",
|
||||
"DIST_AND_WALKS",
|
||||
"SORTED_BY_DIST",
|
||||
"WALKER_FILTER"
|
||||
]
|
||||
}
|
||||
],
|
||||
"valid": 5,
|
||||
"killed": 5,
|
||||
"kill_rate": 1.0,
|
||||
"ok": true
|
||||
}
|
||||
106
tasks_gen/train/G1132/reference/walker_stats.prog.abap
Normal file
106
tasks_gen/train/G1132/reference/walker_stats.prog.abap
Normal file
@@ -0,0 +1,106 @@
|
||||
REPORT {{p}}walker_stats.
|
||||
|
||||
DATA gv_walker TYPE {{p}}walk-walker.
|
||||
DATA gv_date TYPE {{p}}walk-walk_date.
|
||||
|
||||
SELECT-OPTIONS s_date FOR gv_date.
|
||||
SELECT-OPTIONS s_walker FOR gv_walker.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES tt_line TYPE STANDARD TABLE OF {{p}}walksum WITH EMPTY KEY.
|
||||
TYPES tt_walker TYPE RANGE OF {{p}}walk-walker.
|
||||
TYPES tt_date TYPE RANGE OF {{p}}walk-walk_date.
|
||||
|
||||
METHODS select_totals
|
||||
IMPORTING it_date TYPE tt_date
|
||||
it_walker TYPE tt_walker
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_totals.
|
||||
SELECT walker, SUM( dist_m ) AS dist_m, COUNT( * ) AS walks
|
||||
FROM {{p}}walk
|
||||
WHERE walk_date IN @it_date
|
||||
AND walker IN @it_walker
|
||||
AND status = 'F'
|
||||
GROUP BY walker
|
||||
HAVING COUNT( * ) >= 2
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
SORT rt_lines BY dist_m DESCENDING walker ASCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD display.
|
||||
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->select_totals( it_date = s_date[] it_walker = s_walker[] ).
|
||||
go_report->display( 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 totals_per_walker FOR TESTING.
|
||||
METHODS excludes_single FOR TESTING.
|
||||
METHODS ignores_cancelled FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}WALK' ) ) ).
|
||||
DATA lt_walk TYPE STANDARD TABLE OF {{p}}walk WITH EMPTY KEY.
|
||||
lt_walk = VALUE #(
|
||||
( walk_id = 1 walker = 'A1' walk_date = '20260105' dist_m = 3000 status = 'F' )
|
||||
( walk_id = 2 walker = 'A1' walk_date = '20260106' dist_m = 2500 status = 'F' )
|
||||
( walk_id = 3 walker = 'B2' walk_date = '20260105' dist_m = 8000 status = 'F' )
|
||||
( walk_id = 4 walker = 'B2' walk_date = '20260107' dist_m = 1000 status = 'X' )
|
||||
( walk_id = 5 walker = 'B2' walk_date = '20260108' dist_m = 2000 status = 'F' )
|
||||
( walk_id = 6 walker = 'C3' walk_date = '20260105' dist_m = 9000 status = 'F' ) ).
|
||||
go_env->insert_test_data( lt_walk ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_walker.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals( it_date = VALUE #( ) it_walker = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'B2' act = lt_lines[ 1 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'A1' act = lt_lines[ 2 ]-walker ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 5500 ) act = lt_lines[ 2 ]-dist_m ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD excludes_single.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'C3' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lines( lt_lines ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD ignores_cancelled.
|
||||
DATA(lt_lines) = NEW lcl_report( )->select_totals(
|
||||
it_date = VALUE #( )
|
||||
it_walker = VALUE #( ( sign = 'I' option = 'EQ' low = 'B2' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-dist_m( 10000 ) act = lt_lines[ 1 ]-dist_m ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}walksum-walks( 2 ) act = lt_lines[ 1 ]-walks ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
13
tasks_gen/train/G1132/seed/walk.tabl.asabap
Normal file
13
tasks_gen/train/G1132/seed/walk.tabl.asabap
Normal file
@@ -0,0 +1,13 @@
|
||||
@EndUserText.label : 'Dog walks'
|
||||
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
|
||||
@AbapCatalog.tableCategory : #TRANSPARENT
|
||||
@AbapCatalog.deliveryClass : #A
|
||||
@AbapCatalog.dataMaintenance : #RESTRICTED
|
||||
define table {{p}}walk {
|
||||
key client : abap.clnt not null;
|
||||
key walk_id : abap.int4 not null;
|
||||
walker : abap.char(6);
|
||||
walk_date : abap.dats;
|
||||
dist_m : abap.int4;
|
||||
status : abap.char(1);
|
||||
}
|
||||
21
tasks_gen/train/G1132/seed/walk_fill.clas.abap
Normal file
21
tasks_gen/train/G1132/seed/walk_fill.clas.abap
Normal file
@@ -0,0 +1,21 @@
|
||||
CLASS {{p}}walk_fill DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
PUBLIC SECTION.
|
||||
INTERFACES if_oo_adt_classrun.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS {{p}}walk_fill IMPLEMENTATION.
|
||||
METHOD if_oo_adt_classrun~main.
|
||||
DELETE FROM {{p}}walk.
|
||||
INSERT {{p}}walk FROM TABLE @( VALUE #(
|
||||
( walk_id = 1 walker = 'W1' walk_date = '20260105' dist_m = 3000 status = 'F' )
|
||||
( walk_id = 2 walker = 'W1' walk_date = '20260106' dist_m = 2500 status = 'F' )
|
||||
( walk_id = 3 walker = 'W2' walk_date = '20260105' dist_m = 8000 status = 'F' )
|
||||
( walk_id = 4 walker = 'W2' walk_date = '20260107' dist_m = 1000 status = 'X' )
|
||||
( walk_id = 5 walker = 'W3' walk_date = '20260105' dist_m = 5000 status = 'F' )
|
||||
( walk_id = 6 walker = 'W3' walk_date = '20260106' dist_m = 5000 status = 'F' )
|
||||
( walk_id = 7 walker = 'W4' walk_date = '20260108' dist_m = 9000 status = 'F' )
|
||||
( walk_id = 8 walker = 'W2' walk_date = '20260109' dist_m = 2000 status = 'F' )
|
||||
( walk_id = 9 walker = 'W1' walk_date = '20260110' dist_m = 1000 status = 'F' ) ) ).
|
||||
out->write( sy-dbcnt ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
10
tasks_gen/train/G1132/seed/walksum.tabl.asabap
Normal file
10
tasks_gen/train/G1132/seed/walksum.tabl.asabap
Normal file
@@ -0,0 +1,10 @@
|
||||
@EndUserText.label : 'Output structure of the walk list'
|
||||
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
|
||||
@AbapCatalog.tableCategory : #TRANSPARENT
|
||||
@AbapCatalog.deliveryClass : #A
|
||||
@AbapCatalog.dataMaintenance : #RESTRICTED
|
||||
define table {{p}}walksum {
|
||||
key walker : abap.char(6) not null;
|
||||
dist_m : abap.int4;
|
||||
walks : abap.int4;
|
||||
}
|
||||
45
tasks_gen/train/G1132/spec.md
Normal file
45
tasks_gen/train/G1132/spec.md
Normal file
@@ -0,0 +1,45 @@
|
||||
# 1. Goal
|
||||
A dog walking service wants a summary of its walks. The office uses the list to
|
||||
see how far each walker went in the period.
|
||||
|
||||
# 2. Open questions
|
||||
None.
|
||||
|
||||
# 3. Context
|
||||
- Table {{P}}WALK exists in package $TMP and contains data.
|
||||
Fields: WALK_ID (INT4, key), WALKER (CHAR 6), WALK_DATE (DATS),
|
||||
DIST_M (INT4, the distance of the walk in metres), STATUS (CHAR 1).
|
||||
- STATUS has these values:
|
||||
- 'F': the walk is finished.
|
||||
- 'X': the walk is cancelled.
|
||||
- Table {{P}}WALKSUM exists in package $TMP. It is the output structure of the
|
||||
list. Fields: WALKER (CHAR 6, key), DIST_M (INT4), WALKS (INT4).
|
||||
|
||||
# 4. Contract
|
||||
- Create the executable program {{P}}WALKER_STATS in package $TMP.
|
||||
- Selection screen:
|
||||
- Select-option S_DATE for WALK_DATE: the walk dates to include.
|
||||
- Select-option S_WALKER for WALKER: the walkers to include.
|
||||
- Show the result with CL_SALV_TABLE. The output table has the row type of
|
||||
table {{P}}WALKSUM. The output columns are WALKER, DIST_M (the total distance
|
||||
in metres) and WALKS (the number of walks).
|
||||
|
||||
# 5. Business rules
|
||||
1. Include a walk only if WALK_DATE is in S_DATE, WALKER is in S_WALKER and
|
||||
STATUS is 'F'.
|
||||
2. An empty S_DATE or an empty S_WALKER does not restrict the result.
|
||||
3. Show one line for each walker that has at least two included walks.
|
||||
4. DIST_M is the sum of DIST_M of the included walks of the walker.
|
||||
5. WALKS is the number of included walks of the walker.
|
||||
6. Sort the lines by DIST_M, the highest number first. If two lines have the
|
||||
same DIST_M, sort them by WALKER in ascending order.
|
||||
|
||||
# 6. Constraints
|
||||
- Release target: SAP_BASIS 816 (ABAP Platform 2025).
|
||||
- Coding standards: Clean ABAP. Read table {{P}}WALK with one database access.
|
||||
- Out of scope: do not change {{P}}WALK and {{P}}WALKSUM.
|
||||
|
||||
# 7. Acceptance
|
||||
- The program is active and has no syntax error.
|
||||
- The hidden tests pass.
|
||||
- Write ABAP Unit tests as local test classes in the program.
|
||||
67
tasks_gen/train/G1132/task.json
Normal file
67
tasks_gen/train/G1132/task.json
Normal file
@@ -0,0 +1,67 @@
|
||||
{
|
||||
"id": "G1132",
|
||||
"category": "B",
|
||||
"object_type": "PROG",
|
||||
"difficulty": 2,
|
||||
"release_target": "v816",
|
||||
"expected_outcome": "implement",
|
||||
"budget": {
|
||||
"max_tool_calls": 60,
|
||||
"max_activations": 15
|
||||
},
|
||||
"seed": [
|
||||
{
|
||||
"type": "TABL",
|
||||
"name": "{{P}}WALK",
|
||||
"file": "seed/walk.tabl.asabap",
|
||||
"description": "Walks of the dog walking service"
|
||||
},
|
||||
{
|
||||
"type": "TABL",
|
||||
"name": "{{P}}WALKSUM",
|
||||
"file": "seed/walksum.tabl.asabap",
|
||||
"description": "Output structure of the walk list"
|
||||
},
|
||||
{
|
||||
"type": "CLAS",
|
||||
"name": "{{P}}WALK_FILL",
|
||||
"file": "seed/walk_fill.clas.abap",
|
||||
"description": "Walk seed data",
|
||||
"run": true
|
||||
}
|
||||
],
|
||||
"contract": [
|
||||
{
|
||||
"type": "PROG",
|
||||
"name": "{{P}}WALKER_STATS",
|
||||
"parameters": [
|
||||
"s_date",
|
||||
"s_walker"
|
||||
]
|
||||
}
|
||||
],
|
||||
"out_of_scope": [
|
||||
"{{P}}WALK",
|
||||
"{{P}}WALKSUM"
|
||||
],
|
||||
"hidden_tests": [
|
||||
{
|
||||
"type": "CLAS",
|
||||
"name": "{{P}}WALK_CHECK",
|
||||
"file": "hidden/walk_check.clas.abap",
|
||||
"description": "Hidden tests for the report {{P}}WALKER_STATS"
|
||||
}
|
||||
],
|
||||
"reference": [
|
||||
{
|
||||
"type": "PROG",
|
||||
"name": "{{P}}WALKER_STATS",
|
||||
"file": "reference/walker_stats.prog.abap",
|
||||
"description": "Distance per walker"
|
||||
}
|
||||
],
|
||||
"craft_checks": [
|
||||
"db_operation_in_loop",
|
||||
"method_length"
|
||||
]
|
||||
}
|
||||
Reference in New Issue
Block a user