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

Stage 2 summary at 50 accepted trajectories

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

129
tasks_gen/train/G1109/hidden/tel_hidden.clas.abap Normal file
View File

@@ -0,0 +1,129 @@
CLASS {{p}}tel_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS rate
IMPORTING iv_ctype TYPE string
iv_zone TYPE string
iv_secs TYPE i
EXPORTING ev_minutes TYPE i
ev_charge TYPE decfloat34
ev_subrc TYPE sysubrc.
METHODS zero_duration FOR TESTING.
METHODS one_minute FOR TESTING.
METHODS rounds_up FOR TESTING.
METHODS rounds_half_up FOR TESTING.
METHODS zone_b FOR TESTING.
METHODS mobile_zone_c FOR TESTING.
METHODS special_zone_a FOR TESTING.
METHODS unknown_ctype FOR TESTING.
METHODS unknown_zone FOR TESTING.
METHODS negative_secs FOR TESTING.
METHODS long_call FOR TESTING.
ENDCLASS.
CLASS {{p}}tel_hidden IMPLEMENTATION.
METHOD rate.
CALL FUNCTION '{{P}}TEL_RATE'
EXPORTING
iv_ctype = iv_ctype
iv_zone = iv_zone
iv_secs = iv_secs
IMPORTING
ev_minutes = ev_minutes
ev_charge = ev_charge
EXCEPTIONS
invalid_duration = 1
OTHERS = 2.
ev_subrc = sy-subrc.
ENDMETHOD.
METHOD zero_duration.
rate( EXPORTING iv_ctype = 'NT' iv_zone = 'A' iv_secs = 0
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_charge ).
ENDMETHOD.
METHOD one_minute.
rate( EXPORTING iv_ctype = 'NT' iv_zone = 'A' iv_secs = 30
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.12' ) act = lv_charge ).
ENDMETHOD.
METHOD rounds_up.
rate( EXPORTING iv_ctype = 'IT' iv_zone = 'B' iv_secs = 61
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.81' ) act = lv_charge ).
ENDMETHOD.
METHOD rounds_half_up.
rate( EXPORTING iv_ctype = 'NT' iv_zone = 'A' iv_secs = 120
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.21' ) act = lv_charge ).
ENDMETHOD.
METHOD zone_b.
rate( EXPORTING iv_ctype = 'NT' iv_zone = 'B' iv_secs = 60
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.22' ) act = lv_charge ).
ENDMETHOD.
METHOD mobile_zone_c.
rate( EXPORTING iv_ctype = 'MO' iv_zone = 'C' iv_secs = 1
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '0.72' ) act = lv_charge ).
ENDMETHOD.
METHOD special_zone_a.
rate( EXPORTING iv_ctype = 'SP' iv_zone = 'A' iv_secs = 180
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 3 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '1.20' ) act = lv_charge ).
ENDMETHOD.
METHOD unknown_ctype.
rate( EXPORTING iv_ctype = 'XX' iv_zone = 'A' iv_secs = 60
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_charge ).
ENDMETHOD.
METHOD unknown_zone.
rate( EXPORTING iv_ctype = 'NT' iv_zone = 'Z' iv_secs = 60
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_charge ).
ENDMETHOD.
METHOD negative_secs.
rate( EXPORTING iv_ctype = 'NT' iv_zone = 'A' iv_secs = -5
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_charge ).
ENDMETHOD.
METHOD long_call.
rate( EXPORTING iv_ctype = 'IT' iv_zone = 'C' iv_secs = 3600
IMPORTING ev_minutes = DATA(lv_min) ev_charge = DATA(lv_charge) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = 60 act = lv_min ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '35.43' ) act = lv_charge ).
ENDMETHOD.
ENDCLASS.