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.