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,27 @@
CLASS {{p}}cx_heli_invalid DEFINITION
PUBLIC
INHERITING FROM cx_static_check
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
CONSTANTS:
BEGIN OF co_reason,
passengers TYPE string VALUE 'PASSENGERS',
minutes TYPE string VALUE 'MINUTES',
END OF co_reason.
DATA mv_reason TYPE string READ-ONLY.
METHODS constructor
IMPORTING
iv_reason TYPE string.
ENDCLASS.
CLASS {{p}}cx_heli_invalid IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
mv_reason = iv_reason.
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,43 @@
FUNCTION {{p}}heli_fee
IMPORTING
iv_tour_type TYPE string
iv_passengers TYPE i
iv_minutes TYPE i
iv_member TYPE abap_bool
EXPORTING
ev_skip TYPE abap_bool
CHANGING
cv_fee TYPE decfloat34
EXCEPTIONS
invalid_passengers
invalid_minutes.
DATA lo_pricer TYPE REF TO {{p}}heli_pricer.
DATA lv_fee TYPE decfloat34.
lo_pricer = NEW #( ).
TRY.
lo_pricer->calculate(
EXPORTING
iv_tour_type = iv_tour_type
iv_passengers = iv_passengers
iv_minutes = iv_minutes
iv_member = iv_member
IMPORTING
ev_skip = ev_skip
ev_fee = lv_fee ).
CATCH {{p}}cx_heli_invalid INTO DATA(lo_error).
CASE lo_error->mv_reason.
WHEN {{p}}cx_heli_invalid=>co_reason-passengers.
RAISE invalid_passengers.
WHEN OTHERS.
RAISE invalid_minutes.
ENDCASE.
ENDTRY.
IF ev_skip = abap_false.
cv_fee = lv_fee.
ENDIF.
ENDFUNCTION.

View File

@@ -0,0 +1,113 @@
CLASS {{p}}heli_pricer DEFINITION
PUBLIC
FINAL
CREATE PUBLIC.
PUBLIC SECTION.
METHODS calculate
IMPORTING
iv_tour_type TYPE string
iv_passengers TYPE i
iv_minutes TYPE i
iv_member TYPE abap_bool
EXPORTING
ev_skip TYPE abap_bool
ev_fee TYPE decfloat34
RAISING
{{p}}cx_heli_invalid.
PRIVATE SECTION.
CONSTANTS:
c_rate_scenic TYPE decfloat34 VALUE '8',
c_rate_training TYPE decfloat34 VALUE '12',
c_pax_surcharge TYPE decfloat34 VALUE '15',
c_member_rate TYPE decfloat34 VALUE '0.875',
c_min_fee TYPE decfloat34 VALUE '50',
c_max_fee TYPE decfloat34 VALUE '1500',
c_max_pax TYPE i VALUE 6,
c_min_minutes TYPE i VALUE 5.
METHODS check_input
IMPORTING
iv_passengers TYPE i
iv_minutes TYPE i
RAISING
{{p}}cx_heli_invalid.
METHODS scenic_fee
IMPORTING
iv_passengers TYPE i
iv_minutes TYPE i
iv_member TYPE abap_bool
RETURNING
VALUE(rv_fee) TYPE decfloat34.
METHODS round_fee
IMPORTING
iv_fee TYPE decfloat34
RETURNING
VALUE(rv_fee) TYPE decfloat34.
METHODS apply_limits
IMPORTING
iv_fee TYPE decfloat34
RETURNING
VALUE(rv_fee) TYPE decfloat34.
ENDCLASS.
CLASS {{p}}heli_pricer IMPLEMENTATION.
METHOD calculate.
check_input( iv_passengers = iv_passengers iv_minutes = iv_minutes ).
ev_skip = abap_false.
CASE iv_tour_type.
WHEN 'SC'.
ev_fee = apply_limits( round_fee( scenic_fee( iv_passengers = iv_passengers
iv_minutes = iv_minutes
iv_member = iv_member ) ) ).
WHEN 'TR'.
ev_fee = apply_limits( round_fee( CONV decfloat34( iv_minutes ) * c_rate_training ) ).
WHEN 'CH'.
ev_skip = abap_true.
WHEN OTHERS.
ev_fee = 0.
ENDCASE.
ENDMETHOD.
METHOD check_input.
IF iv_passengers < 1 OR iv_passengers > c_max_pax.
RAISE EXCEPTION TYPE {{p}}cx_heli_invalid
EXPORTING
iv_reason = {{p}}cx_heli_invalid=>co_reason-passengers.
ENDIF.
IF iv_minutes < c_min_minutes.
RAISE EXCEPTION TYPE {{p}}cx_heli_invalid
EXPORTING
iv_reason = {{p}}cx_heli_invalid=>co_reason-minutes.
ENDIF.
ENDMETHOD.
METHOD scenic_fee.
rv_fee = CONV decfloat34( iv_minutes ) * c_rate_scenic
+ CONV decfloat34( iv_passengers ) * c_pax_surcharge.
IF iv_member = abap_true.
rv_fee = rv_fee * c_member_rate.
ENDIF.
ENDMETHOD.
METHOD round_fee.
rv_fee = round( val = iv_fee dec = 2 mode = cl_abap_math=>round_half_up ).
ENDMETHOD.
METHOD apply_limits.
rv_fee = iv_fee.
IF rv_fee < c_min_fee.
rv_fee = c_min_fee.
ELSEIF rv_fee > c_max_fee.
rv_fee = c_max_fee.
ENDIF.
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,97 @@
CLASS ltc_pricer DEFINITION FOR TESTING
DURATION SHORT
RISK LEVEL HARMLESS.
PRIVATE SECTION.
DATA mo_cut TYPE REF TO {{p}}heli_pricer.
METHODS setup.
METHODS scenic_fee FOR TESTING.
METHODS member_discount FOR TESTING.
METHODS training_fee FOR TESTING.
METHODS charter_skips FOR TESTING.
METHODS rejects_zero_passengers FOR TESTING.
ENDCLASS.
CLASS ltc_pricer IMPLEMENTATION.
METHOD setup.
mo_cut = NEW #( ).
ENDMETHOD.
METHOD scenic_fee.
DATA lv_fee TYPE decfloat34.
DATA lv_skip TYPE abap_bool.
mo_cut->calculate(
EXPORTING
iv_tour_type = `SC`
iv_passengers = 2
iv_minutes = 10
iv_member = abap_false
IMPORTING
ev_skip = lv_skip
ev_fee = lv_fee ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 110 ) act = lv_fee ).
cl_abap_unit_assert=>assert_false( lv_skip ).
ENDMETHOD.
METHOD member_discount.
DATA lv_fee TYPE decfloat34.
mo_cut->calculate(
EXPORTING
iv_tour_type = `SC`
iv_passengers = 3
iv_minutes = 7
iv_member = abap_true
IMPORTING
ev_fee = lv_fee ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '88.38' ) act = lv_fee ).
ENDMETHOD.
METHOD training_fee.
DATA lv_fee TYPE decfloat34.
mo_cut->calculate(
EXPORTING
iv_tour_type = `TR`
iv_passengers = 2
iv_minutes = 10
iv_member = abap_false
IMPORTING
ev_fee = lv_fee ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 120 ) act = lv_fee ).
ENDMETHOD.
METHOD charter_skips.
DATA lv_fee TYPE decfloat34.
DATA lv_skip TYPE abap_bool.
mo_cut->calculate(
EXPORTING
iv_tour_type = `CH`
iv_passengers = 2
iv_minutes = 10
iv_member = abap_false
IMPORTING
ev_skip = lv_skip
ev_fee = lv_fee ).
cl_abap_unit_assert=>assert_true( lv_skip ).
ENDMETHOD.
METHOD rejects_zero_passengers.
TRY.
mo_cut->calculate(
EXPORTING
iv_tour_type = `SC`
iv_passengers = 0
iv_minutes = 10
iv_member = abap_false
IMPORTING
ev_fee = DATA(lv_fee) ).
cl_abap_unit_assert=>fail( ).
CATCH {{p}}cx_heli_invalid INTO DATA(lo_error).
cl_abap_unit_assert=>assert_equals(
exp = {{p}}cx_heli_invalid=>co_reason-passengers
act = lo_error->mv_reason ).
ENDTRY.
ENDMETHOD.
ENDCLASS.

