CLASS ltc_provision_calc DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    DATA mo_cut TYPE REF TO {{p}}provision_calc.

    METHODS setup.
    METHODS empty_order FOR TESTING.
    METHODS material_missing FOR TESTING.
    METHODS duplicate_material FOR TESTING.
    METHODS value_of_valid_order FOR TESTING.
    METHODS limit_exceeded FOR TESTING.
    METHODS rounds_total FOR TESTING.
ENDCLASS.


CLASS ltc_provision_calc IMPLEMENTATION.
  METHOD setup.
    mo_cut = NEW {{p}}provision_calc( ).
  ENDMETHOD.

  METHOD empty_order.
    DATA lt_lines TYPE {{p}}provision_calc=>tt_lines.
    TRY.
        mo_cut->check_order( lt_lines ).
        cl_abap_unit_assert=>fail( ).
      CATCH {{p}}cx_prov_error INTO DATA(lx_error).
        cl_abap_unit_assert=>assert_equals( exp = {{p}}provision_calc=>c_empty_order
                                            act = lx_error->reason ).
    ENDTRY.
  ENDMETHOD.

  METHOD material_missing.
    DATA lt_lines TYPE {{p}}provision_calc=>tt_lines.
    lt_lines = VALUE #( ( material = ` ` quantity = 1 price = 1 ) ).
    TRY.
        mo_cut->check_order( lt_lines ).
        cl_abap_unit_assert=>fail( ).
      CATCH {{p}}cx_prov_error INTO DATA(lx_error).
        cl_abap_unit_assert=>assert_equals( exp = {{p}}provision_calc=>c_material_missing
                                            act = lx_error->reason ).
    ENDTRY.
  ENDMETHOD.

  METHOD duplicate_material.
    DATA lt_lines TYPE {{p}}provision_calc=>tt_lines.
    lt_lines = VALUE #( ( material = 'ROPE' quantity = 1 price = 1 )
                        ( material = 'ROPE' quantity = 2 price = 1 ) ).
    TRY.
        mo_cut->check_order( lt_lines ).
        cl_abap_unit_assert=>fail( ).
      CATCH {{p}}cx_prov_error INTO DATA(lx_error).
        cl_abap_unit_assert=>assert_equals( exp = {{p}}provision_calc=>c_duplicate_material
                                            act = lx_error->reason ).
    ENDTRY.
  ENDMETHOD.

  METHOD value_of_valid_order.
    DATA lt_lines TYPE {{p}}provision_calc=>tt_lines.
    lt_lines = VALUE #( ( material = 'ROPE' quantity = 2 price = '3.50' )
                        ( material = 'BOLT' quantity = 3 price = '1.25' ) ).
    DATA lv_expected TYPE {{p}}provision_calc=>ty_amount VALUE '10.75'.
    DATA lv_value TYPE {{p}}provision_calc=>ty_amount.
    TRY.
        lv_value = mo_cut->calculate_value( lt_lines ).
      CATCH {{p}}cx_prov_error INTO DATA(lx_error).
        cl_abap_unit_assert=>fail( msg = |Unexpected reason { lx_error->reason }| ).
    ENDTRY.
    cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lv_value ).
  ENDMETHOD.

  METHOD limit_exceeded.
    DATA lt_lines TYPE {{p}}provision_calc=>tt_lines.
    lt_lines = VALUE #( ( material = 'ENGINE' quantity = 1 price = '100000.01' ) ).
    TRY.
        mo_cut->check_order( lt_lines ).
        cl_abap_unit_assert=>fail( ).
      CATCH {{p}}cx_prov_error INTO DATA(lx_error).
        cl_abap_unit_assert=>assert_equals( exp = {{p}}provision_calc=>c_limit_exceeded
                                            act = lx_error->reason ).
    ENDTRY.
  ENDMETHOD.

  METHOD rounds_total.
    DATA lt_lines TYPE {{p}}provision_calc=>tt_lines.
    lt_lines = VALUE #( ( material = 'ROPE' quantity = '1.005' price = '1.00' )
                        ( material = 'BOLT' quantity = '1.005' price = '1.00' ) ).
    DATA lv_expected TYPE {{p}}provision_calc=>ty_amount VALUE '2.01'.
    DATA lv_value TYPE {{p}}provision_calc=>ty_amount.
    TRY.
        lv_value = mo_cut->calculate_value( lt_lines ).
      CATCH {{p}}cx_prov_error INTO DATA(lx_error).
        cl_abap_unit_assert=>fail( msg = |Unexpected reason { lx_error->reason }| ).
    ENDTRY.
    cl_abap_unit_assert=>assert_equals( exp = lv_expected act = lv_value ).
  ENDMETHOD.
ENDCLASS.