CLASS ltc_glaz_calc DEFINITION FOR TESTING
  DURATION SHORT RISK LEVEL HARMLESS.
  PRIVATE SECTION.
    METHODS fee_for
      IMPORTING
        iv_width  TYPE i
        iv_height TYPE i
        iv_glass  TYPE string
        iv_urgent TYPE abap_bool
      RETURNING
        VALUE(rv_fee) TYPE decfloat34.
    METHODS simple_fee FOR TESTING.
    METHODS minimum_fee FOR TESTING.
    METHODS urgent_fee FOR TESTING.
    METHODS invalid_size FOR TESTING.
    METHODS invalid_glass FOR TESTING.
ENDCLASS.


CLASS ltc_glaz_calc IMPLEMENTATION.
  METHOD fee_for.
    DATA(lo_calc) = NEW {{p}}glaz_calc( ).
    TRY.
        rv_fee = lo_calc->calculate(
          iv_width_mm  = iv_width
          iv_height_mm = iv_height
          iv_glass     = iv_glass
          iv_urgent    = iv_urgent ).
      CATCH cx_abap_invalid_value.
        cl_abap_unit_assert=>fail( msg = `unexpected invalid value` ).
    ENDTRY.
  ENDMETHOD.

  METHOD simple_fee.
    cl_abap_unit_assert=>assert_equals(
      exp = CONV decfloat34( '45.00' )
      act = fee_for( iv_width = 1000 iv_height = 1000 iv_glass = `SIMPLE` iv_urgent = abap_false ) ).
  ENDMETHOD.

  METHOD minimum_fee.
    cl_abap_unit_assert=>assert_equals(
      exp = CONV decfloat34( '35.00' )
      act = fee_for( iv_width = 500 iv_height = 400 iv_glass = `SIMPLE` iv_urgent = abap_false ) ).
  ENDMETHOD.

  METHOD urgent_fee.
    cl_abap_unit_assert=>assert_equals(
      exp = CONV decfloat34( '67.50' )
      act = fee_for( iv_width = 1000 iv_height = 1000 iv_glass = `SIMPLE` iv_urgent = abap_true ) ).
  ENDMETHOD.

  METHOD invalid_size.
    DATA(lo_calc) = NEW {{p}}glaz_calc( ).
    TRY.
        lo_calc->calculate( iv_width_mm = 0 iv_height_mm = 100
                            iv_glass = `SIMPLE` iv_urgent = abap_false ).
        cl_abap_unit_assert=>fail( msg = `invalid size was accepted` ).
      CATCH cx_abap_invalid_value.
        cl_abap_unit_assert=>assert_true( abap_true ).
    ENDTRY.
  ENDMETHOD.

  METHOD invalid_glass.
    DATA(lo_calc) = NEW {{p}}glaz_calc( ).
    TRY.
        lo_calc->calculate( iv_width_mm = 100 iv_height_mm = 100
                            iv_glass = `TINTED` iv_urgent = abap_false ).
        cl_abap_unit_assert=>fail( msg = `invalid glass type was accepted` ).
      CATCH cx_abap_invalid_value.
        cl_abap_unit_assert=>assert_true( abap_true ).
    ENDTRY.
  ENDMETHOD.
ENDCLASS.