CLASS {{p}}t02_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.

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

    METHODS setup.
    METHODS assert_calculation
      IMPORTING iv_weight_kg TYPE p LENGTH 8 DECIMALS 2
                iv_zone      TYPE string
                iv_express   TYPE abap_bool DEFAULT abap_false
                is_expected  TYPE {{p}}freight_calculator=>ty_result.

    METHODS standard_parcel FOR TESTING.
    METHODS express_parcel FOR TESTING.
    METHODS zone_normalization FOR TESTING.
    METHODS rounding_half_up FOR TESTING.
    METHODS zero_weight FOR TESTING.
    METHODS negative_weight FOR TESTING.
    METHODS unknown_zone FOR TESTING.
    METHODS weight_error_wins FOR TESTING.
    METHODS supported_zones FOR TESTING.
    METHODS unsupported_zones FOR TESTING.
    METHODS all_rates FOR TESTING.
ENDCLASS.


CLASS {{p}}t02_hidden IMPLEMENTATION.
  METHOD setup.
    mo_cut = NEW {{p}}freight_calculator( ).
  ENDMETHOD.

  METHOD assert_calculation.
    cl_abap_unit_assert=>assert_equals(
      exp = is_expected
      act = mo_cut->calculate( iv_weight_kg = iv_weight_kg
                               iv_zone      = iv_zone
                               iv_express   = iv_express )
      msg = |zone { iv_zone }| ).
  ENDMETHOD.

  METHOD standard_parcel.
    assert_calculation(
      iv_weight_kg = '10.00'
      iv_zone      = `DE`
      is_expected  = VALUE #( status    = {{p}}freight_calculator=>c_status-ok
                              base      = '45.00'
                              surcharge = '0.00'
                              total     = '45.00' ) ).
  ENDMETHOD.

  METHOD express_parcel.
    assert_calculation(
      iv_weight_kg = '10.00'
      iv_zone      = `DE`
      iv_express   = abap_true
      is_expected  = VALUE #( status    = {{p}}freight_calculator=>c_status-ok
                              base      = '45.00'
                              surcharge = '11.25'
                              total     = '56.25' ) ).
  ENDMETHOD.

  METHOD zone_normalization.
    assert_calculation(
      iv_weight_kg = '5.00'
      iv_zone      = ` ch `
      is_expected  = VALUE #( status = {{p}}freight_calculator=>c_status-ok
                              base   = '39.00'
                              total  = '39.00' ) ).
    assert_calculation(
      iv_weight_kg = '5.00'
      iv_zone      = `de`
      is_expected  = VALUE #( status = {{p}}freight_calculator=>c_status-ok
                              base   = '22.50'
                              total  = '22.50' ) ).
  ENDMETHOD.

  METHOD rounding_half_up.
    assert_calculation(
      iv_weight_kg = '3.33'
      iv_zone      = `DE`
      iv_express   = abap_true
      is_expected  = VALUE #( status    = {{p}}freight_calculator=>c_status-ok
                              base      = '14.99'
                              surcharge = '3.75'
                              total     = '18.74' ) ).
  ENDMETHOD.

  METHOD zero_weight.
    assert_calculation(
      iv_weight_kg = '0.00'
      iv_zone      = `DE`
      is_expected  = VALUE #( status = {{p}}freight_calculator=>c_status-weight ) ).
  ENDMETHOD.

  METHOD negative_weight.
    assert_calculation(
      iv_weight_kg = '-2.50'
      iv_zone      = `DE`
      iv_express   = abap_true
      is_expected  = VALUE #( status = {{p}}freight_calculator=>c_status-weight ) ).
  ENDMETHOD.

  METHOD unknown_zone.
    assert_calculation(
      iv_weight_kg = '5.00'
      iv_zone      = `XX`
      is_expected  = VALUE #( status = {{p}}freight_calculator=>c_status-zone ) ).
    assert_calculation(
      iv_weight_kg = '5.00'
      iv_zone      = `DEU`
      is_expected  = VALUE #( status = {{p}}freight_calculator=>c_status-zone ) ).
  ENDMETHOD.

  METHOD weight_error_wins.
    assert_calculation(
      iv_weight_kg = '0.00'
      iv_zone      = `XX`
      is_expected  = VALUE #( status = {{p}}freight_calculator=>c_status-weight ) ).
  ENDMETHOD.

  METHOD supported_zones.
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = mo_cut->is_zone_supported( `de` ) msg = `de` ).
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = mo_cut->is_zone_supported( ` DE ` ) msg = ` DE ` ).
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = mo_cut->is_zone_supported( `at` ) msg = `at` ).
    cl_abap_unit_assert=>assert_equals( exp = abap_true act = mo_cut->is_zone_supported( `es` ) msg = `es` ).
  ENDMETHOD.

  METHOD unsupported_zones.
    DATA lv_empty TYPE string.
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = mo_cut->is_zone_supported( `XX` ) msg = `XX` ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = mo_cut->is_zone_supported( lv_empty ) msg = `empty` ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = mo_cut->is_zone_supported( `  ` ) msg = `blanks` ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = mo_cut->is_zone_supported( `DEU` ) msg = `DEU` ).
    cl_abap_unit_assert=>assert_equals( exp = abap_false act = mo_cut->is_zone_supported( `DE1` ) msg = `DE1` ).
  ENDMETHOD.

  METHOD all_rates.
    assert_calculation( iv_weight_kg = '1.00' iv_zone = `DE`
      is_expected = VALUE #( status = {{p}}freight_calculator=>c_status-ok base = '4.50' total = '4.50' ) ).
    assert_calculation( iv_weight_kg = '1.00' iv_zone = `AT`
      is_expected = VALUE #( status = {{p}}freight_calculator=>c_status-ok base = '5.20' total = '5.20' ) ).
    assert_calculation( iv_weight_kg = '1.00' iv_zone = `CH`
      is_expected = VALUE #( status = {{p}}freight_calculator=>c_status-ok base = '7.80' total = '7.80' ) ).
    assert_calculation( iv_weight_kg = '1.00' iv_zone = `FR`
      is_expected = VALUE #( status = {{p}}freight_calculator=>c_status-ok base = '6.40' total = '6.40' ) ).
    assert_calculation( iv_weight_kg = '1.00' iv_zone = `NL`
      is_expected = VALUE #( status = {{p}}freight_calculator=>c_status-ok base = '4.90' total = '4.90' ) ).
    assert_calculation( iv_weight_kg = '1.00' iv_zone = `PL`
      is_expected = VALUE #( status = {{p}}freight_calculator=>c_status-ok base = '5.10' total = '5.10' ) ).
    assert_calculation( iv_weight_kg = '1.00' iv_zone = `ES`
      is_expected = VALUE #( status = {{p}}freight_calculator=>c_status-ok base = '6.90' total = '6.90' ) ).
  ENDMETHOD.
ENDCLASS.