84 lines
3.1 KiB
ABAP
84 lines
3.1 KiB
ABAP
CLASS ltc_glasses_pricer DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
CONSTANTS c_frame TYPE {{p}}glasses_pricer=>ty_amount VALUE '100.00'.
|
|
DATA mo_cut TYPE REF TO {{p}}glasses_pricer.
|
|
|
|
METHODS setup.
|
|
METHODS single_vision FOR TESTING.
|
|
METHODS bifocal_with_coating FOR TESTING.
|
|
METHODS progressive_with_blue FOR TESTING.
|
|
METHODS unknown_lens_defaults FOR TESTING.
|
|
METHODS unknown_coat_is_free FOR TESTING.
|
|
METHODS discount_from_three FOR TESTING.
|
|
METHODS no_discount_for_two FOR TESTING.
|
|
METHODS zero_qty_is_free FOR TESTING.
|
|
METHODS qty_capped_at_hundred FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_glasses_pricer IMPLEMENTATION.
|
|
|
|
METHOD setup.
|
|
mo_cut = NEW #( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD single_vision.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}glasses_pricer=>ty_amount( '140.00' )
|
|
act = mo_cut->price( iv_frame = c_frame iv_lens = 'S' iv_coat = 'N' iv_qty = 1 ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD bifocal_with_coating.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}glasses_pricer=>ty_amount( '430.00' )
|
|
act = mo_cut->price( iv_frame = c_frame iv_lens = 'B' iv_coat = 'A' iv_qty = 2 ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD progressive_with_blue.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}glasses_pricer=>ty_amount( '235.00' )
|
|
act = mo_cut->price( iv_frame = CONV {{p}}glasses_pricer=>ty_amount( '50.00' )
|
|
iv_lens = 'P' iv_coat = 'B' iv_qty = 1 ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unknown_lens_defaults.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}glasses_pricer=>ty_amount( '140.00' )
|
|
act = mo_cut->price( iv_frame = c_frame iv_lens = 'Z' iv_coat = 'N' iv_qty = 1 ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD unknown_coat_is_free.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}glasses_pricer=>ty_amount( '140.00' )
|
|
act = mo_cut->price( iv_frame = c_frame iv_lens = 'S' iv_coat = 'X' iv_qty = 1 ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD discount_from_three.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}glasses_pricer=>ty_amount( '378.00' )
|
|
act = mo_cut->price( iv_frame = c_frame iv_lens = 'S' iv_coat = 'N' iv_qty = 3 ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD no_discount_for_two.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}glasses_pricer=>ty_amount( '280.00' )
|
|
act = mo_cut->price( iv_frame = c_frame iv_lens = 'S' iv_coat = 'N' iv_qty = 2 ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD zero_qty_is_free.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}glasses_pricer=>ty_amount( '0.00' )
|
|
act = mo_cut->price( iv_frame = c_frame iv_lens = 'S' iv_coat = 'A' iv_qty = 0 ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD qty_capped_at_hundred.
|
|
DATA(lv_capped) = mo_cut->price( iv_frame = c_frame iv_lens = 'S' iv_coat = 'N' iv_qty = 100 ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}glasses_pricer=>ty_amount( '12600.00' )
|
|
act = lv_capped ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = lv_capped
|
|
act = mo_cut->price( iv_frame = c_frame iv_lens = 'S' iv_coat = 'N' iv_qty = 150 ) ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|