Stage 2 summary at 50 accepted trajectories

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

View File

@@ -0,0 +1,54 @@
CLASS {{p}}glaz_calc DEFINITION PUBLIC FINAL CREATE PUBLIC.
PUBLIC SECTION.
METHODS calculate
IMPORTING
iv_width_mm TYPE i
iv_height_mm TYPE i
iv_glass TYPE string
iv_urgent TYPE abap_bool
RETURNING
VALUE(rv_fee) TYPE decfloat34
RAISING
cx_abap_invalid_value.
PRIVATE SECTION.
CONSTANTS c_area_divisor TYPE decfloat34 VALUE '1000000'.
CONSTANTS c_min_fee TYPE decfloat34 VALUE '35.00'.
CONSTANTS c_max_fee TYPE decfloat34 VALUE '480.00'.
CONSTANTS c_urgent_factor TYPE decfloat34 VALUE '1.5'.
ENDCLASS.
CLASS {{p}}glaz_calc IMPLEMENTATION.
METHOD calculate.
IF iv_width_mm <= 0 OR iv_height_mm <= 0.
RAISE EXCEPTION TYPE cx_abap_invalid_value.
ENDIF.
DATA lv_rate TYPE decfloat34.
CASE iv_glass.
WHEN 'SIMPLE'.
lv_rate = 45.
WHEN 'SAFETY'.
lv_rate = 90.
WHEN 'INSULATED'.
lv_rate = 140.
WHEN OTHERS.
RAISE EXCEPTION TYPE cx_abap_invalid_value.
ENDCASE.
DATA(lv_area) = CONV decfloat34( iv_width_mm ) * iv_height_mm / c_area_divisor.
DATA(lv_fee) = lv_area * lv_rate.
IF lv_fee < c_min_fee.
lv_fee = c_min_fee.
ENDIF.
IF iv_urgent = abap_true.
lv_fee = lv_fee * c_urgent_factor.
ENDIF.
IF lv_fee > c_max_fee.
lv_fee = c_max_fee.
ENDIF.
rv_fee = round( val = lv_fee dec = 2 mode = cl_abap_math=>round_half_up ).
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,73 @@
CLASS ltc_glaz_calc DEFINITION FOR TESTING
DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS fee_for
IMPORTING
iv_width TYPE i
iv_height TYPE i
iv_glass TYPE string
iv_urgent TYPE abap_bool
RETURNING
VALUE(rv_fee) TYPE decfloat34.
METHODS simple_fee FOR TESTING.
METHODS minimum_fee FOR TESTING.
METHODS urgent_fee FOR TESTING.
METHODS invalid_size FOR TESTING.
METHODS invalid_glass FOR TESTING.
ENDCLASS.
CLASS ltc_glaz_calc IMPLEMENTATION.
METHOD fee_for.
DATA(lo_calc) = NEW {{p}}glaz_calc( ).
TRY.
rv_fee = lo_calc->calculate(
iv_width_mm = iv_width
iv_height_mm = iv_height
iv_glass = iv_glass
iv_urgent = iv_urgent ).
CATCH cx_abap_invalid_value.
cl_abap_unit_assert=>fail( msg = `unexpected invalid value` ).
ENDTRY.
ENDMETHOD.
METHOD simple_fee.
cl_abap_unit_assert=>assert_equals(
exp = CONV decfloat34( '45.00' )
act = fee_for( iv_width = 1000 iv_height = 1000 iv_glass = `SIMPLE` iv_urgent = abap_false ) ).
ENDMETHOD.
METHOD minimum_fee.
cl_abap_unit_assert=>assert_equals(
exp = CONV decfloat34( '35.00' )
act = fee_for( iv_width = 500 iv_height = 400 iv_glass = `SIMPLE` iv_urgent = abap_false ) ).
ENDMETHOD.
METHOD urgent_fee.
cl_abap_unit_assert=>assert_equals(
exp = CONV decfloat34( '67.50' )
act = fee_for( iv_width = 1000 iv_height = 1000 iv_glass = `SIMPLE` iv_urgent = abap_true ) ).
ENDMETHOD.
METHOD invalid_size.
DATA(lo_calc) = NEW {{p}}glaz_calc( ).
TRY.
lo_calc->calculate( iv_width_mm = 0 iv_height_mm = 100
iv_glass = `SIMPLE` iv_urgent = abap_false ).
cl_abap_unit_assert=>fail( msg = `invalid size was accepted` ).
CATCH cx_abap_invalid_value.
cl_abap_unit_assert=>assert_true( abap_true ).
ENDTRY.
ENDMETHOD.
METHOD invalid_glass.
DATA(lo_calc) = NEW {{p}}glaz_calc( ).
TRY.
lo_calc->calculate( iv_width_mm = 100 iv_height_mm = 100
iv_glass = `TINTED` iv_urgent = abap_false ).
cl_abap_unit_assert=>fail( msg = `invalid glass type was accepted` ).
CATCH cx_abap_invalid_value.
cl_abap_unit_assert=>assert_true( abap_true ).
ENDTRY.
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,25 @@
FUNCTION {{p}}glaz_fee
IMPORTING
iv_width_mm TYPE i
iv_height_mm TYPE i
iv_glass TYPE string
iv_urgent TYPE abap_bool
EXPORTING
ev_fee TYPE decfloat34
EXCEPTIONS
invalid_input.
DATA lo_calc TYPE REF TO {{p}}glaz_calc.
lo_calc = NEW #( ).
TRY.
ev_fee = lo_calc->calculate(
iv_width_mm = iv_width_mm
iv_height_mm = iv_height_mm
iv_glass = iv_glass
iv_urgent = iv_urgent ).
CATCH cx_abap_invalid_value.
RAISE invalid_input.
ENDTRY.
ENDFUNCTION.

