41 lines
1.3 KiB
ABAP
41 lines
1.3 KiB
ABAP
CLASS ltc_pricer DEFINITION FINAL FOR TESTING
|
|
DURATION SHORT
|
|
RISK LEVEL HARMLESS.
|
|
|
|
PRIVATE SECTION.
|
|
DATA mo_cut TYPE REF TO {{p}}trans_pricer.
|
|
|
|
METHODS setup.
|
|
METHODS minimum_charge FOR TESTING.
|
|
METHODS tier_discount FOR TESTING.
|
|
METHODS certified_and_express FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS ltc_pricer IMPLEMENTATION.
|
|
METHOD setup.
|
|
mo_cut = NEW {{p}}trans_pricer( ).
|
|
ENDMETHOD.
|
|
|
|
METHOD minimum_charge.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV decfloat34( '35.00' )
|
|
act = mo_cut->calculate_fee( iv_lang_pair = 'STD' iv_word_count = 100
|
|
iv_express = abap_false iv_certified = abap_false ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD tier_discount.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV decfloat34( '807.50' )
|
|
act = mo_cut->calculate_fee( iv_lang_pair = 'RARE' iv_word_count = 5000
|
|
iv_express = abap_false iv_certified = abap_false ) ).
|
|
ENDMETHOD.
|
|
|
|
METHOD certified_and_express.
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = CONV decfloat34( '87.00' )
|
|
act = mo_cut->calculate_fee( iv_lang_pair = 'STD' iv_word_count = 300
|
|
iv_express = abap_true iv_certified = abap_true ) ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|