SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 04:08:27 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Remove test data container variants on pull that do not exist on the remote (#6493)

Browse Source 
Co-authored-by: Marc Bernard <59966492+mbtools@users.noreply.github.com>
Co-authored-by: Marc Bernard <marc@marcbernardtools.com>
This commit is contained in:
Fabian Lupa 2023-09-14 18:30:20 +02:00 committed by GitHub
parent 13043b4d34
commit b1daa71226
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 62 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
src/objects/ecatt/zcl_abapgit_ecatt_data_upload.clas.abap
View File

@ -8,19 +8,44 @@ CLASS zcl_abapgit_ecatt_data_upload DEFINITION
INTERFACES:
zif_abapgit_ecatt_upload.
METHODS upload REDEFINITION.
PROTECTED SECTION.
METHODS:
upload_data_from_stream REDEFINITION.
PRIVATE SECTION.
DATA: mv_external_xml TYPE xstring.
DATA: mv_external_xml TYPE xstring,
BEGIN OF ms_current_object,
s_obj_type TYPE etobj_type,
d_obj_name TYPE etobjdname,
d_obj_ver TYPE etobjdver,
END OF ms_current_object,
mx_ecatt_apl TYPE REF TO cx_ecatt_apl.
METHODS on_ev_object_saved FOR EVENT ev_object_saved OF cl_apl_ecatt_object IMPORTING ex_ecatt_object.
ENDCLASS.
CLASS ZCL_ABAPGIT_ECATT_DATA_UPLOAD IMPLEMENTATION.
METHOD upload.
SET HANDLER on_ev_object_saved FOR ALL INSTANCES.
ms_current_object-s_obj_type = ch_object-s_obj_type.
ms_current_object-d_obj_name = ch_object-d_obj_name.
ms_current_object-d_obj_ver = ch_object-d_obj_ver.
TRY.
super->upload( CHANGING ch_object = ch_object ).
SET HANDLER on_ev_object_saved FOR ALL INSTANCES ACTIVATION abap_false.
CLEANUP.
SET HANDLER on_ev_object_saved FOR ALL INSTANCES ACTIVATION abap_false.
ENDTRY.
IF mx_ecatt_apl IS BOUND.
raise_upload_exception( previous = mx_ecatt_apl ).
ENDIF.
ENDMETHOD.
METHOD upload_data_from_stream.
@ -36,4 +61,37 @@ CLASS ZCL_ABAPGIT_ECATT_DATA_UPLOAD IMPLEMENTATION.
mv_external_xml = iv_xml.
ENDMETHOD.
METHOD on_ev_object_saved.
DATA lo_ecatt_td TYPE REF TO cl_apl_ecatt_test_data.
" Trickery to remove any local variants that do not exist on the remote on pull.
SET HANDLER on_ev_object_saved FOR ALL INSTANCES ACTIVATION abap_false.
TRY.
IF ex_ecatt_object->object_type <> ms_current_object-s_obj_type OR
ex_ecatt_object->object_name <> ms_current_object-d_obj_name OR
ex_ecatt_object->object_version <> ms_current_object-d_obj_ver.
CREATE OBJECT mx_ecatt_apl
EXPORTING
textid = cx_ecatt_apl=>any_text
free_text = 'Unexpected object in save sequence'.
RETURN.
ENDIF.
lo_ecatt_td ?= ex_ecatt_object.
lo_ecatt_td->params->delete_variants( '*' ).
TRY.
CALL METHOD ('GET_VARIANTS_FROM_DOM_NEW')
EXPORTING
im_params = lo_ecatt_td->params.
CATCH cx_sy_dyn_call_error.
get_variants_from_dom( lo_ecatt_td->params ).
ENDTRY.
lo_ecatt_td->save( ).
CATCH cx_ecatt_apl INTO mx_ecatt_apl.
RETURN.
ENDTRY.
ENDMETHOD.
ENDCLASS.

2
src/objects/zcl_abapgit_object_ecatt_super.clas.abap
View File

@ -595,6 +595,8 @@ CLASS zcl_abapgit_object_ecatt_super IMPLEMENTATION.
IMPORTING
ex_version_info = lt_version_info ).
SORT lt_version_info BY version.
li_document = cl_ixml=>create( )->create_document( ).
serialize_versions(