CLASS ltc_kiln_quote_contract DEFINITION FINAL FOR TESTING
  DURATION SHORT RISK LEVEL HARMLESS.

  PRIVATE SECTION.
    METHODS kiln_codes FOR TESTING.
    METHODS reason_codes FOR TESTING.
    METHODS fee_values FOR TESTING.
    METHODS type_lengths FOR TESTING.
ENDCLASS.


CLASS ltc_kiln_quote_contract IMPLEMENTATION.
  METHOD kiln_codes.
    cl_abap_unit_assert=>assert_equals( exp = 'SMAL' act = {{p}}if_kiln_quote=>c_kiln-small ).
    cl_abap_unit_assert=>assert_equals( exp = 'MEDI' act = {{p}}if_kiln_quote=>c_kiln-medium ).
    cl_abap_unit_assert=>assert_equals( exp = 'LARG' act = {{p}}if_kiln_quote=>c_kiln-large ).
  ENDMETHOD.

  METHOD reason_codes.
    cl_abap_unit_assert=>assert_equals( exp = 'OK' act = {{p}}if_kiln_quote=>c_reason-ok ).
    cl_abap_unit_assert=>assert_equals( exp = 'KILN' act = {{p}}if_kiln_quote=>c_reason-kiln ).
    cl_abap_unit_assert=>assert_equals( exp = 'PIECES' act = {{p}}if_kiln_quote=>c_reason-pieces ).
    cl_abap_unit_assert=>assert_equals( exp = 'WEIGHT' act = {{p}}if_kiln_quote=>c_reason-weight ).
  ENDMETHOD.

  METHOD fee_values.
    DATA lv_exp TYPE {{p}}if_kiln_quote=>ty_amount.
    lv_exp = '25.00'.
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = {{p}}if_kiln_quote=>c_base_small ).
    lv_exp = '40.00'.
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = {{p}}if_kiln_quote=>c_base_medium ).
    lv_exp = '60.00'.
    cl_abap_unit_assert=>assert_equals( exp = lv_exp act = {{p}}if_kiln_quote=>c_base_large ).
    cl_abap_unit_assert=>assert_equals( exp = 40 act = {{p}}if_kiln_quote=>c_max_pieces ).
    cl_abap_unit_assert=>assert_equals( exp = 120 act = {{p}}if_kiln_quote=>c_max_weight ).
  ENDMETHOD.

  METHOD type_lengths.
    DATA lv_reason TYPE {{p}}if_kiln_quote=>ty_reason.
    DATA lv_kiln TYPE {{p}}if_kiln_quote=>ty_kiln.
    DATA lv_amount TYPE {{p}}if_kiln_quote=>ty_amount.
    DATA lv_src TYPE string.
    lv_src = 'ABCDEFGHIJKLM'.
    lv_reason = lv_src.
    cl_abap_unit_assert=>assert_equals( exp = 'ABCDEFGHIJKL' act = lv_reason ).
    lv_src = 'ABCDE'.
    lv_kiln = lv_src.
    cl_abap_unit_assert=>assert_equals( exp = 'ABCD' act = lv_kiln ).
    cl_abap_unit_assert=>assert_equals(
      exp = 2
      act = cl_abap_typedescr=>describe_by_data( lv_amount )->decimals ).
  ENDMETHOD.
ENDCLASS.