CLASS {{p}}t63_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS call
      IMPORTING iv_type TYPE string
                iv_nights TYPE i
                iv_adults TYPE i DEFAULT 1
                iv_elec TYPE abap_bool DEFAULT abap_false
                iv_fee TYPE decfloat34 DEFAULT 0
      EXPORTING ev_discount TYPE abap_bool
                ev_fee TYPE decfloat34
                ev_subrc TYPE sysubrc.
    METHODS std_short_stay FOR TESTING.
    METHODS comfort_long_stay FOR TESTING.
    METHODS premium_one_night FOR TESTING.
    METHODS adults_min_one FOR TESTING.
    METHODS electricity_charge FOR TESTING.
    METHODS unknown_type_zero FOR TESTING.
    METHODS zero_nights FOR TESTING.
    METHODS negative_nights FOR TESTING.
    METHODS no_discount_short FOR TESTING.
    METHODS discount_long_stay FOR TESTING.
ENDCLASS.


CLASS {{p}}t63_hidden IMPLEMENTATION.
  METHOD call.
    DATA lv_fee TYPE decfloat34.
    DATA lv_discount TYPE abap_bool.
    lv_fee = iv_fee.
    CALL FUNCTION '{{P}}CAMP_FEE'
      EXPORTING
        iv_pitch_type = iv_type
        iv_nights = iv_nights
        iv_adults = iv_adults
        iv_electricity = iv_elec
      IMPORTING
        ev_discount = lv_discount
      CHANGING
        cv_fee = lv_fee
      EXCEPTIONS
        invalid_nights = 1
        OTHERS = 2.
    ev_subrc = sy-subrc.
    ev_fee = lv_fee.
    ev_discount = lv_discount.
  ENDMETHOD.

  METHOD std_short_stay.
    DATA lv_fee TYPE decfloat34.
    DATA lv_discount TYPE abap_bool.
    call( EXPORTING iv_type = 'STD' iv_nights = 3 iv_adults = 2
          IMPORTING ev_fee = lv_fee ev_discount = lv_discount ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 60 ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = lv_discount ).
  ENDMETHOD.

  METHOD comfort_long_stay.
    DATA lv_fee TYPE decfloat34.
    DATA lv_discount TYPE abap_bool.
    call( EXPORTING iv_type = 'CMF' iv_nights = 7 iv_adults = 2 iv_elec = abap_true
          IMPORTING ev_fee = lv_fee ev_discount = lv_discount ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '175.53' ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = lv_discount ).
  ENDMETHOD.

  METHOD premium_one_night.
    DATA lv_fee TYPE decfloat34.
    DATA lv_discount TYPE abap_bool.
    call( EXPORTING iv_type = 'PRM' iv_nights = 1 iv_adults = 1
          IMPORTING ev_fee = lv_fee ev_discount = lv_discount ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 29 ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = lv_discount ).
  ENDMETHOD.

  METHOD adults_min_one.
    DATA lv_fee TYPE decfloat34.
    call( EXPORTING iv_type = 'STD' iv_nights = 2 iv_adults = 0
          IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 32 ) act = lv_fee ).
  ENDMETHOD.

  METHOD electricity_charge.
    DATA lv_fee TYPE decfloat34.
    call( EXPORTING iv_type = 'STD' iv_nights = 2 iv_adults = 1 iv_elec = abap_true
          IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 39 ) act = lv_fee ).
  ENDMETHOD.

  METHOD unknown_type_zero.
    DATA lv_fee TYPE decfloat34.
    DATA lv_discount TYPE abap_bool.
    call( EXPORTING iv_type = 'XYZ' iv_nights = 10 iv_adults = 5 iv_elec = abap_true
          IMPORTING ev_fee = lv_fee ev_discount = lv_discount ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = lv_discount ).
  ENDMETHOD.

  METHOD zero_nights.
    DATA lv_rc TYPE sysubrc.
    call( EXPORTING iv_type = 'STD' iv_nights = 0 iv_adults = 1
          IMPORTING ev_subrc = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
  ENDMETHOD.

  METHOD negative_nights.
    DATA lv_rc TYPE sysubrc.
    call( EXPORTING iv_type = 'STD' iv_nights = -1 iv_adults = 1
          IMPORTING ev_subrc = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
  ENDMETHOD.

  METHOD no_discount_short.
    DATA lv_fee TYPE decfloat34.
    DATA lv_discount TYPE abap_bool.
    call( EXPORTING iv_type = 'STD' iv_nights = 6 iv_adults = 1
          IMPORTING ev_fee = lv_fee ev_discount = lv_discount ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 96 ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = lv_discount ).
  ENDMETHOD.

  METHOD discount_long_stay.
    DATA lv_fee TYPE decfloat34.
    DATA lv_discount TYPE abap_bool.
    call( EXPORTING iv_type = 'STD' iv_nights = 7 iv_adults = 1
          IMPORTING ev_fee = lv_fee ev_discount = lv_discount ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '95.20' ) act = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = lv_discount ).
  ENDMETHOD.
ENDCLASS.