39769afce8
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
86 lines
2.8 KiB
ABAP
86 lines
2.8 KiB
ABAP
CLASS ltc_vet_fee_calc DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}if_vet_fee.
|
|
METHODS setup.
|
|
METHODS assert_fee
|
|
IMPORTING iv_expected TYPE {{p}}if_vet_fee=>ty_amount
|
|
iv_actual TYPE {{p}}if_vet_fee=>ty_amount.
|
|
METHODS dog_visit FOR TESTING.
|
|
METHODS medication_for_started_kg FOR TESTING.
|
|
METHODS emergency_visit FOR TESTING.
|
|
METHODS registered_patient FOR TESTING.
|
|
METHODS unknown_species FOR TESTING.
|
|
METHODS invalid_weight FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_vet_fee_calc IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}vet_fee_calc( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD assert_fee.
|
|
cl_abap_unit_assert=>assert_equals( exp = iv_expected act = iv_actual ).
|
|
ENDMETHOD.
|
|
|
|
METHOD dog_visit.
|
|
DATA(ls_result) = mo_cut->calculate(
|
|
iv_species = 'DOG'
|
|
iv_weight = '5.000'
|
|
iv_emergency = abap_false
|
|
iv_registered = abap_false ).
|
|
assert_fee( iv_expected = '45.00' iv_actual = ls_result-fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-ok
|
|
act = ls_result-reason ).
|
|
ENDMETHOD.
|
|
|
|
METHOD medication_for_started_kg.
|
|
DATA(ls_result) = mo_cut->calculate(
|
|
iv_species = 'DOG'
|
|
iv_weight = '7.001'
|
|
iv_emergency = abap_false
|
|
iv_registered = abap_false ).
|
|
assert_fee( iv_expected = '51.00' iv_actual = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD emergency_visit.
|
|
DATA(ls_result) = mo_cut->calculate(
|
|
iv_species = 'DOG'
|
|
iv_weight = '5.000'
|
|
iv_emergency = abap_true
|
|
iv_registered = abap_false ).
|
|
assert_fee( iv_expected = '67.50' iv_actual = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD registered_patient.
|
|
DATA(ls_result) = mo_cut->calculate(
|
|
iv_species = 'CAT'
|
|
iv_weight = '5.000'
|
|
iv_emergency = abap_false
|
|
iv_registered = abap_true ).
|
|
assert_fee( iv_expected = '31.50' iv_actual = ls_result-fee ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unknown_species.
|
|
DATA(ls_result) = mo_cut->calculate(
|
|
iv_species = 'HORSE'
|
|
iv_weight = '10.000'
|
|
iv_emergency = abap_false
|
|
iv_registered = abap_false ).
|
|
assert_fee( iv_expected = '0.00' iv_actual = ls_result-fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-species
|
|
act = ls_result-reason ).
|
|
ENDMETHOD.
|
|
|
|
METHOD invalid_weight.
|
|
DATA(ls_result) = mo_cut->calculate(
|
|
iv_species = 'DOG'
|
|
iv_weight = '250.000'
|
|
iv_emergency = abap_false
|
|
iv_registered = abap_false ).
|
|
assert_fee( iv_expected = '0.00' iv_actual = ls_result-fee ).
|
|
cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-weight
|
|
act = ls_result-reason ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|