CLASS {{p}}vet_fee_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  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_base_fee FOR TESTING.
    METHODS medication_started_kg FOR TESTING.
    METHODS no_medication_at_five_kg FOR TESTING.
    METHODS emergency_surcharge FOR TESTING.
    METHODS registered_discount FOR TESTING.
    METHODS combined_charges FOR TESTING.
    METHODS unknown_species FOR TESTING.
    METHODS species_lower_case FOR TESTING.
    METHODS zero_weight FOR TESTING.
    METHODS weight_limit_checked FOR TESTING.
    METHODS species_before_weight FOR TESTING.
    METHODS bird_and_reptile_base FOR TESTING.
ENDCLASS.


CLASS {{p}}vet_fee_hidden 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_base_fee.
    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_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 ).
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-ok
                                        act = ls_result-reason ).
  ENDMETHOD.

  METHOD no_medication_at_five_kg.
    DATA(ls_result) = mo_cut->calculate(
      iv_species    = 'CAT'
      iv_weight     = '5.000'
      iv_emergency  = abap_false
      iv_registered = abap_false ).
    assert_fee( iv_expected = '35.00' iv_actual = ls_result-fee ).
  ENDMETHOD.

  METHOD emergency_surcharge.
    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_discount.
    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 combined_charges.
    DATA(ls_result) = mo_cut->calculate(
      iv_species    = 'RABBIT'
      iv_weight     = '6.500'
      iv_emergency  = abap_true
      iv_registered = abap_true ).
    assert_fee( iv_expected = '38.60' 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 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 species_lower_case.
    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 zero_weight.
    DATA(ls_result) = mo_cut->calculate(
      iv_species    = 'DOG'
      iv_weight     = '0.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.

  METHOD weight_limit_checked.
    DATA(ls_ok) = mo_cut->calculate(
      iv_species    = 'DOG'
      iv_weight     = '200.000'
      iv_emergency  = abap_false
      iv_registered = abap_false ).
    assert_fee( iv_expected = '435.00' iv_actual = ls_ok-fee ).
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-ok
                                        act = ls_ok-reason ).

    DATA(ls_heavy) = mo_cut->calculate(
      iv_species    = 'DOG'
      iv_weight     = '200.001'
      iv_emergency  = abap_false
      iv_registered = abap_false ).
    assert_fee( iv_expected = '0.00' iv_actual = ls_heavy-fee ).
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-weight
                                        act = ls_heavy-reason ).
  ENDMETHOD.

  METHOD species_before_weight.
    DATA(ls_result) = mo_cut->calculate(
      iv_species    = 'HORSE'
      iv_weight     = '0.000'
      iv_emergency  = abap_false
      iv_registered = abap_false ).
    cl_abap_unit_assert=>assert_equals( exp = {{p}}if_vet_fee=>c_reason-species
                                        act = ls_result-reason ).
  ENDMETHOD.

  METHOD bird_and_reptile_base.
    DATA(ls_bird) = mo_cut->calculate(
      iv_species    = 'BIRD'
      iv_weight     = '5.000'
      iv_emergency  = abap_false
      iv_registered = abap_false ).
    assert_fee( iv_expected = '18.00' iv_actual = ls_bird-fee ).

    DATA(ls_reptile) = mo_cut->calculate(
      iv_species    = 'REPTILE'
      iv_weight     = '5.000'
      iv_emergency  = abap_false
      iv_registered = abap_false ).
    assert_fee( iv_expected = '30.00' iv_actual = ls_reptile-fee ).
  ENDMETHOD.
ENDCLASS.