Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
152
tasks_gen/train/G1070/faulty/m0_shred_pricer.clas.abap
Normal file
152
tasks_gen/train/G1070/faulty/m0_shred_pricer.clas.abap
Normal file
@@ -0,0 +1,152 @@
|
||||
CLASS {{p}}shred_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
|
||||
PUBLIC SECTION.
|
||||
|
||||
TYPES ty_size TYPE i.
|
||||
TYPES ty_service TYPE c LENGTH 1.
|
||||
TYPES ty_price TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_size,
|
||||
small TYPE ty_size VALUE 60,
|
||||
large TYPE ty_size VALUE 240,
|
||||
END OF c_size.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_service,
|
||||
plant TYPE ty_service VALUE 'P',
|
||||
onsite TYPE ty_service VALUE 'O',
|
||||
END OF c_service.
|
||||
|
||||
METHODS calculate_price
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
iv_express TYPE abap_bool
|
||||
iv_contract TYPE abap_bool
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
PRIVATE SECTION.
|
||||
|
||||
CONSTANTS:
|
||||
c_price_small TYPE ty_price VALUE '8.00',
|
||||
c_price_medium TYPE ty_price VALUE '12.00',
|
||||
c_price_large TYPE ty_price VALUE '18.00',
|
||||
c_onsite_surcharge TYPE ty_price VALUE '3.50',
|
||||
c_express_factor TYPE ty_price VALUE '1.20',
|
||||
c_contract_factor TYPE ty_price VALUE '0.90',
|
||||
c_high_volume_factor TYPE ty_price VALUE '0.90',
|
||||
c_mid_volume_factor TYPE ty_price VALUE '0.95',
|
||||
c_mid_volume_limit TYPE i VALUE 10,
|
||||
c_high_volume_limit TYPE i VALUE 25,
|
||||
c_onsite_minimum TYPE ty_price VALUE '60.00',
|
||||
c_plant_minimum TYPE ty_price VALUE '35.00'.
|
||||
|
||||
METHODS box_price
|
||||
IMPORTING iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
METHODS apply_volume_discount
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_contract_discount
|
||||
IMPORTING iv_contract TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_express_surcharge
|
||||
IMPORTING iv_express TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_minimum
|
||||
IMPORTING iv_service TYPE ty_service
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}shred_pricer IMPLEMENTATION.
|
||||
|
||||
METHOD calculate_price.
|
||||
DATA lv_total TYPE ty_price.
|
||||
|
||||
IF iv_boxes <= 0.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
lv_total = iv_boxes / box_price( iv_size = iv_size
|
||||
iv_service = iv_service ).
|
||||
lv_total = apply_volume_discount( iv_boxes = iv_boxes
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_contract_discount( iv_contract = iv_contract
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_express_surcharge( iv_express = iv_express
|
||||
iv_total = lv_total ).
|
||||
rv_price = apply_minimum( iv_service = iv_service
|
||||
iv_total = lv_total ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD box_price.
|
||||
CASE iv_size.
|
||||
WHEN c_size-small.
|
||||
rv_price = c_price_small.
|
||||
WHEN c_size-large.
|
||||
rv_price = c_price_large.
|
||||
WHEN OTHERS.
|
||||
rv_price = c_price_medium.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_service = c_service-onsite.
|
||||
rv_price = rv_price + c_onsite_surcharge.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_volume_discount.
|
||||
IF iv_boxes >= c_high_volume_limit.
|
||||
rv_total = iv_total * c_high_volume_factor.
|
||||
ELSEIF iv_boxes >= c_mid_volume_limit.
|
||||
rv_total = iv_total * c_mid_volume_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_contract_discount.
|
||||
IF iv_contract = abap_true.
|
||||
rv_total = iv_total * c_contract_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_express_surcharge.
|
||||
IF iv_express = abap_true.
|
||||
rv_total = iv_total * c_express_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_minimum.
|
||||
DATA lv_minimum TYPE ty_price.
|
||||
|
||||
CASE iv_service.
|
||||
WHEN c_service-onsite.
|
||||
lv_minimum = c_onsite_minimum.
|
||||
WHEN OTHERS.
|
||||
lv_minimum = c_plant_minimum.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_total < lv_minimum.
|
||||
rv_total = lv_minimum.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
152
tasks_gen/train/G1070/faulty/m1_shred_pricer.clas.abap
Normal file
152
tasks_gen/train/G1070/faulty/m1_shred_pricer.clas.abap
Normal file
@@ -0,0 +1,152 @@
|
||||
CLASS {{p}}shred_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
|
||||
PUBLIC SECTION.
|
||||
|
||||
TYPES ty_size TYPE i.
|
||||
TYPES ty_service TYPE c LENGTH 1.
|
||||
TYPES ty_price TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_size,
|
||||
small TYPE ty_size VALUE 60,
|
||||
large TYPE ty_size VALUE 240,
|
||||
END OF c_size.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_service,
|
||||
plant TYPE ty_service VALUE 'P',
|
||||
onsite TYPE ty_service VALUE 'O',
|
||||
END OF c_service.
|
||||
|
||||
METHODS calculate_price
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
iv_express TYPE abap_bool
|
||||
iv_contract TYPE abap_bool
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
PRIVATE SECTION.
|
||||
|
||||
CONSTANTS:
|
||||
c_price_small TYPE ty_price VALUE '8.00',
|
||||
c_price_medium TYPE ty_price VALUE '12.00',
|
||||
c_price_large TYPE ty_price VALUE '18.00',
|
||||
c_onsite_surcharge TYPE ty_price VALUE '3.50',
|
||||
c_express_factor TYPE ty_price VALUE '1.20',
|
||||
c_contract_factor TYPE ty_price VALUE '0.90',
|
||||
c_high_volume_factor TYPE ty_price VALUE '0.90',
|
||||
c_mid_volume_factor TYPE ty_price VALUE '0.95',
|
||||
c_mid_volume_limit TYPE i VALUE 10,
|
||||
c_high_volume_limit TYPE i VALUE 25,
|
||||
c_onsite_minimum TYPE ty_price VALUE '60.00',
|
||||
c_plant_minimum TYPE ty_price VALUE '35.00'.
|
||||
|
||||
METHODS box_price
|
||||
IMPORTING iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
METHODS apply_volume_discount
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_contract_discount
|
||||
IMPORTING iv_contract TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_express_surcharge
|
||||
IMPORTING iv_express TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_minimum
|
||||
IMPORTING iv_service TYPE ty_service
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}shred_pricer IMPLEMENTATION.
|
||||
|
||||
METHOD calculate_price.
|
||||
DATA lv_total TYPE ty_price.
|
||||
|
||||
IF iv_boxes <= 0.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
lv_total = iv_boxes * box_price( iv_size = iv_size
|
||||
iv_service = iv_service ).
|
||||
lv_total = apply_volume_discount( iv_boxes = iv_boxes
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_contract_discount( iv_contract = iv_contract
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_express_surcharge( iv_express = iv_express
|
||||
iv_total = lv_total ).
|
||||
rv_price = apply_minimum( iv_service = iv_service
|
||||
iv_total = lv_total ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD box_price.
|
||||
CASE iv_size.
|
||||
WHEN c_size-small.
|
||||
rv_price = c_price_small.
|
||||
WHEN c_size-large.
|
||||
rv_price = c_price_large.
|
||||
WHEN OTHERS.
|
||||
rv_price = c_price_medium.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_service <> c_service-onsite.
|
||||
rv_price = rv_price + c_onsite_surcharge.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_volume_discount.
|
||||
IF iv_boxes >= c_high_volume_limit.
|
||||
rv_total = iv_total * c_high_volume_factor.
|
||||
ELSEIF iv_boxes >= c_mid_volume_limit.
|
||||
rv_total = iv_total * c_mid_volume_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_contract_discount.
|
||||
IF iv_contract = abap_true.
|
||||
rv_total = iv_total * c_contract_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_express_surcharge.
|
||||
IF iv_express = abap_true.
|
||||
rv_total = iv_total * c_express_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_minimum.
|
||||
DATA lv_minimum TYPE ty_price.
|
||||
|
||||
CASE iv_service.
|
||||
WHEN c_service-onsite.
|
||||
lv_minimum = c_onsite_minimum.
|
||||
WHEN OTHERS.
|
||||
lv_minimum = c_plant_minimum.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_total < lv_minimum.
|
||||
rv_total = lv_minimum.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
152
tasks_gen/train/G1070/faulty/m2_shred_pricer.clas.abap
Normal file
152
tasks_gen/train/G1070/faulty/m2_shred_pricer.clas.abap
Normal file
@@ -0,0 +1,152 @@
|
||||
CLASS {{p}}shred_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
|
||||
PUBLIC SECTION.
|
||||
|
||||
TYPES ty_size TYPE i.
|
||||
TYPES ty_service TYPE c LENGTH 1.
|
||||
TYPES ty_price TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_size,
|
||||
small TYPE ty_size VALUE 60,
|
||||
large TYPE ty_size VALUE 240,
|
||||
END OF c_size.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_service,
|
||||
plant TYPE ty_service VALUE 'P',
|
||||
onsite TYPE ty_service VALUE 'O',
|
||||
END OF c_service.
|
||||
|
||||
METHODS calculate_price
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
iv_express TYPE abap_bool
|
||||
iv_contract TYPE abap_bool
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
PRIVATE SECTION.
|
||||
|
||||
CONSTANTS:
|
||||
c_price_small TYPE ty_price VALUE '8.00',
|
||||
c_price_medium TYPE ty_price VALUE '12.00',
|
||||
c_price_large TYPE ty_price VALUE '18.00',
|
||||
c_onsite_surcharge TYPE ty_price VALUE '3.50',
|
||||
c_express_factor TYPE ty_price VALUE '1.20',
|
||||
c_contract_factor TYPE ty_price VALUE '0.90',
|
||||
c_high_volume_factor TYPE ty_price VALUE '0.90',
|
||||
c_mid_volume_factor TYPE ty_price VALUE '0.95',
|
||||
c_mid_volume_limit TYPE i VALUE 10,
|
||||
c_high_volume_limit TYPE i VALUE 25,
|
||||
c_onsite_minimum TYPE ty_price VALUE '60.00',
|
||||
c_plant_minimum TYPE ty_price VALUE '35.00'.
|
||||
|
||||
METHODS box_price
|
||||
IMPORTING iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
METHODS apply_volume_discount
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_contract_discount
|
||||
IMPORTING iv_contract TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_express_surcharge
|
||||
IMPORTING iv_express TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_minimum
|
||||
IMPORTING iv_service TYPE ty_service
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}shred_pricer IMPLEMENTATION.
|
||||
|
||||
METHOD calculate_price.
|
||||
DATA lv_total TYPE ty_price.
|
||||
|
||||
IF iv_boxes <= 0.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
lv_total = iv_boxes * box_price( iv_size = iv_size
|
||||
iv_service = iv_service ).
|
||||
lv_total = apply_volume_discount( iv_boxes = iv_boxes
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_contract_discount( iv_contract = iv_contract
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_express_surcharge( iv_express = iv_express
|
||||
iv_total = lv_total ).
|
||||
rv_price = apply_minimum( iv_service = iv_service
|
||||
iv_total = lv_total ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD box_price.
|
||||
CASE iv_size.
|
||||
WHEN c_size-small.
|
||||
rv_price = c_price_small.
|
||||
WHEN c_size-large.
|
||||
rv_price = c_price_large.
|
||||
WHEN OTHERS.
|
||||
rv_price = c_price_medium.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_service = c_service-onsite.
|
||||
rv_price = rv_price + c_onsite_surcharge.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_volume_discount.
|
||||
IF iv_boxes < c_high_volume_limit.
|
||||
rv_total = iv_total * c_high_volume_factor.
|
||||
ELSEIF iv_boxes >= c_mid_volume_limit.
|
||||
rv_total = iv_total * c_mid_volume_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_contract_discount.
|
||||
IF iv_contract = abap_true.
|
||||
rv_total = iv_total * c_contract_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_express_surcharge.
|
||||
IF iv_express = abap_true.
|
||||
rv_total = iv_total * c_express_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_minimum.
|
||||
DATA lv_minimum TYPE ty_price.
|
||||
|
||||
CASE iv_service.
|
||||
WHEN c_service-onsite.
|
||||
lv_minimum = c_onsite_minimum.
|
||||
WHEN OTHERS.
|
||||
lv_minimum = c_plant_minimum.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_total < lv_minimum.
|
||||
rv_total = lv_minimum.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
152
tasks_gen/train/G1070/faulty/m3_shred_pricer.clas.abap
Normal file
152
tasks_gen/train/G1070/faulty/m3_shred_pricer.clas.abap
Normal file
@@ -0,0 +1,152 @@
|
||||
CLASS {{p}}shred_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
|
||||
PUBLIC SECTION.
|
||||
|
||||
TYPES ty_size TYPE i.
|
||||
TYPES ty_service TYPE c LENGTH 1.
|
||||
TYPES ty_price TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_size,
|
||||
small TYPE ty_size VALUE 60,
|
||||
large TYPE ty_size VALUE 240,
|
||||
END OF c_size.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_service,
|
||||
plant TYPE ty_service VALUE 'P',
|
||||
onsite TYPE ty_service VALUE 'O',
|
||||
END OF c_service.
|
||||
|
||||
METHODS calculate_price
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
iv_express TYPE abap_bool
|
||||
iv_contract TYPE abap_bool
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
PRIVATE SECTION.
|
||||
|
||||
CONSTANTS:
|
||||
c_price_small TYPE ty_price VALUE '8.00',
|
||||
c_price_medium TYPE ty_price VALUE '12.00',
|
||||
c_price_large TYPE ty_price VALUE '18.00',
|
||||
c_onsite_surcharge TYPE ty_price VALUE '3.50',
|
||||
c_express_factor TYPE ty_price VALUE '1.20',
|
||||
c_contract_factor TYPE ty_price VALUE '0.90',
|
||||
c_high_volume_factor TYPE ty_price VALUE '0.90',
|
||||
c_mid_volume_factor TYPE ty_price VALUE '0.95',
|
||||
c_mid_volume_limit TYPE i VALUE 10,
|
||||
c_high_volume_limit TYPE i VALUE 25,
|
||||
c_onsite_minimum TYPE ty_price VALUE '60.00',
|
||||
c_plant_minimum TYPE ty_price VALUE '35.00'.
|
||||
|
||||
METHODS box_price
|
||||
IMPORTING iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
METHODS apply_volume_discount
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_contract_discount
|
||||
IMPORTING iv_contract TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_express_surcharge
|
||||
IMPORTING iv_express TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_minimum
|
||||
IMPORTING iv_service TYPE ty_service
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}shred_pricer IMPLEMENTATION.
|
||||
|
||||
METHOD calculate_price.
|
||||
DATA lv_total TYPE ty_price.
|
||||
|
||||
IF iv_boxes <= 0.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
lv_total = iv_boxes * box_price( iv_size = iv_size
|
||||
iv_service = iv_service ).
|
||||
lv_total = apply_volume_discount( iv_boxes = iv_boxes
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_contract_discount( iv_contract = iv_contract
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_express_surcharge( iv_express = iv_express
|
||||
iv_total = lv_total ).
|
||||
rv_price = apply_minimum( iv_service = iv_service
|
||||
iv_total = lv_total ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD box_price.
|
||||
CASE iv_size.
|
||||
WHEN c_size-small.
|
||||
rv_price = c_price_small.
|
||||
WHEN c_size-large.
|
||||
rv_price = c_price_large.
|
||||
WHEN OTHERS.
|
||||
rv_price = c_price_medium.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_service = c_service-onsite.
|
||||
rv_price = rv_price + c_onsite_surcharge.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_volume_discount.
|
||||
IF iv_boxes >= c_high_volume_limit.
|
||||
rv_total = iv_total * c_high_volume_factor.
|
||||
ELSEIF iv_boxes >= c_mid_volume_limit.
|
||||
rv_total = iv_total * c_mid_volume_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_contract_discount.
|
||||
IF iv_contract = abap_true.
|
||||
rv_total = iv_total / c_contract_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_express_surcharge.
|
||||
IF iv_express = abap_true.
|
||||
rv_total = iv_total * c_express_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_minimum.
|
||||
DATA lv_minimum TYPE ty_price.
|
||||
|
||||
CASE iv_service.
|
||||
WHEN c_service-onsite.
|
||||
lv_minimum = c_onsite_minimum.
|
||||
WHEN OTHERS.
|
||||
lv_minimum = c_plant_minimum.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_total < lv_minimum.
|
||||
rv_total = lv_minimum.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
152
tasks_gen/train/G1070/faulty/m4_shred_pricer.clas.abap
Normal file
152
tasks_gen/train/G1070/faulty/m4_shred_pricer.clas.abap
Normal file
@@ -0,0 +1,152 @@
|
||||
CLASS {{p}}shred_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
|
||||
PUBLIC SECTION.
|
||||
|
||||
TYPES ty_size TYPE i.
|
||||
TYPES ty_service TYPE c LENGTH 1.
|
||||
TYPES ty_price TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_size,
|
||||
small TYPE ty_size VALUE 60,
|
||||
large TYPE ty_size VALUE 240,
|
||||
END OF c_size.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_service,
|
||||
plant TYPE ty_service VALUE 'P',
|
||||
onsite TYPE ty_service VALUE 'O',
|
||||
END OF c_service.
|
||||
|
||||
METHODS calculate_price
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
iv_express TYPE abap_bool
|
||||
iv_contract TYPE abap_bool
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
PRIVATE SECTION.
|
||||
|
||||
CONSTANTS:
|
||||
c_price_small TYPE ty_price VALUE '8.00',
|
||||
c_price_medium TYPE ty_price VALUE '12.00',
|
||||
c_price_large TYPE ty_price VALUE '18.00',
|
||||
c_onsite_surcharge TYPE ty_price VALUE '3.50',
|
||||
c_express_factor TYPE ty_price VALUE '1.20',
|
||||
c_contract_factor TYPE ty_price VALUE '0.90',
|
||||
c_high_volume_factor TYPE ty_price VALUE '0.90',
|
||||
c_mid_volume_factor TYPE ty_price VALUE '0.95',
|
||||
c_mid_volume_limit TYPE i VALUE 10,
|
||||
c_high_volume_limit TYPE i VALUE 25,
|
||||
c_onsite_minimum TYPE ty_price VALUE '60.00',
|
||||
c_plant_minimum TYPE ty_price VALUE '35.00'.
|
||||
|
||||
METHODS box_price
|
||||
IMPORTING iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
METHODS apply_volume_discount
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_contract_discount
|
||||
IMPORTING iv_contract TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_express_surcharge
|
||||
IMPORTING iv_express TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_minimum
|
||||
IMPORTING iv_service TYPE ty_service
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}shred_pricer IMPLEMENTATION.
|
||||
|
||||
METHOD calculate_price.
|
||||
DATA lv_total TYPE ty_price.
|
||||
|
||||
IF iv_boxes <= 0.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
lv_total = iv_boxes * box_price( iv_size = iv_size
|
||||
iv_service = iv_service ).
|
||||
lv_total = apply_volume_discount( iv_boxes = iv_boxes
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_contract_discount( iv_contract = iv_contract
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_express_surcharge( iv_express = iv_express
|
||||
iv_total = lv_total ).
|
||||
rv_price = apply_minimum( iv_service = iv_service
|
||||
iv_total = lv_total ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD box_price.
|
||||
CASE iv_size.
|
||||
WHEN c_size-small.
|
||||
rv_price = c_price_small.
|
||||
WHEN c_size-large.
|
||||
rv_price = c_price_large.
|
||||
WHEN OTHERS.
|
||||
rv_price = c_price_medium.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_service = c_service-onsite.
|
||||
rv_price = rv_price + c_onsite_surcharge.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_volume_discount.
|
||||
IF iv_boxes >= c_high_volume_limit.
|
||||
rv_total = iv_total * c_high_volume_factor.
|
||||
ELSEIF iv_boxes >= c_mid_volume_limit.
|
||||
rv_total = iv_total * c_mid_volume_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_contract_discount.
|
||||
IF iv_contract = abap_true.
|
||||
rv_total = iv_total * c_contract_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_express_surcharge.
|
||||
IF iv_express = abap_false.
|
||||
rv_total = iv_total * c_express_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_minimum.
|
||||
DATA lv_minimum TYPE ty_price.
|
||||
|
||||
CASE iv_service.
|
||||
WHEN c_service-onsite.
|
||||
lv_minimum = c_onsite_minimum.
|
||||
WHEN OTHERS.
|
||||
lv_minimum = c_plant_minimum.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_total < lv_minimum.
|
||||
rv_total = lv_minimum.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
19
tasks_gen/train/G1070/generation.json
Normal file
19
tasks_gen/train/G1070/generation.json
Normal file
@@ -0,0 +1,19 @@
|
||||
{
|
||||
"id": "G1070",
|
||||
"pool": "train",
|
||||
"object_type": "CLAS",
|
||||
"category": "E",
|
||||
"attempts": [
|
||||
{
|
||||
"stage": "validate",
|
||||
"oracle": 100.0,
|
||||
"null": 0,
|
||||
"mutation": {
|
||||
"valid": 5,
|
||||
"killed": 5,
|
||||
"ok": true
|
||||
}
|
||||
}
|
||||
],
|
||||
"accepted": true
|
||||
}
|
||||
107
tasks_gen/train/G1070/hidden/shred_hidden.clas.abap
Normal file
107
tasks_gen/train/G1070/hidden/shred_hidden.clas.abap
Normal file
@@ -0,0 +1,107 @@
|
||||
CLASS {{p}}shred_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
||||
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
|
||||
PRIVATE SECTION.
|
||||
DATA mo_cut TYPE REF TO {{p}}shred_pricer.
|
||||
|
||||
METHODS setup.
|
||||
METHODS expect_price
|
||||
IMPORTING iv_expected TYPE {{p}}shred_pricer=>ty_price
|
||||
iv_boxes TYPE i
|
||||
iv_size TYPE {{p}}shred_pricer=>ty_size
|
||||
iv_service TYPE {{p}}shred_pricer=>ty_service
|
||||
iv_express TYPE abap_bool
|
||||
iv_contract TYPE abap_bool.
|
||||
|
||||
METHODS zero_boxes_is_free FOR TESTING.
|
||||
METHODS negative_boxes_free FOR TESTING.
|
||||
METHODS plant_minimum_charge FOR TESTING.
|
||||
METHODS onsite_minimum_charge FOR TESTING.
|
||||
METHODS onsite_surcharge FOR TESTING.
|
||||
METHODS no_discount_below_ten FOR TESTING.
|
||||
METHODS mid_volume_discount FOR TESTING.
|
||||
METHODS high_volume_discount FOR TESTING.
|
||||
METHODS express_surcharge FOR TESTING.
|
||||
METHODS contract_discount FOR TESTING.
|
||||
METHODS all_effects_combined FOR TESTING.
|
||||
METHODS unknown_size_uses_medium FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}shred_hidden IMPLEMENTATION.
|
||||
|
||||
METHOD setup.
|
||||
mo_cut = NEW {{p}}shred_pricer( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD expect_price.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = iv_expected
|
||||
act = mo_cut->calculate_price( iv_boxes = iv_boxes
|
||||
iv_size = iv_size
|
||||
iv_service = iv_service
|
||||
iv_express = iv_express
|
||||
iv_contract = iv_contract ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD zero_boxes_is_free.
|
||||
expect_price( iv_expected = '0.00' iv_boxes = 0 iv_size = 120
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD negative_boxes_free.
|
||||
expect_price( iv_expected = '0.00' iv_boxes = -3 iv_size = 60
|
||||
iv_service = 'O' iv_express = abap_true iv_contract = abap_true ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD plant_minimum_charge.
|
||||
expect_price( iv_expected = '35.00' iv_boxes = 1 iv_size = 60
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD onsite_minimum_charge.
|
||||
expect_price( iv_expected = '60.00' iv_boxes = 1 iv_size = 60
|
||||
iv_service = 'O' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD onsite_surcharge.
|
||||
expect_price( iv_expected = '107.50' iv_boxes = 5 iv_size = 240
|
||||
iv_service = 'O' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD no_discount_below_ten.
|
||||
expect_price( iv_expected = '72.00' iv_boxes = 9 iv_size = 60
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD mid_volume_discount.
|
||||
expect_price( iv_expected = '182.40' iv_boxes = 24 iv_size = 60
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD high_volume_discount.
|
||||
expect_price( iv_expected = '270.00' iv_boxes = 25 iv_size = 120
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD express_surcharge.
|
||||
expect_price( iv_expected = '205.20' iv_boxes = 10 iv_size = 240
|
||||
iv_service = 'P' iv_express = abap_true iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD contract_discount.
|
||||
expect_price( iv_expected = '153.90' iv_boxes = 10 iv_size = 240
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_true ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD all_effects_combined.
|
||||
expect_price( iv_expected = '437.40' iv_boxes = 25 iv_size = 240
|
||||
iv_service = 'P' iv_express = abap_true iv_contract = abap_true ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD unknown_size_uses_medium.
|
||||
expect_price( iv_expected = '114.00' iv_boxes = 10 iv_size = 100
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
83
tasks_gen/train/G1070/mutation.json
Normal file
83
tasks_gen/train/G1070/mutation.json
Normal file
@@ -0,0 +1,83 @@
|
||||
{
|
||||
"task": "G1070",
|
||||
"mutants": [
|
||||
{
|
||||
"object": "{{P}}SHRED_PRICER",
|
||||
"mutant": "line 82: * -> / (arith)",
|
||||
"status": "killed",
|
||||
"hidden": "4/12",
|
||||
"failed_tests": [
|
||||
"ALL_EFFECTS_COMBINED",
|
||||
"CONTRACT_DISCOUNT",
|
||||
"EXPRESS_SURCHARGE",
|
||||
"HIGH_VOLUME_DISCOUNT",
|
||||
"MID_VOLUME_DISCOUNT",
|
||||
"NO_DISCOUNT_BELOW_TEN",
|
||||
"ONSITE_SURCHARGE",
|
||||
"UNKNOWN_SIZE_USES_MEDIUM"
|
||||
]
|
||||
},
|
||||
{
|
||||
"object": "{{P}}SHRED_PRICER",
|
||||
"mutant": "line 104: = -> <> (eq)",
|
||||
"status": "killed",
|
||||
"hidden": "4/12",
|
||||
"failed_tests": [
|
||||
"ALL_EFFECTS_COMBINED",
|
||||
"CONTRACT_DISCOUNT",
|
||||
"EXPRESS_SURCHARGE",
|
||||
"HIGH_VOLUME_DISCOUNT",
|
||||
"MID_VOLUME_DISCOUNT",
|
||||
"NO_DISCOUNT_BELOW_TEN",
|
||||
"ONSITE_SURCHARGE",
|
||||
"UNKNOWN_SIZE_USES_MEDIUM"
|
||||
]
|
||||
},
|
||||
{
|
||||
"object": "{{P}}SHRED_PRICER",
|
||||
"mutant": "line 110: >= -> < (rel)",
|
||||
"status": "killed",
|
||||
"hidden": "4/12",
|
||||
"failed_tests": [
|
||||
"ALL_EFFECTS_COMBINED",
|
||||
"CONTRACT_DISCOUNT",
|
||||
"EXPRESS_SURCHARGE",
|
||||
"HIGH_VOLUME_DISCOUNT",
|
||||
"MID_VOLUME_DISCOUNT",
|
||||
"NO_DISCOUNT_BELOW_TEN",
|
||||
"ONSITE_SURCHARGE",
|
||||
"UNKNOWN_SIZE_USES_MEDIUM"
|
||||
]
|
||||
},
|
||||
{
|
||||
"object": "{{P}}SHRED_PRICER",
|
||||
"mutant": "line 121: * -> / (arith)",
|
||||
"status": "killed",
|
||||
"hidden": "10/12",
|
||||
"failed_tests": [
|
||||
"ALL_EFFECTS_COMBINED",
|
||||
"CONTRACT_DISCOUNT"
|
||||
]
|
||||
},
|
||||
{
|
||||
"object": "{{P}}SHRED_PRICER",
|
||||
"mutant": "line 128: abap_true -> abap_false (bool)",
|
||||
"status": "killed",
|
||||
"hidden": "4/12",
|
||||
"failed_tests": [
|
||||
"ALL_EFFECTS_COMBINED",
|
||||
"CONTRACT_DISCOUNT",
|
||||
"EXPRESS_SURCHARGE",
|
||||
"HIGH_VOLUME_DISCOUNT",
|
||||
"MID_VOLUME_DISCOUNT",
|
||||
"NO_DISCOUNT_BELOW_TEN",
|
||||
"ONSITE_SURCHARGE",
|
||||
"UNKNOWN_SIZE_USES_MEDIUM"
|
||||
]
|
||||
}
|
||||
],
|
||||
"valid": 5,
|
||||
"killed": 5,
|
||||
"kill_rate": 1.0,
|
||||
"ok": true
|
||||
}
|
||||
152
tasks_gen/train/G1070/reference/shred_pricer.clas.abap
Normal file
152
tasks_gen/train/G1070/reference/shred_pricer.clas.abap
Normal file
@@ -0,0 +1,152 @@
|
||||
CLASS {{p}}shred_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
|
||||
PUBLIC SECTION.
|
||||
|
||||
TYPES ty_size TYPE i.
|
||||
TYPES ty_service TYPE c LENGTH 1.
|
||||
TYPES ty_price TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_size,
|
||||
small TYPE ty_size VALUE 60,
|
||||
large TYPE ty_size VALUE 240,
|
||||
END OF c_size.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_service,
|
||||
plant TYPE ty_service VALUE 'P',
|
||||
onsite TYPE ty_service VALUE 'O',
|
||||
END OF c_service.
|
||||
|
||||
METHODS calculate_price
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
iv_express TYPE abap_bool
|
||||
iv_contract TYPE abap_bool
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
PRIVATE SECTION.
|
||||
|
||||
CONSTANTS:
|
||||
c_price_small TYPE ty_price VALUE '8.00',
|
||||
c_price_medium TYPE ty_price VALUE '12.00',
|
||||
c_price_large TYPE ty_price VALUE '18.00',
|
||||
c_onsite_surcharge TYPE ty_price VALUE '3.50',
|
||||
c_express_factor TYPE ty_price VALUE '1.20',
|
||||
c_contract_factor TYPE ty_price VALUE '0.90',
|
||||
c_high_volume_factor TYPE ty_price VALUE '0.90',
|
||||
c_mid_volume_factor TYPE ty_price VALUE '0.95',
|
||||
c_mid_volume_limit TYPE i VALUE 10,
|
||||
c_high_volume_limit TYPE i VALUE 25,
|
||||
c_onsite_minimum TYPE ty_price VALUE '60.00',
|
||||
c_plant_minimum TYPE ty_price VALUE '35.00'.
|
||||
|
||||
METHODS box_price
|
||||
IMPORTING iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
|
||||
METHODS apply_volume_discount
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_contract_discount
|
||||
IMPORTING iv_contract TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_express_surcharge
|
||||
IMPORTING iv_express TYPE abap_bool
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
METHODS apply_minimum
|
||||
IMPORTING iv_service TYPE ty_service
|
||||
iv_total TYPE ty_price
|
||||
RETURNING VALUE(rv_total) TYPE ty_price.
|
||||
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}shred_pricer IMPLEMENTATION.
|
||||
|
||||
METHOD calculate_price.
|
||||
DATA lv_total TYPE ty_price.
|
||||
|
||||
IF iv_boxes <= 0.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
lv_total = iv_boxes * box_price( iv_size = iv_size
|
||||
iv_service = iv_service ).
|
||||
lv_total = apply_volume_discount( iv_boxes = iv_boxes
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_contract_discount( iv_contract = iv_contract
|
||||
iv_total = lv_total ).
|
||||
lv_total = apply_express_surcharge( iv_express = iv_express
|
||||
iv_total = lv_total ).
|
||||
rv_price = apply_minimum( iv_service = iv_service
|
||||
iv_total = lv_total ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD box_price.
|
||||
CASE iv_size.
|
||||
WHEN c_size-small.
|
||||
rv_price = c_price_small.
|
||||
WHEN c_size-large.
|
||||
rv_price = c_price_large.
|
||||
WHEN OTHERS.
|
||||
rv_price = c_price_medium.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_service = c_service-onsite.
|
||||
rv_price = rv_price + c_onsite_surcharge.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_volume_discount.
|
||||
IF iv_boxes >= c_high_volume_limit.
|
||||
rv_total = iv_total * c_high_volume_factor.
|
||||
ELSEIF iv_boxes >= c_mid_volume_limit.
|
||||
rv_total = iv_total * c_mid_volume_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_contract_discount.
|
||||
IF iv_contract = abap_true.
|
||||
rv_total = iv_total * c_contract_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_express_surcharge.
|
||||
IF iv_express = abap_true.
|
||||
rv_total = iv_total * c_express_factor.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD apply_minimum.
|
||||
DATA lv_minimum TYPE ty_price.
|
||||
|
||||
CASE iv_service.
|
||||
WHEN c_service-onsite.
|
||||
lv_minimum = c_onsite_minimum.
|
||||
WHEN OTHERS.
|
||||
lv_minimum = c_plant_minimum.
|
||||
ENDCASE.
|
||||
|
||||
IF iv_total < lv_minimum.
|
||||
rv_total = lv_minimum.
|
||||
ELSE.
|
||||
rv_total = iv_total.
|
||||
ENDIF.
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
@@ -0,0 +1,71 @@
|
||||
CLASS ltc_shred_pricer DEFINITION FINAL FOR TESTING
|
||||
DURATION SHORT RISK LEVEL HARMLESS.
|
||||
|
||||
PRIVATE SECTION.
|
||||
DATA mo_cut TYPE REF TO {{p}}shred_pricer.
|
||||
|
||||
METHODS setup.
|
||||
METHODS expect_price
|
||||
IMPORTING iv_expected TYPE {{p}}shred_pricer=>ty_price
|
||||
iv_boxes TYPE i
|
||||
iv_size TYPE {{p}}shred_pricer=>ty_size
|
||||
iv_service TYPE {{p}}shred_pricer=>ty_service
|
||||
iv_express TYPE abap_bool
|
||||
iv_contract TYPE abap_bool.
|
||||
|
||||
METHODS no_boxes_is_free FOR TESTING.
|
||||
METHODS plant_minimum_charge FOR TESTING.
|
||||
METHODS onsite_minimum_charge FOR TESTING.
|
||||
METHODS volume_discount FOR TESTING.
|
||||
METHODS contract_and_express FOR TESTING.
|
||||
METHODS unknown_size_falls_back FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS ltc_shred_pricer IMPLEMENTATION.
|
||||
|
||||
METHOD setup.
|
||||
mo_cut = NEW {{p}}shred_pricer( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD expect_price.
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = iv_expected
|
||||
act = mo_cut->calculate_price( iv_boxes = iv_boxes
|
||||
iv_size = iv_size
|
||||
iv_service = iv_service
|
||||
iv_express = iv_express
|
||||
iv_contract = iv_contract ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD no_boxes_is_free.
|
||||
expect_price( iv_expected = '0.00' iv_boxes = 0 iv_size = 120
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD plant_minimum_charge.
|
||||
expect_price( iv_expected = '35.00' iv_boxes = 1 iv_size = 60
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD onsite_minimum_charge.
|
||||
expect_price( iv_expected = '60.00' iv_boxes = 1 iv_size = 60
|
||||
iv_service = 'O' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD volume_discount.
|
||||
expect_price( iv_expected = '182.40' iv_boxes = 24 iv_size = 60
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD contract_and_express.
|
||||
expect_price( iv_expected = '437.40' iv_boxes = 25 iv_size = 240
|
||||
iv_service = 'P' iv_express = abap_true iv_contract = abap_true ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD unknown_size_falls_back.
|
||||
expect_price( iv_expected = '114.00' iv_boxes = 10 iv_size = 100
|
||||
iv_service = 'P' iv_express = abap_false iv_contract = abap_false ).
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
107
tasks_gen/train/G1070/seed/shred_pricer.clas.abap
Normal file
107
tasks_gen/train/G1070/seed/shred_pricer.clas.abap
Normal file
@@ -0,0 +1,107 @@
|
||||
CLASS {{p}}shred_pricer DEFINITION PUBLIC FINAL CREATE PUBLIC.
|
||||
PUBLIC SECTION.
|
||||
TYPES ty_size TYPE i.
|
||||
TYPES ty_service TYPE c LENGTH 1.
|
||||
TYPES ty_price TYPE p LENGTH 8 DECIMALS 2.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_size,
|
||||
small TYPE ty_size VALUE 60,
|
||||
large TYPE ty_size VALUE 240,
|
||||
END OF c_size.
|
||||
|
||||
CONSTANTS:
|
||||
BEGIN OF c_service,
|
||||
plant TYPE ty_service VALUE 'P',
|
||||
onsite TYPE ty_service VALUE 'O',
|
||||
END OF c_service.
|
||||
|
||||
METHODS calculate_price
|
||||
IMPORTING iv_boxes TYPE i
|
||||
iv_size TYPE ty_size
|
||||
iv_service TYPE ty_service
|
||||
iv_express TYPE abap_bool
|
||||
iv_contract TYPE abap_bool
|
||||
RETURNING VALUE(rv_price) TYPE ty_price.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}shred_pricer IMPLEMENTATION.
|
||||
|
||||
METHOD calculate_price.
|
||||
|
||||
DATA: lv_base TYPE ty_price,
|
||||
lv_total TYPE ty_price,
|
||||
lv_min TYPE ty_price,
|
||||
lv_factor TYPE ty_price.
|
||||
|
||||
rv_price = 0.
|
||||
|
||||
* no boxes, no price
|
||||
IF iv_boxes <= 0.
|
||||
RETURN.
|
||||
ENDIF.
|
||||
|
||||
* price of one box
|
||||
IF iv_size = 60.
|
||||
lv_base = '8.00'.
|
||||
ELSE.
|
||||
IF iv_size = 120.
|
||||
lv_base = '12.00'.
|
||||
ELSE.
|
||||
IF iv_size = 240.
|
||||
lv_base = '18.00'.
|
||||
ELSE.
|
||||
lv_base = '12.00'.
|
||||
ENDIF.
|
||||
ENDIF.
|
||||
ENDIF.
|
||||
|
||||
* on site shredding costs more
|
||||
IF iv_service = 'O'.
|
||||
lv_base = lv_base + '3.50'.
|
||||
ENDIF.
|
||||
|
||||
* add one box after the other
|
||||
lv_total = 0.
|
||||
DO iv_boxes TIMES.
|
||||
lv_total = lv_total + lv_base.
|
||||
ENDDO.
|
||||
|
||||
* discount for many boxes
|
||||
IF iv_boxes >= 25.
|
||||
lv_factor = '0.90'.
|
||||
ELSE.
|
||||
IF iv_boxes >= 10.
|
||||
lv_factor = '0.95'.
|
||||
ELSE.
|
||||
lv_factor = '1.00'.
|
||||
ENDIF.
|
||||
ENDIF.
|
||||
lv_total = lv_total * lv_factor.
|
||||
|
||||
* contract customers get a discount
|
||||
IF iv_contract = 'X'.
|
||||
lv_total = lv_total * '0.90'.
|
||||
ENDIF.
|
||||
|
||||
* express service costs more
|
||||
IF iv_express = 'X'.
|
||||
lv_total = lv_total * '1.20'.
|
||||
ENDIF.
|
||||
|
||||
* minimum charge
|
||||
IF iv_service = 'O'.
|
||||
lv_min = '60.00'.
|
||||
ELSE.
|
||||
lv_min = '35.00'.
|
||||
ENDIF.
|
||||
IF lv_total < lv_min.
|
||||
lv_total = lv_min.
|
||||
ENDIF.
|
||||
|
||||
rv_price = lv_total.
|
||||
|
||||
ENDMETHOD.
|
||||
|
||||
ENDCLASS.
|
||||
52
tasks_gen/train/G1070/spec.md
Normal file
52
tasks_gen/train/G1070/spec.md
Normal file
@@ -0,0 +1,52 @@
|
||||
# 1. Goal
|
||||
A document shredding company prices a collection of paper boxes. The order desk
|
||||
calls the class {{P}}SHRED_PRICER for each order. The class was written many years
|
||||
ago and is hard to maintain. Refactor the class. The price of an order must stay
|
||||
the same.
|
||||
|
||||
# 2. Open questions
|
||||
None.
|
||||
|
||||
# 3. Context
|
||||
- The class {{P}}SHRED_PRICER exists in package $TMP. It is active.
|
||||
- The class is public and final and has a public constructor without parameters.
|
||||
- The order desk calls the public method CALCULATE_PRICE.
|
||||
- The class holds the complete pricing logic of the company. Read the class.
|
||||
- No other document describes the pricing rules.
|
||||
|
||||
# 4. Contract
|
||||
- Keep the class {{P}}SHRED_PRICER in package $TMP. Keep the name.
|
||||
- Keep the class public and final with a public constructor without parameters.
|
||||
- Keep the public types TY_SIZE, TY_SERVICE, and TY_PRICE.
|
||||
- Keep the public constants C_SIZE (SMALL, LARGE) and C_SERVICE (PLANT, ONSITE).
|
||||
- Keep the public method CALCULATE_PRICE with these parameters:
|
||||
IV_BOXES TYPE i, IV_SIZE TYPE ty_size, IV_SERVICE TYPE ty_service,
|
||||
IV_EXPRESS TYPE abap_bool, IV_CONTRACT TYPE abap_bool, and the returning
|
||||
parameter RV_PRICE TYPE ty_price.
|
||||
- Do not add other public methods.
|
||||
|
||||
# 5. Business rules
|
||||
- The behavior stays the same. For every order, CALCULATE_PRICE must return the
|
||||
same price as the current class.
|
||||
- The pricing rules are in the current class. Read the class and keep every rule,
|
||||
including the price of a box, the surcharge for on-site shredding, the discount
|
||||
for many boxes, the discount for contract customers, the surcharge for express
|
||||
service, the fallback for an unknown box size, and the minimum charge.
|
||||
- The sequence of the rules must not change.
|
||||
- Quality goals:
|
||||
- Short methods. One method does one thing.
|
||||
- No magic numbers. Use named constants.
|
||||
- The class must be easy to read and easy to change.
|
||||
- The public interface must stay the same.
|
||||
|
||||
# 6. Constraints
|
||||
- Release target: ABAP Platform 2025 (SAP_BASIS 816).
|
||||
- Coding standards: Clean ABAP. Method length below 40 statements. No global
|
||||
variables. No comment that restates the code.
|
||||
- Out of scope: do not change the public interface of {{P}}SHRED_PRICER. Do not
|
||||
change the package.
|
||||
|
||||
# 7. Acceptance
|
||||
- The class {{P}}SHRED_PRICER is active and has no syntax error.
|
||||
- The hidden tests pass.
|
||||
- Write your own ABAP Unit tests for the class.
|
||||
48
tasks_gen/train/G1070/task.json
Normal file
48
tasks_gen/train/G1070/task.json
Normal file
@@ -0,0 +1,48 @@
|
||||
{
|
||||
"id": "G1070",
|
||||
"category": "E",
|
||||
"object_type": "CLAS",
|
||||
"difficulty": 2,
|
||||
"release_target": "v816",
|
||||
"expected_outcome": "implement",
|
||||
"budget": {
|
||||
"max_tool_calls": 60,
|
||||
"max_activations": 15
|
||||
},
|
||||
"seed": [
|
||||
{
|
||||
"type": "CLAS",
|
||||
"name": "{{P}}SHRED_PRICER",
|
||||
"file": "seed/shred_pricer.clas.abap",
|
||||
"description": "Legacy class that prices a document shredding order"
|
||||
}
|
||||
],
|
||||
"contract": [
|
||||
{
|
||||
"type": "CLAS",
|
||||
"name": "{{P}}SHRED_PRICER"
|
||||
}
|
||||
],
|
||||
"out_of_scope": [],
|
||||
"hidden_tests": [
|
||||
{
|
||||
"type": "CLAS",
|
||||
"name": "{{P}}SHRED_HIDDEN",
|
||||
"file": "hidden/shred_hidden.clas.abap",
|
||||
"description": "Hidden tests for the shredding price"
|
||||
}
|
||||
],
|
||||
"reference": [
|
||||
{
|
||||
"type": "CLAS",
|
||||
"name": "{{P}}SHRED_PRICER",
|
||||
"file": "reference/shred_pricer.clas.abap",
|
||||
"description": "Refactored shredding price calculation",
|
||||
"testclasses_file": "reference/shred_pricer.testclasses.abap"
|
||||
}
|
||||
],
|
||||
"craft_checks": [
|
||||
"method_length",
|
||||
"nesting_depth"
|
||||
]
|
||||
}
|
||||
Reference in New Issue
Block a user