CLASS ltc_shipping_cost_calc DEFINITION FINAL FOR TESTING
  DURATION SHORT RISK LEVEL HARMLESS.

  PRIVATE SECTION.
    DATA mo_cut TYPE REF TO {{p}}if_shipping_cost.

    METHODS setup.
    METHODS zero_weight_is_free FOR TESTING.
    METHODS minimum_charge FOR TESTING.
    METHODS tier_limits FOR TESTING.
    METHODS bulk_weight FOR TESTING.
    METHODS express_surcharge FOR TESTING.
    METHODS express_below_minimum FOR TESTING.

    METHODS assert_cost
      IMPORTING iv_weight  TYPE {{p}}if_shipping_cost=>ty_weight
                iv_express TYPE abap_bool
                iv_exp     TYPE {{p}}if_shipping_cost=>ty_amount
                iv_msg     TYPE string.
ENDCLASS.


CLASS ltc_shipping_cost_calc IMPLEMENTATION.
  METHOD setup.
    mo_cut = NEW {{p}}shipping_cost_calc( ).
  ENDMETHOD.

  METHOD assert_cost.
    cl_abap_unit_assert=>assert_equals(
      exp = iv_exp
      act = mo_cut->calculate( iv_weight = iv_weight iv_express = iv_express )
      msg = iv_msg ).
  ENDMETHOD.

  METHOD zero_weight_is_free.
    assert_cost( iv_weight = '0.000' iv_express = abap_true
                 iv_exp = '0.00' iv_msg = `zero weight` ).
  ENDMETHOD.

  METHOD minimum_charge.
    assert_cost( iv_weight = '0.500' iv_express = abap_false
                 iv_exp = '6.00' iv_msg = `minimum charge` ).
  ENDMETHOD.

  METHOD tier_limits.
    assert_cost( iv_weight = '1.000' iv_express = abap_false
                 iv_exp = '6.00' iv_msg = `1.000 kg` ).
    assert_cost( iv_weight = '1.001' iv_express = abap_false
                 iv_exp = '8.50' iv_msg = `1.001 kg` ).
  ENDMETHOD.

  METHOD bulk_weight.
    assert_cost( iv_weight = '31.500' iv_express = abap_false
                 iv_exp = '18.75' iv_msg = `31.500 kg` ).
    assert_cost( iv_weight = '32.000' iv_express = abap_false
                 iv_exp = '19.40' iv_msg = `32.000 kg` ).
  ENDMETHOD.

  METHOD express_surcharge.
    assert_cost( iv_weight = '2.000' iv_express = abap_true
                 iv_exp = '11.48' iv_msg = `2.000 kg express` ).
  ENDMETHOD.

  METHOD express_below_minimum.
    assert_cost( iv_weight = '0.500' iv_express = abap_true
                 iv_exp = '6.62' iv_msg = `0.500 kg express` ).
  ENDMETHOD.
ENDCLASS.