CLASS {{p}}t14_test DEFINITION PUBLIC FINAL CREATE PUBLIC
  FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS qty_for
      IMPORTING
        iv_stock         TYPE decfloat34
        iv_reorder_point TYPE decfloat34
        iv_target_stock  TYPE decfloat34
        iv_pack_size     TYPE decfloat34
        iv_min_qty       TYPE decfloat34 DEFAULT 0
      RETURNING
        VALUE(rv_qty)    TYPE decfloat34.
    METHODS replenish_to_target FOR TESTING.
    METHODS no_replenishment FOR TESTING.
    METHODS minimum_quantity FOR TESTING.
    METHODS pack_rounding FOR TESTING.
    METHODS invalid_pack_size FOR TESTING.
    METHODS class_direct_call FOR TESTING.
    METHODS class_no_replenishment FOR TESTING.
ENDCLASS.


CLASS {{p}}t14_test IMPLEMENTATION.
  METHOD qty_for.
    CALL FUNCTION '{{P}}REPL_CALC'
      EXPORTING
        iv_stock         = iv_stock
        iv_reorder_point = iv_reorder_point
        iv_target_stock  = iv_target_stock
        iv_pack_size     = iv_pack_size
        iv_min_qty       = iv_min_qty
      IMPORTING
        ev_qty           = rv_qty
      EXCEPTIONS
        invalid_pack_size = 1
        OTHERS            = 2.
    cl_abap_unit_assert=>assert_subrc( exp = 0 ).
  ENDMETHOD.

  METHOD replenish_to_target.
    cl_abap_unit_assert=>assert_equals(
      exp = CONV decfloat34( 48 )
      act = qty_for( iv_stock = 10 iv_reorder_point = 20 iv_target_stock = 50 iv_pack_size = 12 ) ).
  ENDMETHOD.

  METHOD no_replenishment.
    cl_abap_unit_assert=>assert_equals(
      exp = CONV decfloat34( 0 )
      act = qty_for( iv_stock = 30 iv_reorder_point = 20 iv_target_stock = 50 iv_pack_size = 12 ) ).
  ENDMETHOD.

  METHOD minimum_quantity.
    cl_abap_unit_assert=>assert_equals(
      exp = CONV decfloat34( 10 )
      act = qty_for( iv_stock = 10 iv_reorder_point = 20 iv_target_stock = 12 iv_pack_size = 5 iv_min_qty = 7 ) ).
  ENDMETHOD.

  METHOD pack_rounding.
    cl_abap_unit_assert=>assert_equals(
      exp = CONV decfloat34( 30 )
      act = qty_for( iv_stock = 0 iv_reorder_point = 10 iv_target_stock = 25 iv_pack_size = 6 ) ).
  ENDMETHOD.

  METHOD invalid_pack_size.
    DATA lv_qty TYPE decfloat34.
    CALL FUNCTION '{{P}}REPL_CALC'
      EXPORTING
        iv_stock         = 0
        iv_reorder_point = 10
        iv_target_stock  = 20
        iv_pack_size     = 0
        iv_min_qty       = 0
      IMPORTING
        ev_qty           = lv_qty
      EXCEPTIONS
        invalid_pack_size = 1
        OTHERS            = 2.
    cl_abap_unit_assert=>assert_equals( exp = 1 act = sy-subrc ).
  ENDMETHOD.

  METHOD class_direct_call.
    DATA(lv_qty) = NEW {{p}}cl_repl( )->calculate(
                     iv_stock         = 0
                     iv_reorder_point = 10
                     iv_target_stock  = 24
                     iv_pack_size     = 12
                     iv_min_qty       = 0 ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 24 ) act = lv_qty ).
  ENDMETHOD.

  METHOD class_no_replenishment.
    DATA(lv_qty) = NEW {{p}}cl_repl( )->calculate(
                     iv_stock         = 40
                     iv_reorder_point = 20
                     iv_target_stock  = 100
                     iv_pack_size     = 10
                     iv_min_qty       = 0 ).
    cl_abap_unit_assert=>assert_equals( exp = CONV decfloat34( 0 ) act = lv_qty ).
  ENDMETHOD.
ENDCLASS.