CLASS {{p}}crane_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS call
      IMPORTING iv_type TYPE string
                iv_hours TYPE decfloat34
                iv_km TYPE i
                iv_weekend TYPE abap_bool
                iv_customer TYPE string
      EXPORTING ev_base TYPE decfloat34
                ev_travel TYPE decfloat34
                ev_surcharge TYPE decfloat34
                ev_discount TYPE decfloat34
                ev_total TYPE decfloat34
                ev_subrc TYPE sysubrc.
    METHODS small_crane_base FOR TESTING.
    METHODS invalid_crane_type FOR TESTING.
    METHODS invalid_hours FOR TESTING.
    METHODS travel_fee_cap FOR TESTING.
    METHODS weekend_surcharge FOR TESTING.
    METHODS gold_discount FOR TESTING.
    METHODS rounding_order FOR TESTING.
    METHODS total_calculation FOR TESTING.
ENDCLASS.


CLASS {{p}}crane_hidden IMPLEMENTATION.
  METHOD call.
    CALL FUNCTION '{{P}}CRANE_FEE_OLD'
      EXPORTING
        iv_crane_type = iv_type
        iv_hours = iv_hours
        iv_distance_km = iv_km
        iv_weekend = iv_weekend
        iv_customer = iv_customer
      IMPORTING
        ev_base_fee = ev_base
        ev_travel_fee = ev_travel
        ev_surcharge = ev_surcharge
        ev_discount = ev_discount
        ev_total = ev_total
      EXCEPTIONS
        invalid_crane_type = 1
        invalid_hours = 2
        OTHERS = 3.
    ev_subrc = sy-subrc.
  ENDMETHOD.

  METHOD small_crane_base.
    call( EXPORTING iv_type = 'SM' iv_hours = 2 iv_km = 0 iv_weekend = abap_false iv_customer = 'STD'
          IMPORTING ev_base = DATA(lv_base) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 230 ) act = lv_base ).
  ENDMETHOD.

  METHOD invalid_crane_type.
    call( EXPORTING iv_type = 'XX' iv_hours = 1 iv_km = 0 iv_weekend = abap_false iv_customer = 'STD'
          IMPORTING ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 1 act = lv_rc ).
  ENDMETHOD.

  METHOD invalid_hours.
    call( EXPORTING iv_type = 'SM' iv_hours = 0 iv_km = 0 iv_weekend = abap_false iv_customer = 'STD'
          IMPORTING ev_subrc = DATA(lv_rc) ).
    cl_abap_unit_assert=>assert_equals( exp = 2 act = lv_rc ).
  ENDMETHOD.

  METHOD travel_fee_cap.
    call( EXPORTING iv_type = 'SM' iv_hours = 1 iv_km = 200 iv_weekend = abap_false iv_customer = 'STD'
          IMPORTING ev_travel = DATA(lv_travel) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 125 ) act = lv_travel ).
  ENDMETHOD.

  METHOD weekend_surcharge.
    call( EXPORTING iv_type = 'MD' iv_hours = 2 iv_km = 0 iv_weekend = abap_true iv_customer = 'STD'
          IMPORTING ev_surcharge = DATA(lv_surcharge) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '92.50' ) act = lv_surcharge ).
  ENDMETHOD.

  METHOD gold_discount.
    call( EXPORTING iv_type = 'LG' iv_hours = 1 iv_km = 10 iv_weekend = abap_false iv_customer = 'GOLD'
          IMPORTING ev_discount = DATA(lv_discount) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '36.85' ) act = lv_discount ).
  ENDMETHOD.

  METHOD rounding_order.
    call( EXPORTING iv_type = 'SM' iv_hours = CONV decfloat34( '0.87' ) iv_km = 0 iv_weekend = abap_false iv_customer = 'GOLD'
          IMPORTING ev_discount = DATA(lv_discount) ev_total = DATA(lv_total) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '10.01' ) act = lv_discount ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '90.05' ) act = lv_total ).
  ENDMETHOD.

  METHOD total_calculation.
    call( EXPORTING iv_type = 'MD' iv_hours = 3 iv_km = 20 iv_weekend = abap_true iv_customer = 'GOLD'
          IMPORTING ev_total = DATA(lv_total) ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( '655.88' ) act = lv_total ).
  ENDMETHOD.
ENDCLASS.