View File

@@ -0,0 +1,68 @@
CLASS {{p}}t31_test DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS fee_for
IMPORTING
iv_width TYPE i
iv_height TYPE i
iv_glass TYPE string
iv_urgent TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rv_fee) TYPE decfloat34.
METHODS simple_fee FOR TESTING.
METHODS minimum_fee FOR TESTING.
METHODS urgent_fee FOR TESTING.
METHODS invalid_input FOR TESTING.
ENDCLASS.
CLASS {{p}}t31_test IMPLEMENTATION.
METHOD fee_for.
CALL FUNCTION '{{P}}GLAZ_FEE'
EXPORTING
iv_width_mm = iv_width
iv_height_mm = iv_height
iv_glass = iv_glass
iv_urgent = iv_urgent
IMPORTING
ev_fee = rv_fee
EXCEPTIONS
invalid_input = 1
OTHERS = 2.
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
ENDMETHOD.
METHOD simple_fee.
cl_abap_unit_assert=>assert_equals(
exp = CONV decfloat34( '45.00' )
act = fee_for( iv_width = 1000 iv_height = 1000 iv_glass = `SIMPLE` ) ).
ENDMETHOD.
METHOD minimum_fee.
cl_abap_unit_assert=>assert_equals(
exp = CONV decfloat34( '35.00' )
act = fee_for( iv_width = 400 iv_height = 400 iv_glass = `SIMPLE` ) ).
ENDMETHOD.
METHOD urgent_fee.
cl_abap_unit_assert=>assert_equals(
exp = CONV decfloat34( '67.50' )
act = fee_for( iv_width = 1000 iv_height = 1000 iv_glass = `SIMPLE` iv_urgent = abap_true ) ).
ENDMETHOD.
METHOD invalid_input.
DATA lv_fee TYPE decfloat34.
CALL FUNCTION '{{P}}GLAZ_FEE'
EXPORTING
iv_width_mm = 0
iv_height_mm = 1000
iv_glass = `SIMPLE`
iv_urgent = abap_false
IMPORTING
ev_fee = lv_fee
EXCEPTIONS
invalid_input = 1
OTHERS = 2.
cl_abap_unit_assert=>assert_equals( exp = 1 act = sy-subrc ).
ENDMETHOD.
ENDCLASS.