98 lines
2.6 KiB
ABAP
98 lines
2.6 KiB
ABAP
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.
|