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.