Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
61
tasks_gen/train/G1058/reference/ice_fee.func.abap
Normal file
61
tasks_gen/train/G1058/reference/ice_fee.func.abap
Normal file
@@ -0,0 +1,61 @@
|
||||
FUNCTION {{p}}ice_fee
|
||||
IMPORTING
|
||||
iv_flavour TYPE string
|
||||
iv_scoops TYPE i
|
||||
iv_topping TYPE string
|
||||
iv_here TYPE abap_bool
|
||||
EXPORTING
|
||||
ev_price TYPE decfloat34
|
||||
EXCEPTIONS
|
||||
invalid_scoops
|
||||
unknown_flavour
|
||||
unknown_topping.
|
||||
|
||||
CONSTANTS lc_vanilla TYPE decfloat34 VALUE '1.20'.
|
||||
CONSTANTS lc_chocolate TYPE decfloat34 VALUE '1.50'.
|
||||
CONSTANTS lc_strawberry TYPE decfloat34 VALUE '1.40'.
|
||||
CONSTANTS lc_nut TYPE decfloat34 VALUE '0.60'.
|
||||
CONSTANTS lc_sprinkles TYPE decfloat34 VALUE '0.40'.
|
||||
CONSTANTS lc_service_rate TYPE decfloat34 VALUE '1.05'.
|
||||
|
||||
DATA lv_scoop_price TYPE decfloat34.
|
||||
DATA lv_topping_price TYPE decfloat34.
|
||||
DATA lv_total TYPE decfloat34.
|
||||
DATA lv_price TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
IF iv_scoops < 1 OR iv_scoops > 5.
|
||||
RAISE invalid_scoops.
|
||||
ENDIF.
|
||||
|
||||
CASE iv_flavour.
|
||||
WHEN 'VA'.
|
||||
lv_scoop_price = lc_vanilla.
|
||||
WHEN 'CH'.
|
||||
lv_scoop_price = lc_chocolate.
|
||||
WHEN 'ST'.
|
||||
lv_scoop_price = lc_strawberry.
|
||||
WHEN OTHERS.
|
||||
RAISE unknown_flavour.
|
||||
ENDCASE.
|
||||
|
||||
CASE iv_topping.
|
||||
WHEN 'NON' OR ''.
|
||||
CLEAR lv_topping_price.
|
||||
WHEN 'NUT'.
|
||||
lv_topping_price = lc_nut.
|
||||
WHEN 'SPR'.
|
||||
lv_topping_price = lc_sprinkles.
|
||||
WHEN OTHERS.
|
||||
RAISE unknown_topping.
|
||||
ENDCASE.
|
||||
|
||||
lv_total = iv_scoops * lv_scoop_price + lv_topping_price.
|
||||
|
||||
IF iv_here = abap_true.
|
||||
lv_total = lv_total * lc_service_rate.
|
||||
ENDIF.
|
||||
|
||||
lv_price = lv_total.
|
||||
ev_price = lv_price.
|
||||
|
||||
ENDFUNCTION.
|
||||
135
tasks_gen/train/G1058/reference/t37_test.clas.abap
Normal file
135
tasks_gen/train/G1058/reference/t37_test.clas.abap
Normal file
@@ -0,0 +1,135 @@
|
||||
CLASS {{p}}ice_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
||||
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
METHODS price_of
|
||||
IMPORTING
|
||||
iv_flavour TYPE string
|
||||
iv_scoops TYPE i
|
||||
iv_topping TYPE string
|
||||
iv_here TYPE abap_bool
|
||||
RETURNING
|
||||
VALUE(rv_price) TYPE decfloat34.
|
||||
METHODS one_scoop_vanilla FOR TESTING.
|
||||
METHODS three_scoops_chocolate FOR TESTING.
|
||||
METHODS topping_prices FOR TESTING.
|
||||
METHODS service_charge FOR TESTING.
|
||||
METHODS rejects_bad_scoops FOR TESTING.
|
||||
METHODS rejects_unknown_codes FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}ice_test IMPLEMENTATION.
|
||||
METHOD price_of.
|
||||
CALL FUNCTION '{{P}}ICE_FEE'
|
||||
EXPORTING
|
||||
iv_flavour = iv_flavour
|
||||
iv_scoops = iv_scoops
|
||||
iv_topping = iv_topping
|
||||
iv_here = iv_here
|
||||
IMPORTING
|
||||
ev_price = rv_price
|
||||
EXCEPTIONS
|
||||
OTHERS = 1.
|
||||
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD one_scoop_vanilla.
|
||||
CONSTANTS lc_exp TYPE decfloat34 VALUE '1.20'.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lc_exp
|
||||
act = price_of( iv_flavour = 'VA' iv_scoops = 1 iv_topping = 'NON' iv_here = abap_false ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD three_scoops_chocolate.
|
||||
CONSTANTS lc_exp TYPE decfloat34 VALUE '4.50'.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lc_exp
|
||||
act = price_of( iv_flavour = 'CH' iv_scoops = 3 iv_topping = 'NON' iv_here = abap_false ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD topping_prices.
|
||||
CONSTANTS lc_nut_exp TYPE decfloat34 VALUE '3.00'.
|
||||
CONSTANTS lc_spr_exp TYPE decfloat34 VALUE '1.80'.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lc_nut_exp
|
||||
act = price_of( iv_flavour = 'VA' iv_scoops = 2 iv_topping = 'NUT' iv_here = abap_false ) ).
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lc_spr_exp
|
||||
act = price_of( iv_flavour = 'ST' iv_scoops = 1 iv_topping = 'SPR' iv_here = abap_false ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD service_charge.
|
||||
CONSTANTS lc_plain_exp TYPE decfloat34 VALUE '1.26'.
|
||||
CONSTANTS lc_round_exp TYPE decfloat34 VALUE '1.58'.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lc_plain_exp
|
||||
act = price_of( iv_flavour = 'VA' iv_scoops = 1 iv_topping = 'NON' iv_here = abap_true ) ).
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = lc_round_exp
|
||||
act = price_of( iv_flavour = 'CH' iv_scoops = 1 iv_topping = 'NON' iv_here = abap_true ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD rejects_bad_scoops.
|
||||
DATA lv_price TYPE decfloat34.
|
||||
DATA lv_rc TYPE sysubrc.
|
||||
CALL FUNCTION '{{P}}ICE_FEE'
|
||||
EXPORTING
|
||||
iv_flavour = 'VA'
|
||||
iv_scoops = 0
|
||||
iv_topping = 'NON'
|
||||
iv_here = abap_false
|
||||
IMPORTING
|
||||
ev_price = lv_price
|
||||
EXCEPTIONS
|
||||
invalid_scoops = 1
|
||||
OTHERS = 2.
|
||||
lv_rc = sy-subrc.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
||||
|
||||
CALL FUNCTION '{{P}}ICE_FEE'
|
||||
EXPORTING
|
||||
iv_flavour = 'VA'
|
||||
iv_scoops = 6
|
||||
iv_topping = 'NON'
|
||||
iv_here = abap_false
|
||||
IMPORTING
|
||||
ev_price = lv_price
|
||||
EXCEPTIONS
|
||||
invalid_scoops = 1
|
||||
OTHERS = 2.
|
||||
lv_rc = sy-subrc.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD rejects_unknown_codes.
|
||||
DATA lv_price TYPE decfloat34.
|
||||
DATA lv_rc TYPE sysubrc.
|
||||
CALL FUNCTION '{{P}}ICE_FEE'
|
||||
EXPORTING
|
||||
iv_flavour = 'XX'
|
||||
iv_scoops = 1
|
||||
iv_topping = 'NON'
|
||||
iv_here = abap_false
|
||||
IMPORTING
|
||||
ev_price = lv_price
|
||||
EXCEPTIONS
|
||||
unknown_flavour = 1
|
||||
OTHERS = 2.
|
||||
lv_rc = sy-subrc.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
||||
|
||||
CALL FUNCTION '{{P}}ICE_FEE'
|
||||
EXPORTING
|
||||
iv_flavour = 'VA'
|
||||
iv_scoops = 1
|
||||
iv_topping = 'ZZ'
|
||||
iv_here = abap_false
|
||||
IMPORTING
|
||||
ev_price = lv_price
|
||||
EXCEPTIONS
|
||||
unknown_topping = 1
|
||||
OTHERS = 2.
|
||||
lv_rc = sy-subrc.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user