45 lines
1.5 KiB
ABAP
45 lines
1.5 KiB
ABAP
CLASS ltc_salon_pricer DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}if_salon_price.
|
|
METHODS setup.
|
|
METHODS cut_price FOR TESTING.
|
|
METHODS colour_price FOR TESTING.
|
|
METHODS perm_price FOR TESTING.
|
|
METHODS child_cut_price FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_salon_pricer IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}salon_pricer( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD cut_price.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}if_salon_price=>ty_amount( '42.00' )
|
|
act = mo_cut->price( iv_service = {{p}}if_salon_price=>c_service-cut
|
|
iv_child = abap_false ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD colour_price.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}if_salon_price=>ty_amount( '90.00' )
|
|
act = mo_cut->price( iv_service = {{p}}if_salon_price=>c_service-colour
|
|
iv_child = abap_false ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD perm_price.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}if_salon_price=>ty_amount( '95.00' )
|
|
act = mo_cut->price( iv_service = {{p}}if_salon_price=>c_service-perm
|
|
iv_child = abap_false ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD child_cut_price.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV {{p}}if_salon_price=>ty_amount( '12.00' )
|
|
act = mo_cut->price( iv_service = {{p}}if_salon_price=>c_service-cut
|
|
iv_child = abap_true ) ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|