CLASS {{p}}t42_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS call
      IMPORTING iv_pet TYPE string iv_nights TYPE i iv_peak TYPE abap_bool
      EXPORTING ev_fee TYPE decfloat34 ev_deposit TYPE decfloat34 ev_subrc TYPE sysubrc.
    METHODS dog_peak_night FOR TESTING.
    METHODS cat_standard FOR TESTING.
    METHODS rabbit_long_peak FOR TESTING.
    METHODS dog_long_peak FOR TESTING.
    METHODS long_stay_boundary FOR TESTING.
    METHODS other_pet_zero FOR TESTING.
    METHODS nights_zero_invalid FOR TESTING.
    METHODS nights_negative_invalid FOR TESTING.
    METHODS deposit_percent FOR TESTING.
ENDCLASS.


CLASS {{p}}t42_hidden IMPLEMENTATION.
  METHOD call.
    DATA lv_fee TYPE decfloat34 VALUE 99.
    CALL FUNCTION '{{P}}KENNEL_FEE'
      EXPORTING
        iv_pet_type    = iv_pet
        iv_nights      = iv_nights
        iv_peak        = iv_peak
      IMPORTING
        ev_deposit     = ev_deposit
      CHANGING
        cv_fee         = lv_fee
      EXCEPTIONS
        invalid_nights = 1
        OTHERS         = 2.
    ev_subrc = sy-subrc.
    ev_fee = lv_fee.
  ENDMETHOD.

  METHOD dog_peak_night.
    call( EXPORTING iv_pet = `DOG` iv_nights = 1 iv_peak = abap_true
          IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '29.88' ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '5.98' ) act = lv_dep ).
  ENDMETHOD.

  METHOD cat_standard.
    call( EXPORTING iv_pet = `CAT` iv_nights = 3 iv_peak = abap_false
          IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '53.70' ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '10.74' ) act = lv_dep ).
  ENDMETHOD.

  METHOD rabbit_long_peak.
    call( EXPORTING iv_pet = `RABBIT` iv_nights = 10 iv_peak = abap_true
          IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '128.52' ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '25.70' ) act = lv_dep ).
  ENDMETHOD.

  METHOD dog_long_peak.
    call( EXPORTING iv_pet = `DOG` iv_nights = 7 iv_peak = abap_true
          IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '188.24' ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '37.65' ) act = lv_dep ).
  ENDMETHOD.

  METHOD long_stay_boundary.
    call( EXPORTING iv_pet = `DOG` iv_nights = 6 iv_peak = abap_false
          IMPORTING ev_fee = DATA(lv_six) ).
    call( EXPORTING iv_pet = `DOG` iv_nights = 7 iv_peak = abap_false
          IMPORTING ev_fee = DATA(lv_seven) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '149.40' ) act = lv_six ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '156.87' ) act = lv_seven ).
  ENDMETHOD.

  METHOD other_pet_zero.
    call( EXPORTING iv_pet = `SNAKE` iv_nights = 5 iv_peak = abap_false
          IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 0 act = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_dep ).
  ENDMETHOD.

  METHOD nights_zero_invalid.
    call( EXPORTING iv_pet = `DOG` iv_nights = 0 iv_peak = abap_false
          IMPORTING ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
  ENDMETHOD.

  METHOD nights_negative_invalid.
    call( EXPORTING iv_pet = `CAT` iv_nights = -3 iv_peak = abap_false
          IMPORTING ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
  ENDMETHOD.

  METHOD deposit_percent.
    call( EXPORTING iv_pet = `CAT` iv_nights = 1 iv_peak = abap_false
          IMPORTING ev_fee = DATA(lv_fee) ev_deposit = DATA(lv_dep) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '17.90' ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '3.58' ) act = lv_dep ).
  ENDMETHOD.
ENDCLASS.