Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
115
tasks_gen/train/G1110/faulty/m1_scrap_pay.prog.abap
Normal file
115
tasks_gen/train/G1110/faulty/m1_scrap_pay.prog.abap
Normal file
@@ -0,0 +1,115 @@
|
||||
REPORT {{p}}scrap_pay.
|
||||
|
||||
TYPES: BEGIN OF ty_line,
|
||||
metal TYPE {{p}}scrap-metal,
|
||||
total_kg TYPE p LENGTH 13 DECIMALS 3,
|
||||
total_pay TYPE p LENGTH 15 DECIMALS 2,
|
||||
deliv_cnt TYPE i,
|
||||
END OF ty_line,
|
||||
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
|
||||
tt_metal TYPE RANGE OF {{p}}scrap-metal.
|
||||
|
||||
DATA gv_metal TYPE {{p}}scrap-metal.
|
||||
|
||||
PARAMETERS p_date TYPE d OBLIGATORY.
|
||||
SELECT-OPTIONS s_metal FOR gv_metal.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
|
||||
CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
|
||||
|
||||
METHODS list
|
||||
IMPORTING iv_date TYPE d
|
||||
it_metal TYPE tt_metal
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD list.
|
||||
SELECT metal,
|
||||
SUM( weight_kg ) AS total_kg,
|
||||
SUM( weight_kg * price_kg ) AS total_pay,
|
||||
COUNT( * ) AS deliv_cnt
|
||||
FROM {{p}}scrap
|
||||
WHERE deliv_date <> @iv_date
|
||||
AND metal IN @it_metal
|
||||
GROUP BY metal
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
|
||||
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
|
||||
IF <ls_line>-total_kg >= c_limit.
|
||||
<ls_line>-total_pay = <ls_line>-total_pay * c_bonus.
|
||||
ENDIF.
|
||||
ENDLOOP.
|
||||
|
||||
SORT rt_lines BY total_pay DESCENDING.
|
||||
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->list( iv_date = p_date it_metal = s_metal[] ).
|
||||
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 bonus_above_limit FOR TESTING.
|
||||
METHODS no_bonus_below_limit FOR TESTING.
|
||||
METHODS metal_filter FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
|
||||
DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
|
||||
lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
|
||||
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
|
||||
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000' price_kg = '1.00' )
|
||||
( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000' price_kg = '1.00' ) ).
|
||||
go_env->insert_test_data( lt_scrap ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bonus_above_limit.
|
||||
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
lv_expected = '1540.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD no_bonus_below_limit.
|
||||
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
|
||||
lv_expected = '10.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD metal_filter.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list(
|
||||
iv_date = '20260115'
|
||||
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
115
tasks_gen/train/G1110/faulty/m2_scrap_pay.prog.abap
Normal file
115
tasks_gen/train/G1110/faulty/m2_scrap_pay.prog.abap
Normal file
@@ -0,0 +1,115 @@
|
||||
REPORT {{p}}scrap_pay.
|
||||
|
||||
TYPES: BEGIN OF ty_line,
|
||||
metal TYPE {{p}}scrap-metal,
|
||||
total_kg TYPE p LENGTH 13 DECIMALS 3,
|
||||
total_pay TYPE p LENGTH 15 DECIMALS 2,
|
||||
deliv_cnt TYPE i,
|
||||
END OF ty_line,
|
||||
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
|
||||
tt_metal TYPE RANGE OF {{p}}scrap-metal.
|
||||
|
||||
DATA gv_metal TYPE {{p}}scrap-metal.
|
||||
|
||||
PARAMETERS p_date TYPE d OBLIGATORY.
|
||||
SELECT-OPTIONS s_metal FOR gv_metal.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
|
||||
CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
|
||||
|
||||
METHODS list
|
||||
IMPORTING iv_date TYPE d
|
||||
it_metal TYPE tt_metal
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD list.
|
||||
SELECT metal,
|
||||
SUM( weight_kg ) AS total_kg,
|
||||
SUM( weight_kg * price_kg ) AS total_pay,
|
||||
COUNT( * ) AS deliv_cnt
|
||||
FROM {{p}}scrap
|
||||
WHERE deliv_date = @iv_date
|
||||
OR metal IN @it_metal
|
||||
GROUP BY metal
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
|
||||
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
|
||||
IF <ls_line>-total_kg >= c_limit.
|
||||
<ls_line>-total_pay = <ls_line>-total_pay * c_bonus.
|
||||
ENDIF.
|
||||
ENDLOOP.
|
||||
|
||||
SORT rt_lines BY total_pay DESCENDING.
|
||||
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->list( iv_date = p_date it_metal = s_metal[] ).
|
||||
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 bonus_above_limit FOR TESTING.
|
||||
METHODS no_bonus_below_limit FOR TESTING.
|
||||
METHODS metal_filter FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
|
||||
DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
|
||||
lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
|
||||
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
|
||||
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000' price_kg = '1.00' )
|
||||
( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000' price_kg = '1.00' ) ).
|
||||
go_env->insert_test_data( lt_scrap ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bonus_above_limit.
|
||||
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
lv_expected = '1540.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD no_bonus_below_limit.
|
||||
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
|
||||
lv_expected = '10.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD metal_filter.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list(
|
||||
iv_date = '20260115'
|
||||
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
115
tasks_gen/train/G1110/faulty/m3_scrap_pay.prog.abap
Normal file
115
tasks_gen/train/G1110/faulty/m3_scrap_pay.prog.abap
Normal file
@@ -0,0 +1,115 @@
|
||||
REPORT {{p}}scrap_pay.
|
||||
|
||||
TYPES: BEGIN OF ty_line,
|
||||
metal TYPE {{p}}scrap-metal,
|
||||
total_kg TYPE p LENGTH 13 DECIMALS 3,
|
||||
total_pay TYPE p LENGTH 15 DECIMALS 2,
|
||||
deliv_cnt TYPE i,
|
||||
END OF ty_line,
|
||||
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
|
||||
tt_metal TYPE RANGE OF {{p}}scrap-metal.
|
||||
|
||||
DATA gv_metal TYPE {{p}}scrap-metal.
|
||||
|
||||
PARAMETERS p_date TYPE d OBLIGATORY.
|
||||
SELECT-OPTIONS s_metal FOR gv_metal.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
|
||||
CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
|
||||
|
||||
METHODS list
|
||||
IMPORTING iv_date TYPE d
|
||||
it_metal TYPE tt_metal
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD list.
|
||||
SELECT metal,
|
||||
SUM( weight_kg ) AS total_kg,
|
||||
SUM( weight_kg * price_kg ) AS total_pay,
|
||||
COUNT( * ) AS deliv_cnt
|
||||
FROM {{p}}scrap
|
||||
WHERE deliv_date = @iv_date
|
||||
AND metal IN @it_metal
|
||||
GROUP BY metal
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
|
||||
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
|
||||
IF <ls_line>-total_kg < c_limit.
|
||||
<ls_line>-total_pay = <ls_line>-total_pay * c_bonus.
|
||||
ENDIF.
|
||||
ENDLOOP.
|
||||
|
||||
SORT rt_lines BY total_pay DESCENDING.
|
||||
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->list( iv_date = p_date it_metal = s_metal[] ).
|
||||
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 bonus_above_limit FOR TESTING.
|
||||
METHODS no_bonus_below_limit FOR TESTING.
|
||||
METHODS metal_filter FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
|
||||
DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
|
||||
lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
|
||||
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
|
||||
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000' price_kg = '1.00' )
|
||||
( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000' price_kg = '1.00' ) ).
|
||||
go_env->insert_test_data( lt_scrap ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bonus_above_limit.
|
||||
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
lv_expected = '1540.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD no_bonus_below_limit.
|
||||
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
|
||||
lv_expected = '10.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD metal_filter.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list(
|
||||
iv_date = '20260115'
|
||||
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
115
tasks_gen/train/G1110/faulty/m4_scrap_pay.prog.abap
Normal file
115
tasks_gen/train/G1110/faulty/m4_scrap_pay.prog.abap
Normal file
@@ -0,0 +1,115 @@
|
||||
REPORT {{p}}scrap_pay.
|
||||
|
||||
TYPES: BEGIN OF ty_line,
|
||||
metal TYPE {{p}}scrap-metal,
|
||||
total_kg TYPE p LENGTH 13 DECIMALS 3,
|
||||
total_pay TYPE p LENGTH 15 DECIMALS 2,
|
||||
deliv_cnt TYPE i,
|
||||
END OF ty_line,
|
||||
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
|
||||
tt_metal TYPE RANGE OF {{p}}scrap-metal.
|
||||
|
||||
DATA gv_metal TYPE {{p}}scrap-metal.
|
||||
|
||||
PARAMETERS p_date TYPE d OBLIGATORY.
|
||||
SELECT-OPTIONS s_metal FOR gv_metal.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
CONSTANTS c_bonus TYPE p LENGTH 5 DECIMALS 2 VALUE '1.10'.
|
||||
CONSTANTS c_limit TYPE p LENGTH 13 DECIMALS 3 VALUE '500.000'.
|
||||
|
||||
METHODS list
|
||||
IMPORTING iv_date TYPE d
|
||||
it_metal TYPE tt_metal
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD list.
|
||||
SELECT metal,
|
||||
SUM( weight_kg ) AS total_kg,
|
||||
SUM( weight_kg * price_kg ) AS total_pay,
|
||||
COUNT( * ) AS deliv_cnt
|
||||
FROM {{p}}scrap
|
||||
WHERE deliv_date = @iv_date
|
||||
AND metal IN @it_metal
|
||||
GROUP BY metal
|
||||
INTO CORRESPONDING FIELDS OF TABLE @rt_lines.
|
||||
|
||||
LOOP AT rt_lines ASSIGNING FIELD-SYMBOL(<ls_line>).
|
||||
IF <ls_line>-total_kg >= c_limit.
|
||||
<ls_line>-total_pay = <ls_line>-total_pay / c_bonus.
|
||||
ENDIF.
|
||||
ENDLOOP.
|
||||
|
||||
SORT rt_lines BY total_pay DESCENDING.
|
||||
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->list( iv_date = p_date it_metal = s_metal[] ).
|
||||
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 bonus_above_limit FOR TESTING.
|
||||
METHODS no_bonus_below_limit FOR TESTING.
|
||||
METHODS metal_filter FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SCRAP' ) ) ).
|
||||
DATA lt_scrap TYPE STANDARD TABLE OF {{p}}scrap WITH EMPTY KEY.
|
||||
lt_scrap = VALUE #( ( deliv_id = 1 metal = 'CU' deliv_date = '20260115' weight_kg = '600.000' price_kg = '2.00' )
|
||||
( deliv_id = 2 metal = 'CU' deliv_date = '20260115' weight_kg = '100.000' price_kg = '2.00' )
|
||||
( deliv_id = 3 metal = 'AL' deliv_date = '20260115' weight_kg = '10.000' price_kg = '1.00' )
|
||||
( deliv_id = 4 metal = 'AL' deliv_date = '20260116' weight_kg = '10.000' price_kg = '1.00' ) ).
|
||||
go_env->insert_test_data( lt_scrap ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bonus_above_limit.
|
||||
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
lv_expected = '1540.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 1 ]-total_pay ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD no_bonus_below_limit.
|
||||
DATA lv_expected TYPE p LENGTH 15 DECIMALS 2.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list( iv_date = '20260115' it_metal = VALUE #( ) ).
|
||||
lv_expected = '10.00'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lt_lines[ 2 ]-total_pay ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD metal_filter.
|
||||
DATA(lt_lines) = NEW lcl_report( )->list(
|
||||
iv_date = '20260115'
|
||||
it_metal = VALUE #( ( sign = 'I' option = 'EQ' low = 'AL' ) ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lines( lt_lines ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'AL' act = lt_lines[ 1 ]-metal ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user