TABU: Fix deserializing data config (#6684)

Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Marc Bernard 2023-12-01 11:37:21 -05:00 committed by GitHub
parent 29c9018300
commit 8fc84426a7
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 48 additions and 3 deletions

View File

@ -201,7 +201,11 @@ CLASS zcl_abapgit_filename_logic IMPLEMENTATION.
iv_package = iv_package iv_package = iv_package
CHANGING CHANGING
cs_item = cs_item. cs_item = cs_item.
CATCH cx_sy_dyn_call_illegal_class ##NO_HANDLER. CATCH cx_sy_dyn_call_illegal_class.
" Map data config to TABU object type
IF cs_item-obj_type = 'CONF'.
cs_item-obj_type = 'TABU'.
ENDIF.
ENDTRY. ENDTRY.
ENDMETHOD. ENDMETHOD.

View File

@ -171,6 +171,9 @@ CLASS ltcl_run_checks IMPLEMENTATION.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
exp = 'ZTEST=========================VC' exp = 'ZTEST=========================VC'
act = ls_item-obj_name ). act = ls_item-obj_name ).
cl_abap_unit_assert=>assert_equals(
exp = abap_false
act = lv_is_xml ).
zcl_abapgit_filename_logic=>file_to_object( zcl_abapgit_filename_logic=>file_to_object(
EXPORTING EXPORTING
@ -188,10 +191,13 @@ CLASS ltcl_run_checks IMPLEMENTATION.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
exp = 'ZMIME_<>_?' exp = 'ZMIME_<>_?'
act = ls_item-obj_name ). act = ls_item-obj_name ).
cl_abap_unit_assert=>assert_equals(
exp = abap_false
act = lv_is_xml ).
zcl_abapgit_filename_logic=>file_to_object( zcl_abapgit_filename_logic=>file_to_object(
EXPORTING EXPORTING
iv_filename = 'ztest(name).w3mi.data,json' iv_filename = 'ztest(name).w3mi.data.json'
iv_path = '/src/' iv_path = '/src/'
iv_devclass = '$PACK' iv_devclass = '$PACK'
io_dot = mo_dot io_dot = mo_dot
@ -205,6 +211,9 @@ CLASS ltcl_run_checks IMPLEMENTATION.
cl_abap_unit_assert=>assert_equals( cl_abap_unit_assert=>assert_equals(
exp = 'ZTEST(NAME)' exp = 'ZTEST(NAME)'
act = ls_item-obj_name ). act = ls_item-obj_name ).
cl_abap_unit_assert=>assert_equals(
exp = abap_false
act = lv_is_xml ).
" AFF file " AFF file
zcl_abapgit_filename_logic=>file_to_object( zcl_abapgit_filename_logic=>file_to_object(
@ -227,7 +236,6 @@ CLASS ltcl_run_checks IMPLEMENTATION.
exp = abap_true exp = abap_true
act = lv_is_json ). act = lv_is_json ).
" AFF file with namespace " AFF file with namespace
zcl_abapgit_filename_logic=>file_to_object( zcl_abapgit_filename_logic=>file_to_object(
EXPORTING EXPORTING
@ -249,6 +257,39 @@ CLASS ltcl_run_checks IMPLEMENTATION.
exp = abap_true exp = abap_true
act = lv_is_json ). act = lv_is_json ).
" Data TABU
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = 'zdata.tabu.json'
iv_path = '/src/'
iv_devclass = '$PACK'
io_dot = mo_dot
IMPORTING
es_item = ls_item ).
cl_abap_unit_assert=>assert_equals(
exp = 'TABU'
act = ls_item-obj_type ).
cl_abap_unit_assert=>assert_equals(
exp = 'ZDATA'
act = ls_item-obj_name ).
zcl_abapgit_filename_logic=>file_to_object(
EXPORTING
iv_filename = 'zdata.conf.json'
iv_path = '/src/'
iv_devclass = '$PACK'
io_dot = mo_dot
IMPORTING
es_item = ls_item ).
cl_abap_unit_assert=>assert_equals(
exp = 'TABU'
act = ls_item-obj_type ).
cl_abap_unit_assert=>assert_equals(
exp = 'ZDATA'
act = ls_item-obj_name ).
ENDMETHOD. ENDMETHOD.
METHOD object_to_file. METHOD object_to_file.