Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
56
tasks_gen/train/G1098/reference/drv_fee.func.abap
Normal file
56
tasks_gen/train/G1098/reference/drv_fee.func.abap
Normal file
@@ -0,0 +1,56 @@
|
||||
FUNCTION {{p}}drv_fee
|
||||
IMPORTING
|
||||
iv_lesson_type TYPE string
|
||||
iv_vehicle TYPE string
|
||||
iv_minutes TYPE i
|
||||
EXPORTING
|
||||
ev_block TYPE abap_bool
|
||||
CHANGING
|
||||
cv_fee TYPE decfloat34
|
||||
EXCEPTIONS
|
||||
invalid_minutes.
|
||||
|
||||
DATA lv_rate TYPE decfloat34.
|
||||
DATA lv_surcharge TYPE decfloat34.
|
||||
|
||||
ev_block = abap_false.
|
||||
cv_fee = 0.
|
||||
|
||||
IF iv_minutes < 1.
|
||||
RAISE invalid_minutes.
|
||||
ENDIF.
|
||||
|
||||
CASE iv_vehicle.
|
||||
WHEN 'CAR'.
|
||||
lv_rate = '1.20'.
|
||||
WHEN 'TRUCK'.
|
||||
lv_rate = '2.50'.
|
||||
WHEN 'MOTORCYCLE'.
|
||||
lv_rate = '0.90'.
|
||||
WHEN OTHERS.
|
||||
RETURN.
|
||||
ENDCASE.
|
||||
|
||||
cv_fee = lv_rate * iv_minutes.
|
||||
|
||||
CASE iv_lesson_type.
|
||||
WHEN 'NIGHT'.
|
||||
lv_surcharge = '0.25'.
|
||||
WHEN 'MOTORWAY'.
|
||||
lv_surcharge = '0.40'.
|
||||
WHEN OTHERS.
|
||||
lv_surcharge = 0.
|
||||
ENDCASE.
|
||||
cv_fee = cv_fee * ( 1 + lv_surcharge ).
|
||||
|
||||
cv_fee = round( val = cv_fee dec = 2 ).
|
||||
|
||||
IF cv_fee < 15.
|
||||
cv_fee = 15.
|
||||
ENDIF.
|
||||
|
||||
IF iv_minutes > 120.
|
||||
ev_block = abap_true.
|
||||
ENDIF.
|
||||
|
||||
ENDFUNCTION.
|
||||
89
tasks_gen/train/G1098/reference/t41_test.clas.abap
Normal file
89
tasks_gen/train/G1098/reference/t41_test.clas.abap
Normal file
@@ -0,0 +1,89 @@
|
||||
CLASS {{p}}t41_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
||||
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
METHODS fee_for
|
||||
IMPORTING iv_lesson_type TYPE string
|
||||
iv_vehicle TYPE string
|
||||
iv_minutes TYPE i
|
||||
RETURNING VALUE(rv_fee) TYPE decfloat34.
|
||||
METHODS car_lesson FOR TESTING.
|
||||
METHODS surcharges FOR TESTING.
|
||||
METHODS minimum_fee FOR TESTING.
|
||||
METHODS block_flag FOR TESTING.
|
||||
METHODS invalid_minutes FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}t41_test IMPLEMENTATION.
|
||||
METHOD fee_for.
|
||||
DATA lv_block TYPE abap_bool.
|
||||
CALL FUNCTION '{{P}}DRV_FEE'
|
||||
EXPORTING
|
||||
iv_lesson_type = iv_lesson_type
|
||||
iv_vehicle = iv_vehicle
|
||||
iv_minutes = iv_minutes
|
||||
IMPORTING
|
||||
ev_block = lv_block
|
||||
CHANGING
|
||||
cv_fee = rv_fee
|
||||
EXCEPTIONS
|
||||
invalid_minutes = 1
|
||||
OTHERS = 2.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD car_lesson.
|
||||
DATA lv_exp TYPE decfloat34 VALUE '72.00'.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lv_exp
|
||||
act = fee_for( iv_lesson_type = 'NORMAL' iv_vehicle = 'CAR' iv_minutes = 60 ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD surcharges.
|
||||
DATA lv_exp_night TYPE decfloat34 VALUE '90.00'.
|
||||
DATA lv_exp_motorway TYPE decfloat34 VALUE '105.00'.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lv_exp_night
|
||||
act = fee_for( iv_lesson_type = 'NIGHT' iv_vehicle = 'CAR' iv_minutes = 60 ) ).
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lv_exp_motorway
|
||||
act = fee_for( iv_lesson_type = 'MOTORWAY' iv_vehicle = 'TRUCK' iv_minutes = 30 ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD minimum_fee.
|
||||
DATA lv_exp TYPE decfloat34 VALUE '15.00'.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lv_exp
|
||||
act = fee_for( iv_lesson_type = 'NORMAL' iv_vehicle = 'MOTORCYCLE' iv_minutes = 10 ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD block_flag.
|
||||
DATA lv_block TYPE abap_bool.
|
||||
DATA lv_fee TYPE decfloat34.
|
||||
CALL FUNCTION '{{P}}DRV_FEE'
|
||||
EXPORTING
|
||||
iv_lesson_type = 'NORMAL'
|
||||
iv_vehicle = 'CAR'
|
||||
iv_minutes = 121
|
||||
IMPORTING
|
||||
ev_block = lv_block
|
||||
CHANGING
|
||||
cv_fee = lv_fee.
|
||||
cl_abap_unit_assert=>assert_true( lv_block ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD invalid_minutes.
|
||||
DATA lv_fee TYPE decfloat34.
|
||||
CALL FUNCTION '{{P}}DRV_FEE'
|
||||
EXPORTING
|
||||
iv_lesson_type = 'NORMAL'
|
||||
iv_vehicle = 'CAR'
|
||||
iv_minutes = 0
|
||||
CHANGING
|
||||
cv_fee = lv_fee
|
||||
EXCEPTIONS
|
||||
invalid_minutes = 1
|
||||
OTHERS = 2.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = sy-subrc ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user