74 lines
2.3 KiB
ABAP
74 lines
2.3 KiB
ABAP
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.
|