Fix unit test in 702 - Part 2

Ref #7081
This commit is contained in:
Marc Bernard 2024-11-27 20:10:30 +00:00
parent 93935b3dfb
commit 03196a5d72

View File

@ -331,12 +331,15 @@ CLASS ltcl_bcp47_to_sap1 IMPLEMENTATION.
DATA lv_result TYPE sy-langu. DATA lv_result TYPE sy-langu.
lv_result = zcl_abapgit_convert=>language_bcp47_to_sap1( im_from ). lv_result = zcl_abapgit_convert=>language_bcp47_to_sap1( im_from ).
cl_abap_unit_assert=>assert_equals( exp = im_to cl_abap_unit_assert=>assert_equals(
act = lv_result ). exp = im_to
act = lv_result
msg = |Converting "{ im_from }" should result in "{ im_to }"| ).
ENDMETHOD. ENDMETHOD.
METHOD assert_bcp47_to_sap1_fail. METHOD assert_bcp47_to_sap1_fail.
DATA lv_result TYPE string. DATA lv_result TYPE string.
DATA lv_act TYPE sy-subrc.
zcl_abapgit_convert=>language_bcp47_to_sap1( zcl_abapgit_convert=>language_bcp47_to_sap1(
EXPORTING EXPORTING
@ -345,10 +348,15 @@ CLASS ltcl_bcp47_to_sap1 IMPLEMENTATION.
re_lang_sap1 = lv_result re_lang_sap1 = lv_result
EXCEPTIONS EXCEPTIONS
no_assignment = 1 no_assignment = 1
OTHERS = 2 ). OTHERS = 2 ).
cl_abap_unit_assert=>assert_equals( exp = 1 " Assert itself might change sy-subrc (it does in 702!)
act = sy-subrc ). lv_act = sy-subrc.
cl_abap_unit_assert=>assert_equals(
exp = 1
act = lv_act
msg = |Converting "{ im_from }" should fail| ).
ENDMETHOD. ENDMETHOD.
METHOD english. METHOD english.
@ -466,14 +474,18 @@ CLASS ltcl_sap1_to_bcp47 IMPLEMENTATION.
METHOD assert_sap1_to_bcp47. METHOD assert_sap1_to_bcp47.
DATA lv_result TYPE string. DATA lv_result TYPE string.
lv_result = zcl_abapgit_convert=>language_sap1_to_bcp47( im_from ). lv_result = zcl_abapgit_convert=>language_sap1_to_bcp47( im_from ).
cl_abap_unit_assert=>assert_equals( exp = im_to cl_abap_unit_assert=>assert_equals(
act = lv_result ). exp = im_to
act = lv_result
msg = |Converting "{ im_from }" should result in "{ im_to }"| ).
ENDMETHOD. ENDMETHOD.
METHOD assert_sap1_to_bcp47_fail. METHOD assert_sap1_to_bcp47_fail.
DATA lv_result TYPE string. DATA lv_result TYPE string.
DATA lv_act TYPE sy-subrc.
zcl_abapgit_convert=>language_sap1_to_bcp47( zcl_abapgit_convert=>language_sap1_to_bcp47(
EXPORTING EXPORTING
@ -482,10 +494,15 @@ CLASS ltcl_sap1_to_bcp47 IMPLEMENTATION.
re_lang_bcp47 = lv_result re_lang_bcp47 = lv_result
EXCEPTIONS EXCEPTIONS
no_assignment = 1 no_assignment = 1
OTHERS = 2 ). OTHERS = 2 ).
cl_abap_unit_assert=>assert_equals( exp = 1 " Assert itself might change sy-subrc (it does in 702!)
act = sy-subrc ). lv_act = sy-subrc.
cl_abap_unit_assert=>assert_equals(
exp = 1
act = lv_act
msg = |Converting "{ im_from }" should fail| ).
ENDMETHOD. ENDMETHOD.
METHOD english. METHOD english.