CLASS ltc_freight_calc DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    TYPES ty_cost TYPE p LENGTH 15 DECIMALS 2.
    TYPES ty_currency TYPE c LENGTH 5.
    TYPES ty_zone_code TYPE c LENGTH 4.
    TYPES ty_weight TYPE p LENGTH 15 DECIMALS 3.

    DATA mo_cut TYPE REF TO {{p}}freight_calc.

    METHODS setup.
    METHODS assert_cost
      IMPORTING iv_cost     TYPE ty_cost
                iv_currency TYPE ty_currency
                is_result   TYPE {{p}}freight_calc=>ty_result.
    METHODS calculate_result
      IMPORTING iv_zone_code     TYPE ty_zone_code
                iv_weight_kg     TYPE ty_weight
                iv_express       TYPE abap_bool DEFAULT abap_false
      RETURNING VALUE(rs_result) TYPE {{p}}freight_calc=>ty_result.
    METHODS standard_cost FOR TESTING.
    METHODS express_cost FOR TESTING.
    METHODS minimum_charge FOR TESTING.
    METHODS unknown_zone FOR TESTING.
    METHODS invalid_weight FOR TESTING.
    METHODS weight_limit FOR TESTING.
ENDCLASS.


CLASS ltc_freight_calc IMPLEMENTATION.
  METHOD setup.
    mo_cut = NEW {{p}}freight_calc( ).
  ENDMETHOD.

  METHOD assert_cost.
    cl_abap_unit_assert=>assert_equals( exp = iv_cost act = is_result-cost ).
    cl_abap_unit_assert=>assert_equals( exp = iv_currency act = is_result-currency ).
  ENDMETHOD.

  METHOD calculate_result.
    TRY.
        rs_result = mo_cut->calculate( iv_zone_code = iv_zone_code
                                       iv_weight_kg = iv_weight_kg
                                       iv_express   = iv_express ).
      CATCH {{p}}cx_freight_error INTO DATA(lo_error).
        cl_abap_unit_assert=>fail( msg = lo_error->get_reason_text( ) ).
    ENDTRY.
  ENDMETHOD.

  METHOD standard_cost.
    DATA(ls_result) = calculate_result( iv_zone_code = 'DE01' iv_weight_kg = '10.000' ).
    assert_cost( iv_cost = '17.00' iv_currency = 'EUR' is_result = ls_result ).
  ENDMETHOD.

  METHOD express_cost.
    DATA(ls_result) = calculate_result( iv_zone_code = 'DE01'
                                        iv_weight_kg = '10.000'
                                        iv_express   = abap_true ).
    assert_cost( iv_cost = '25.50' iv_currency = 'EUR' is_result = ls_result ).
  ENDMETHOD.

  METHOD minimum_charge.
    DATA(ls_result) = calculate_result( iv_zone_code = 'DE01' iv_weight_kg = '0.500' ).
    assert_cost( iv_cost = '6.00' iv_currency = 'EUR' is_result = ls_result ).
  ENDMETHOD.

  METHOD unknown_zone.
    TRY.
        mo_cut->calculate( iv_zone_code = 'XX99' iv_weight_kg = '1.000' ).
        cl_abap_unit_assert=>fail( msg = 'CX_UNKNOWN_ZONE expected' ).
      CATCH {{p}}cx_unknown_zone INTO DATA(lo_unknown).
        cl_abap_unit_assert=>assert_equals( exp = 'XX99' act = lo_unknown->mv_zone_code ).
      CATCH {{p}}cx_freight_error INTO DATA(lo_other).
        cl_abap_unit_assert=>fail( msg = |Wrong exception class: { lo_other->get_reason_text( ) }| ).
    ENDTRY.
  ENDMETHOD.

  METHOD invalid_weight.
    TRY.
        mo_cut->calculate( iv_zone_code = 'DE01' iv_weight_kg = '0.000' ).
        cl_abap_unit_assert=>fail( msg = 'CX_INVALID_WEIGHT expected' ).
      CATCH {{p}}cx_invalid_weight INTO DATA(lo_invalid).
        cl_abap_unit_assert=>assert_equals( exp = 'DE01' act = lo_invalid->mv_zone_code ).
      CATCH {{p}}cx_freight_error INTO DATA(lo_other).
        cl_abap_unit_assert=>fail( msg = |Wrong exception class: { lo_other->get_reason_text( ) }| ).
    ENDTRY.
  ENDMETHOD.

  METHOD weight_limit.
    TRY.
        mo_cut->calculate( iv_zone_code = 'CN01' iv_weight_kg = '20.001' ).
        cl_abap_unit_assert=>fail( msg = 'CX_WEIGHT_LIMIT expected' ).
      CATCH {{p}}cx_weight_limit INTO DATA(lo_limit).
        cl_abap_unit_assert=>assert_equals( exp = 'CN01' act = lo_limit->mv_zone_code ).
      CATCH {{p}}cx_freight_error INTO DATA(lo_other).
        cl_abap_unit_assert=>fail( msg = |Wrong exception class: { lo_other->get_reason_text( ) }| ).
    ENDTRY.
  ENDMETHOD.
ENDCLASS.