Step F first pass: 81/92 accepted; budget floor 60 calls; rejected slots moved for regeneration
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
243
tasks_gen/eval/G0162/hidden/t60_hidden.clas.abap
Normal file
243
tasks_gen/eval/G0162/hidden/t60_hidden.clas.abap
Normal file
@@ -0,0 +1,243 @@
|
||||
CLASS {{p}}t60_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
||||
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
TYPES tt_show TYPE RANGE OF {{p}}visit-show_id.
|
||||
METHODS run
|
||||
IMPORTING iv_from TYPE d
|
||||
it_show TYPE tt_show OPTIONAL
|
||||
RETURNING VALUE(rr_data) TYPE REF TO data.
|
||||
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 canon
|
||||
IMPORTING iv_text TYPE string
|
||||
RETURNING VALUE(rv_canon) TYPE string.
|
||||
METHODS lines_of
|
||||
IMPORTING ir_data TYPE REF TO data
|
||||
RETURNING VALUE(rv_lines) TYPE i.
|
||||
METHODS all_shows FOR TESTING.
|
||||
METHODS sorted_by_revenue FOR TESTING.
|
||||
METHODS revenue_values FOR TESTING.
|
||||
METHODS ticket_sums FOR TESTING.
|
||||
METHODS tie_break_by_show FOR TESTING.
|
||||
METHODS date_filter FOR TESTING.
|
||||
METHODS date_boundary FOR TESTING.
|
||||
METHODS show_filter FOR TESTING.
|
||||
METHODS zero_tickets_excluded FOR TESTING.
|
||||
METHODS no_data FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}t60_hidden IMPLEMENTATION.
|
||||
METHOD run.
|
||||
cl_salv_bs_runtime_info=>set( display = abap_false metadata = abap_false data = abap_true ).
|
||||
SUBMIT {{p}}planetarium WITH p_from = iv_from WITH s_show IN it_show 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.
|
||||
DATA lv_lines TYPE i.
|
||||
IF ir_data IS BOUND.
|
||||
ASSIGN ir_data->* TO <lt_data>.
|
||||
lv_lines = lines( <lt_data> ).
|
||||
ENDIF.
|
||||
rv_lines = lv_lines.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD value_of.
|
||||
FIELD-SYMBOLS: <lt_data> TYPE STANDARD TABLE,
|
||||
<ls_line> TYPE any,
|
||||
<lv_value> TYPE any.
|
||||
DATA: lv_index TYPE i,
|
||||
lv_text TYPE string.
|
||||
|
||||
ASSIGN ir_data->* TO <lt_data>.
|
||||
lv_index = iv_row.
|
||||
READ TABLE <lt_data> ASSIGNING <ls_line> INDEX lv_index.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Row is missing' ).
|
||||
ASSIGN COMPONENT iv_col OF STRUCTURE <ls_line> TO <lv_value>.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = 'Column is missing' ).
|
||||
lv_text = <lv_value>.
|
||||
CONDENSE lv_text.
|
||||
rv_value = lv_text.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD canon.
|
||||
DATA: lv_len TYPE i,
|
||||
lv_pos TYPE i,
|
||||
lv_ch TYPE c LENGTH 1,
|
||||
lv_int TYPE string,
|
||||
lv_frac TYPE string,
|
||||
lv_after TYPE c LENGTH 1,
|
||||
lv_sign TYPE string,
|
||||
lv_tail TYPE i.
|
||||
|
||||
lv_len = strlen( iv_text ).
|
||||
DO lv_len TIMES.
|
||||
lv_pos = sy-index - 1.
|
||||
lv_ch = iv_text+lv_pos(1).
|
||||
IF lv_ch CA '0123456789'.
|
||||
IF lv_after = 'X'.
|
||||
CONCATENATE lv_frac lv_ch INTO lv_frac.
|
||||
ELSE.
|
||||
CONCATENATE lv_int lv_ch INTO lv_int.
|
||||
ENDIF.
|
||||
ELSEIF lv_ch = '.' OR lv_ch = ','.
|
||||
lv_after = 'X'.
|
||||
ELSEIF lv_ch = '-'.
|
||||
lv_sign = '-'.
|
||||
ENDIF.
|
||||
ENDDO.
|
||||
|
||||
WHILE strlen( lv_int ) > 1 AND lv_int(1) = '0'.
|
||||
lv_int = lv_int+1.
|
||||
ENDWHILE.
|
||||
IF lv_int IS INITIAL.
|
||||
lv_int = '0'.
|
||||
ENDIF.
|
||||
|
||||
lv_tail = strlen( lv_frac ).
|
||||
WHILE lv_tail > 0.
|
||||
lv_pos = lv_tail - 1.
|
||||
IF lv_frac+lv_pos(1) <> '0'.
|
||||
EXIT.
|
||||
ENDIF.
|
||||
lv_tail = lv_tail - 1.
|
||||
ENDWHILE.
|
||||
lv_frac = lv_frac(lv_tail).
|
||||
|
||||
CONCATENATE lv_sign lv_int '.' lv_frac INTO rv_canon.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD all_shows.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lv_lines TYPE i.
|
||||
lr_data = run( '20260101' ).
|
||||
lv_lines = lines_of( lr_data ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 5 act = lv_lines ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD sorted_by_revenue.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lv_val TYPE string.
|
||||
lr_data = run( '20260101' ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 1 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'ROCK' act = lv_val ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 2 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'PLNT' act = lv_val ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 3 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'KIDS' act = lv_val ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD revenue_values.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lv_val TYPE string.
|
||||
lr_data = run( '20260101' ).
|
||||
lv_val = canon( value_of( ir_data = lr_data iv_row = 1 iv_col = 'REVENUE' ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = canon( '190.00' ) act = lv_val ).
|
||||
lv_val = canon( value_of( ir_data = lr_data iv_row = 2 iv_col = 'REVENUE' ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = canon( '180.00' ) act = lv_val ).
|
||||
lv_val = canon( value_of( ir_data = lr_data iv_row = 3 iv_col = 'REVENUE' ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = canon( '150.00' ) act = lv_val ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD ticket_sums.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lv_val TYPE string.
|
||||
lr_data = run( '20260101' ).
|
||||
lv_val = canon( value_of( ir_data = lr_data iv_row = 1 iv_col = 'TICKETS' ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = canon( '20' ) act = lv_val ).
|
||||
lv_val = canon( value_of( ir_data = lr_data iv_row = 2 iv_col = 'TICKETS' ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = canon( '15' ) act = lv_val ).
|
||||
lv_val = canon( value_of( ir_data = lr_data iv_row = 3 iv_col = 'TICKETS' ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = canon( '30' ) act = lv_val ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD tie_break_by_show.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lv_val TYPE string.
|
||||
lr_data = run( '20260101' ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 4 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'LASR' act = lv_val ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 5 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'MAGI' act = lv_val ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD date_filter.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lv_lines TYPE i,
|
||||
lv_val TYPE string.
|
||||
lr_data = run( '20260109' ).
|
||||
lv_lines = lines_of( lr_data ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_lines ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 1 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'KIDS' act = lv_val ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 2 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'MAGI' act = lv_val ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD date_boundary.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lv_lines TYPE i,
|
||||
lv_val TYPE string.
|
||||
lr_data = run( '20260106' ).
|
||||
lv_lines = lines_of( lr_data ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 5 act = lv_lines ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 1 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'ROCK' act = lv_val ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 2 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'KIDS' act = lv_val ).
|
||||
lv_val = value_of( ir_data = lr_data iv_row = 5 iv_col = 'SHOW_ID' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'PLNT' act = lv_val ).
|
||||
lv_val = canon( value_of( ir_data = lr_data iv_row = 5 iv_col = 'TICKETS' ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = canon( '5' ) act = lv_val ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD show_filter.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lt_show TYPE tt_show,
|
||||
ls_show TYPE LINE OF tt_show,
|
||||
lv_lines TYPE i,
|
||||
lv_val TYPE string.
|
||||
ls_show-sign = 'I'.
|
||||
ls_show-option = 'EQ'.
|
||||
ls_show-low = 'ROCK'.
|
||||
APPEND ls_show TO lt_show.
|
||||
lr_data = run( iv_from = '20260101' it_show = lt_show ).
|
||||
lv_lines = lines_of( lr_data ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_lines ).
|
||||
lv_val = canon( value_of( ir_data = lr_data iv_row = 1 iv_col = 'TICKETS' ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = canon( '20' ) act = lv_val ).
|
||||
lv_val = canon( value_of( ir_data = lr_data iv_row = 1 iv_col = 'REVENUE' ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = canon( '190.00' ) act = lv_val ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD zero_tickets_excluded.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lt_show TYPE tt_show,
|
||||
ls_show TYPE LINE OF tt_show,
|
||||
lv_lines TYPE i.
|
||||
ls_show-sign = 'I'.
|
||||
ls_show-option = 'EQ'.
|
||||
ls_show-low = 'OPER'.
|
||||
APPEND ls_show TO lt_show.
|
||||
lr_data = run( iv_from = '20260101' it_show = lt_show ).
|
||||
lv_lines = lines_of( lr_data ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_lines ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD no_data.
|
||||
DATA: lr_data TYPE REF TO data,
|
||||
lv_lines TYPE i.
|
||||
lr_data = run( '20260201' ).
|
||||
lv_lines = lines_of( lr_data ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_lines ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user