268 lines
13 KiB
ABAP
268 lines
13 KiB
ABAP
CLASS {{p}}t120_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}photo_pricer.
|
|
|
|
METHODS setup.
|
|
METHODS studio_quote FOR TESTING.
|
|
METHODS outdoor_quote FOR TESTING.
|
|
METHODS studio_ignores_distance FOR TESTING.
|
|
METHODS rounds_up_minutes FOR TESTING.
|
|
METHODS free_persons FOR TESTING.
|
|
METHODS crew_fee_large_group FOR TESTING.
|
|
METHODS photo_rate_at_50 FOR TESTING.
|
|
METHODS rejects_unknown_session FOR TESTING.
|
|
METHODS rejects_bad_minutes FOR TESTING.
|
|
METHODS rejects_bad_persons FOR TESTING.
|
|
METHODS rejects_bad_photos FOR TESTING.
|
|
METHODS rejects_outdoor_no_dist FOR TESTING.
|
|
|
|
METHODS build_request
|
|
IMPORTING iv_session TYPE {{p}}photo_pricer=>ty_session
|
|
iv_minutes TYPE i
|
|
iv_persons TYPE i
|
|
iv_photos TYPE i
|
|
iv_distance_km TYPE i
|
|
RETURNING VALUE(rs_request) TYPE {{p}}photo_pricer=>ty_request.
|
|
|
|
METHODS assert_amount
|
|
IMPORTING iv_expected TYPE i
|
|
iv_act TYPE {{p}}photo_pricer=>ty_amount
|
|
iv_msg TYPE string.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}t120_hidden IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}photo_pricer( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD build_request.
|
|
rs_request = VALUE #( session = iv_session
|
|
minutes = iv_minutes
|
|
persons = iv_persons
|
|
photos = iv_photos
|
|
distance_km = iv_distance_km ).
|
|
ENDMETHOD.
|
|
|
|
METHOD assert_amount.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}photo_pricer=>ty_amount( iv_expected )
|
|
act = iv_act
|
|
msg = iv_msg ).
|
|
ENDMETHOD.
|
|
|
|
METHOD studio_quote.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 90
|
|
iv_persons = 3
|
|
iv_photos = 10
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-ok
|
|
act = ls_quote-reason ).
|
|
assert_amount( iv_expected = 120 iv_act = ls_quote-time_fee iv_msg = `time fee` ).
|
|
assert_amount( iv_expected = 10 iv_act = ls_quote-person_fee iv_msg = `person fee` ).
|
|
assert_amount( iv_expected = 50 iv_act = ls_quote-photo_fee iv_msg = `photo fee` ).
|
|
assert_amount( iv_expected = 0 iv_act = ls_quote-travel_fee iv_msg = `travel fee` ).
|
|
assert_amount( iv_expected = 0 iv_act = ls_quote-crew_fee iv_msg = `crew fee` ).
|
|
assert_amount( iv_expected = 180 iv_act = ls_quote-total iv_msg = `total` ).
|
|
ENDMETHOD.
|
|
|
|
METHOD outdoor_quote.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-outdoor
|
|
iv_minutes = 45
|
|
iv_persons = 10
|
|
iv_photos = 50
|
|
iv_distance_km = 20 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-ok
|
|
act = ls_quote-reason ).
|
|
assert_amount( iv_expected = 60 iv_act = ls_quote-time_fee iv_msg = `time fee` ).
|
|
assert_amount( iv_expected = 80 iv_act = ls_quote-person_fee iv_msg = `person fee` ).
|
|
assert_amount( iv_expected = 200 iv_act = ls_quote-photo_fee iv_msg = `photo fee` ).
|
|
assert_amount( iv_expected = 55 iv_act = ls_quote-travel_fee iv_msg = `travel fee` ).
|
|
assert_amount( iv_expected = 40 iv_act = ls_quote-crew_fee iv_msg = `crew fee` ).
|
|
assert_amount( iv_expected = 435 iv_act = ls_quote-total iv_msg = `total` ).
|
|
ENDMETHOD.
|
|
|
|
METHOD studio_ignores_distance.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 30
|
|
iv_persons = 1
|
|
iv_photos = 0
|
|
iv_distance_km = 25 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
assert_amount( iv_expected = 0 iv_act = ls_quote-travel_fee iv_msg = `travel fee` ).
|
|
assert_amount( iv_expected = 40 iv_act = ls_quote-total iv_msg = `total` ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rounds_up_minutes.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 31
|
|
iv_persons = 1
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
assert_amount( iv_expected = 60 iv_act = ls_quote-time_fee iv_msg = `31 minutes` ).
|
|
|
|
ls_request = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 480
|
|
iv_persons = 1
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
ls_quote = mo_cut->calculate( ls_request ).
|
|
assert_amount( iv_expected = 640 iv_act = ls_quote-time_fee iv_msg = `480 minutes` ).
|
|
ENDMETHOD.
|
|
|
|
METHOD free_persons.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 30
|
|
iv_persons = 2
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
assert_amount( iv_expected = 0 iv_act = ls_quote-person_fee iv_msg = `two persons` ).
|
|
|
|
ls_request = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 30
|
|
iv_persons = 5
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
ls_quote = mo_cut->calculate( ls_request ).
|
|
assert_amount( iv_expected = 30 iv_act = ls_quote-person_fee iv_msg = `five persons` ).
|
|
ENDMETHOD.
|
|
|
|
METHOD crew_fee_large_group.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 30
|
|
iv_persons = 8
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
assert_amount( iv_expected = 0 iv_act = ls_quote-crew_fee iv_msg = `eight persons` ).
|
|
|
|
ls_request = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 30
|
|
iv_persons = 9
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
ls_quote = mo_cut->calculate( ls_request ).
|
|
assert_amount( iv_expected = 70 iv_act = ls_quote-person_fee iv_msg = `nine persons` ).
|
|
assert_amount( iv_expected = 40 iv_act = ls_quote-crew_fee iv_msg = `crew fee` ).
|
|
assert_amount( iv_expected = 150 iv_act = ls_quote-total iv_msg = `total` ).
|
|
ENDMETHOD.
|
|
|
|
METHOD photo_rate_at_50.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 30
|
|
iv_persons = 1
|
|
iv_photos = 49
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
assert_amount( iv_expected = 245 iv_act = ls_quote-photo_fee iv_msg = `49 photos` ).
|
|
|
|
ls_request = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 30
|
|
iv_persons = 1
|
|
iv_photos = 50
|
|
iv_distance_km = 0 ).
|
|
ls_quote = mo_cut->calculate( ls_request ).
|
|
assert_amount( iv_expected = 200 iv_act = ls_quote-photo_fee iv_msg = `50 photos` ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_unknown_session.
|
|
DATA(ls_request) = build_request( iv_session = 'WEDDING'
|
|
iv_minutes = 5
|
|
iv_persons = 2
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-session
|
|
act = ls_quote-reason ).
|
|
assert_amount( iv_expected = 0 iv_act = ls_quote-total iv_msg = `total` ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_bad_minutes.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 29
|
|
iv_persons = 2
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-minutes
|
|
act = ls_quote-reason ).
|
|
assert_amount( iv_expected = 0 iv_act = ls_quote-total iv_msg = `total` ).
|
|
|
|
ls_request = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 481
|
|
iv_persons = 2
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
ls_quote = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-minutes
|
|
act = ls_quote-reason ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_bad_persons.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 60
|
|
iv_persons = 0
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-persons
|
|
act = ls_quote-reason ).
|
|
|
|
ls_request = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 60
|
|
iv_persons = 21
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
ls_quote = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-persons
|
|
act = ls_quote-reason ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_bad_photos.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 60
|
|
iv_persons = 2
|
|
iv_photos = 201
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-photos
|
|
act = ls_quote-reason ).
|
|
|
|
ls_request = build_request( iv_session = {{p}}photo_pricer=>c_session-studio
|
|
iv_minutes = 60
|
|
iv_persons = 2
|
|
iv_photos = -1
|
|
iv_distance_km = 0 ).
|
|
ls_quote = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-photos
|
|
act = ls_quote-reason ).
|
|
ENDMETHOD.
|
|
|
|
METHOD rejects_outdoor_no_dist.
|
|
DATA(ls_request) = build_request( iv_session = {{p}}photo_pricer=>c_session-outdoor
|
|
iv_minutes = 60
|
|
iv_persons = 2
|
|
iv_photos = 0
|
|
iv_distance_km = 0 ).
|
|
DATA(ls_quote) = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-distance
|
|
act = ls_quote-reason ).
|
|
|
|
ls_request = build_request( iv_session = {{p}}photo_pricer=>c_session-outdoor
|
|
iv_minutes = 60
|
|
iv_persons = 2
|
|
iv_photos = 0
|
|
iv_distance_km = 1 ).
|
|
ls_quote = mo_cut->calculate( ls_request ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}photo_pricer=>c_reason-ok
|
|
act = ls_quote-reason ).
|
|
assert_amount( iv_expected = 17 iv_act = ls_quote-travel_fee iv_msg = `travel fee` ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|