99 lines
3.6 KiB
ABAP
99 lines
3.6 KiB
ABAP
CLASS {{p}}if_kiln_quote_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
|
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
|
|
|
PUBLIC SECTION.
|
|
INTERFACES {{p}}if_kiln_quote.
|
|
|
|
PRIVATE SECTION.
|
|
METHODS kiln_codes FOR TESTING.
|
|
METHODS reason_codes FOR TESTING.
|
|
METHODS fee_values FOR TESTING.
|
|
METHODS type_lengths FOR TESTING.
|
|
METHODS methods_callable FOR TESTING.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}if_kiln_quote_test IMPLEMENTATION.
|
|
METHOD {{p}}if_kiln_quote~check_load.
|
|
rv_reason = {{p}}if_kiln_quote=>c_reason-ok.
|
|
ENDMETHOD.
|
|
|
|
METHOD {{p}}if_kiln_quote~kiln_fee.
|
|
rv_fee = {{p}}if_kiln_quote=>c_base_small.
|
|
ENDMETHOD.
|
|
|
|
METHOD {{p}}if_kiln_quote~quote.
|
|
rs_quote-kiln = is_load-kiln.
|
|
rs_quote-reason = {{p}}if_kiln_quote=>c_reason-ok.
|
|
ENDMETHOD.
|
|
|
|
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 ).
|
|
lv_exp = '1.50'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = {{p}}if_kiln_quote=>c_weight_rate ).
|
|
lv_exp = '8.00'.
|
|
cl_abap_unit_assert=>assert_equals( exp = lv_exp act = {{p}}if_kiln_quote=>c_glaze_fee ).
|
|
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.
|
|
|
|
METHOD methods_callable.
|
|
DATA lo_cut TYPE REF TO {{p}}if_kiln_quote.
|
|
lo_cut = me.
|
|
|
|
DATA ls_load TYPE {{p}}if_kiln_quote=>ty_load.
|
|
ls_load-kiln = {{p}}if_kiln_quote=>c_kiln-small.
|
|
ls_load-pieces = 5.
|
|
ls_load-weight_kg = 10.
|
|
ls_load-glazed = abap_false.
|
|
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_kiln_quote=>c_reason-ok
|
|
act = lo_cut->check_load( ls_load ) ).
|
|
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_kiln_quote=>c_base_small
|
|
act = lo_cut->kiln_fee( {{p}}if_kiln_quote=>c_kiln-small ) ).
|
|
|
|
DATA(ls_quote) = lo_cut->quote( ls_load ).
|
|
cl_abap_unit_assert=>assert_equals(
|
|
exp = {{p}}if_kiln_quote=>c_reason-ok
|
|
act = ls_quote-reason ).
|
|
ENDMETHOD.
|
|
ENDCLASS.
|