39769afce8
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
62 lines
2.0 KiB
ABAP
62 lines
2.0 KiB
ABAP
CLASS ltc_pool_fee DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}pool_fee.
|
|
METHODS setup.
|
|
METHODS assert_fee
|
|
IMPORTING iv_expected TYPE {{p}}pool_fee=>ty_amount
|
|
iv_ticket TYPE {{p}}pool_fee=>ty_ticket
|
|
iv_minutes TYPE i
|
|
iv_sauna TYPE abap_bool.
|
|
METHODS adult_basic FOR TESTING.
|
|
METHODS child_basic FOR TESTING.
|
|
METHODS family_basic FOR TESTING.
|
|
METHODS unknown_ticket FOR TESTING.
|
|
METHODS duration_surcharge FOR TESTING.
|
|
METHODS sauna_adult FOR TESTING.
|
|
METHODS sauna_child_ignored FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_pool_fee IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}pool_fee( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD assert_fee.
|
|
DATA(lv_actual) = mo_cut->calculate_fee(
|
|
iv_ticket = iv_ticket
|
|
iv_minutes = iv_minutes
|
|
iv_sauna = iv_sauna ).
|
|
cl_abap_unit_assert=>assert_equals( exp = iv_expected act = lv_actual ).
|
|
ENDMETHOD.
|
|
|
|
METHOD adult_basic.
|
|
assert_fee( iv_expected = '6.50' iv_ticket = 'A' iv_minutes = 45 iv_sauna = abap_false ).
|
|
ENDMETHOD.
|
|
|
|
METHOD child_basic.
|
|
assert_fee( iv_expected = '3.50' iv_ticket = 'C' iv_minutes = 30 iv_sauna = abap_false ).
|
|
ENDMETHOD.
|
|
|
|
METHOD family_basic.
|
|
assert_fee( iv_expected = '15.00' iv_ticket = 'F' iv_minutes = 20 iv_sauna = abap_false ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unknown_ticket.
|
|
assert_fee( iv_expected = '0.00' iv_ticket = 'X' iv_minutes = 45 iv_sauna = abap_false ).
|
|
ENDMETHOD.
|
|
|
|
METHOD duration_surcharge.
|
|
assert_fee( iv_expected = '7.50' iv_ticket = 'A' iv_minutes = 61 iv_sauna = abap_false ).
|
|
assert_fee( iv_expected = '8.50' iv_ticket = 'A' iv_minutes = 91 iv_sauna = abap_false ).
|
|
ENDMETHOD.
|
|
|
|
METHOD sauna_adult.
|
|
assert_fee( iv_expected = '11.50' iv_ticket = 'A' iv_minutes = 45 iv_sauna = abap_true ).
|
|
ENDMETHOD.
|
|
|
|
METHOD sauna_child_ignored.
|
|
assert_fee( iv_expected = '3.50' iv_ticket = 'C' iv_minutes = 45 iv_sauna = abap_true ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|