CLASS {{p}}wood_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS fee_of
      IMPORTING iv_type TYPE string
                iv_volume TYPE decfloat34
                iv_distance TYPE i DEFAULT 0
                iv_fee TYPE decfloat34 DEFAULT 7
      EXPORTING ev_skip TYPE abap_bool
                ev_fee TYPE decfloat34
                ev_subrc TYPE sysubrc.
    METHODS beech_price FOR TESTING.
    METHODS type_prices FOR TESTING.
    METHODS delivery_charge FOR TESTING.
    METHODS no_charge_at_20 FOR TESTING.
    METHODS minimum_fee FOR TESTING.
    METHODS rounding_half_up FOR TESTING.
    METHODS unknown_type_minimum FOR TESTING.
    METHODS mixed_skips FOR TESTING.
    METHODS skip_false_for_beech FOR TESTING.
    METHODS invalid_volume FOR TESTING.
    METHODS invalid_distance FOR TESTING.
ENDCLASS.


CLASS {{p}}wood_hidden IMPLEMENTATION.
  METHOD fee_of.
    ev_fee = iv_fee.
    CALL FUNCTION '{{P}}WOOD_FEE'
      EXPORTING
        iv_wood_type = iv_type
        iv_volume    = iv_volume
        iv_distance  = iv_distance
      IMPORTING
        ev_skip = ev_skip
      CHANGING
        cv_fee = ev_fee
      EXCEPTIONS
        invalid_volume   = 1
        invalid_distance = 2
        OTHERS           = 3.
    ev_subrc = sy-subrc.
  ENDMETHOD.

  METHOD beech_price.
    DATA lv_fee TYPE decfloat34.
    DATA lv_exp TYPE decfloat34.
    lv_exp = '240'.
    fee_of( EXPORTING iv_type = 'BE' iv_volume = '2' IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
  ENDMETHOD.

  METHOD type_prices.
    DATA lv_fee TYPE decfloat34.
    DATA lv_exp TYPE decfloat34.
    lv_exp = '150'.
    fee_of( EXPORTING iv_type = 'OK' iv_volume = '1' IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
    lv_exp = '180'.
    fee_of( EXPORTING iv_type = 'SP' iv_volume = '2' IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
  ENDMETHOD.

  METHOD delivery_charge.
    DATA lv_fee TYPE decfloat34.
    DATA lv_exp TYPE decfloat34.
    lv_exp = '244.50'.
    fee_of( EXPORTING iv_type = 'BE' iv_volume = '2' iv_distance = 30 IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
  ENDMETHOD.

  METHOD no_charge_at_20.
    DATA lv_fee TYPE decfloat34.
    DATA lv_exp TYPE decfloat34.
    lv_exp = '240'.
    fee_of( EXPORTING iv_type = 'BE' iv_volume = '2' iv_distance = 20 IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
  ENDMETHOD.

  METHOD minimum_fee.
    DATA lv_fee TYPE decfloat34.
    DATA lv_exp TYPE decfloat34.
    lv_exp = '80'.
    fee_of( EXPORTING iv_type = 'SP' iv_volume = '0.5' IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
  ENDMETHOD.

  METHOD rounding_half_up.
    DATA lv_fee TYPE decfloat34.
    DATA lv_exp TYPE decfloat34.
    lv_exp = '100.13'.
    fee_of( EXPORTING iv_type = 'SP' iv_volume = '1.1125' IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
  ENDMETHOD.

  METHOD unknown_type_minimum.
    DATA lv_fee TYPE decfloat34.
    DATA lv_exp TYPE decfloat34.
    lv_exp = '80'.
    fee_of( EXPORTING iv_type = 'XX' iv_volume = '2' IMPORTING ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
  ENDMETHOD.

  METHOD mixed_skips.
    DATA lv_skip TYPE abap_bool.
    DATA lv_fee TYPE decfloat34.
    DATA lv_exp TYPE decfloat34.
    lv_exp = '7'.
    fee_of( EXPORTING iv_type = 'MX' iv_volume = '2' iv_distance = 10 iv_fee = '7'
            IMPORTING ev_skip = lv_skip ev_fee = lv_fee ).
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = lv_skip ).
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = lv_fee ).
  ENDMETHOD.

  METHOD skip_false_for_beech.
    DATA lv_skip TYPE abap_bool.
    fee_of( EXPORTING iv_type = 'BE' iv_volume = '2' IMPORTING ev_skip = lv_skip ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = lv_skip ).
  ENDMETHOD.

  METHOD invalid_volume.
    DATA lv_rc TYPE sysubrc.
    fee_of( EXPORTING iv_type = 'BE' iv_volume = '0' IMPORTING ev_subrc = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
  ENDMETHOD.

  METHOD invalid_distance.
    DATA lv_rc TYPE sysubrc.
    fee_of( EXPORTING iv_type = 'BE' iv_volume = '2' iv_distance = -1 IMPORTING ev_subrc = lv_rc ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rc ).
  ENDMETHOD.
ENDCLASS.