Stage 2 summary at 50 accepted trajectories
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
@@ -0,0 +1,90 @@
|
||||
CLASS ltc_boat_hire_pricer DEFINITION FINAL FOR TESTING
|
||||
DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
CONSTANTS:
|
||||
c_468 TYPE {{p}}boat_hire_pricer=>ty_price VALUE '468.00',
|
||||
c_1344 TYPE {{p}}boat_hire_pricer=>ty_price VALUE '1344.00',
|
||||
c_208 TYPE {{p}}boat_hire_pricer=>ty_price VALUE '208.00',
|
||||
c_zero TYPE {{p}}boat_hire_pricer=>ty_price VALUE 0.
|
||||
|
||||
DATA mo_cut TYPE REF TO {{p}}boat_hire_pricer.
|
||||
|
||||
METHODS setup.
|
||||
METHODS narrow_ok FOR TESTING.
|
||||
METHODS wide_discount FOR TESTING.
|
||||
METHODS low_season FOR TESTING.
|
||||
METHODS unknown_category FOR TESTING.
|
||||
METHODS bad_days FOR TESTING.
|
||||
METHODS bad_crew FOR TESTING.
|
||||
METHODS bad_month FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS ltc_boat_hire_pricer IMPLEMENTATION.
|
||||
METHOD setup.
|
||||
mo_cut = NEW {{p}}boat_hire_pricer( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD narrow_ok.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'NARROW'
|
||||
iv_days = 3
|
||||
iv_crew = 4
|
||||
iv_month = 7 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-ok
|
||||
act = ls_result-reason ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = c_468 act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD wide_discount.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'WIDE'
|
||||
iv_days = 7
|
||||
iv_crew = 8
|
||||
iv_month = 5 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = c_1344 act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD low_season.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'BARGE'
|
||||
iv_days = 1
|
||||
iv_crew = 1
|
||||
iv_month = 12 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = c_208 act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD unknown_category.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'CANOE'
|
||||
iv_days = 3
|
||||
iv_crew = 4
|
||||
iv_month = 7 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-category
|
||||
act = ls_result-reason ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = c_zero act = ls_result-price ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bad_days.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'NARROW'
|
||||
iv_days = 0
|
||||
iv_crew = 4
|
||||
iv_month = 7 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-days
|
||||
act = ls_result-reason ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bad_crew.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'NARROW'
|
||||
iv_days = 3
|
||||
iv_crew = 13
|
||||
iv_month = 7 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-crew
|
||||
act = ls_result-reason ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD bad_month.
|
||||
DATA(ls_result) = mo_cut->price( iv_category = 'NARROW'
|
||||
iv_days = 3
|
||||
iv_crew = 4
|
||||
iv_month = 13 ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = {{p}}boat_hire_pricer=>c_reason-month
|
||||
act = ls_result-reason ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user