View File

@@ -0,0 +1,85 @@
CLASS {{p}}t14_test DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
METHODS call_fee
IMPORTING
iv_tour_type TYPE string
iv_passengers TYPE i
iv_minutes TYPE i
iv_member TYPE abap_bool DEFAULT abap_false
iv_fee TYPE decfloat34 DEFAULT 7
EXPORTING
ev_fee TYPE decfloat34
ev_skip TYPE abap_bool
ev_subrc TYPE sysubrc.
METHODS scenic_price FOR TESTING.
METHODS member_price FOR TESTING.
METHODS training_price FOR TESTING.
METHODS charter_price FOR TESTING.
METHODS invalid_input FOR TESTING.
ENDCLASS.
CLASS {{p}}t14_test IMPLEMENTATION.
METHOD call_fee.
ev_fee = iv_fee.
CALL FUNCTION '{{P}}HELI_FEE'
EXPORTING
iv_tour_type = iv_tour_type
iv_passengers = iv_passengers
iv_minutes = iv_minutes
iv_member = iv_member
IMPORTING
ev_skip = ev_skip
CHANGING
cv_fee = ev_fee
EXCEPTIONS
invalid_passengers = 1
invalid_minutes = 2
OTHERS = 3.
ev_subrc = sy-subrc.
ENDMETHOD.
METHOD scenic_price.
call_fee( EXPORTING iv_tour_type = `SC` iv_passengers = 2 iv_minutes = 10
IMPORTING ev_fee = DATA(lv_fee) ev_skip = DATA(lv_skip) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 110 ) act = lv_fee ).
cl_abap_unit_assert=>assert_false( lv_skip ).
ENDMETHOD.
METHOD member_price.
call_fee( EXPORTING iv_tour_type = `SC` iv_passengers = 3 iv_minutes = 7 iv_member = abap_true
IMPORTING ev_fee = DATA(lv_fee) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '88.38' ) act = lv_fee ).
ENDMETHOD.
METHOD training_price.
call_fee( EXPORTING iv_tour_type = `TR` iv_passengers = 2 iv_minutes = 10
IMPORTING ev_fee = DATA(lv_fee) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 120 ) act = lv_fee ).
ENDMETHOD.
METHOD charter_price.
call_fee( EXPORTING iv_tour_type = `CH` iv_passengers = 2 iv_minutes = 10 iv_fee = 7
IMPORTING ev_fee = DATA(lv_fee) ev_skip = DATA(lv_skip) ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
cl_abap_unit_assert=>assert_true( lv_skip ).
cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 7 ) act = lv_fee ).
ENDMETHOD.
METHOD invalid_input.
call_fee( EXPORTING iv_tour_type = `SC` iv_passengers = 0 iv_minutes = 10
IMPORTING ev_subrc = DATA(lv_rc) ).
cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
call_fee( EXPORTING iv_tour_type = `TR` iv_passengers = 2 iv_minutes = 4
IMPORTING ev_subrc = DATA(lv_rc_minutes) ).
cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rc_minutes ).
ENDMETHOD.
ENDCLASS.