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

Create branch: Add existence check (#4794)

Browse Source 
Co-authored-by: Lars Hvam <larshp@hotmail.com>
This commit is contained in:
Christian Günter 2021-05-28 06:09:27 +02:00 committed by GitHub
parent 5f4eb56071
commit f97320f1dc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 29 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/repo/zcl_abapgit_repo_online.clas.abap
View File

@ -59,6 +59,11 @@ CLASS zcl_abapgit_repo_online DEFINITION
VALUE(rt_objects) TYPE zif_abapgit_definitions=>ty_objects_tt
RAISING
zcx_abapgit_exception .
METHODS raise_error_if_branch_exists
IMPORTING
iv_name TYPE string
RAISING
zcx_abapgit_exception.
ENDCLASS.
@ -175,6 +180,8 @@ CLASS zcl_abapgit_repo_online IMPLEMENTATION.
lv_sha1 = iv_from.
ENDIF.
raise_error_if_branch_exists( iv_name ).
zcl_abapgit_git_porcelain=>create_branch(
iv_url = get_url( )
iv_name = iv_name
@ -324,4 +331,23 @@ CLASS zcl_abapgit_repo_online IMPLEMENTATION.
ENDIF.
ENDMETHOD.
METHOD raise_error_if_branch_exists.
DATA:
lt_branches TYPE zif_abapgit_definitions=>ty_git_branch_list_tt,
lv_display_name TYPE string.
lt_branches = zcl_abapgit_git_transport=>branches( get_url( ) )->get_branches_only( ).
READ TABLE lt_branches WITH TABLE KEY name_key
COMPONENTS name = iv_name
TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
lv_display_name = zcl_abapgit_git_branch_list=>get_display_name( iv_name ).
zcx_abapgit_exception=>raise( |Branch '{ lv_display_name }' already exists| ).
ENDIF.
ENDMETHOD.
ENDCLASS.

4
src/zif_abapgit_definitions.intf.abap
View File

@ -42,7 +42,9 @@ INTERFACE zif_abapgit_definitions
display_name TYPE string,
END OF ty_git_branch .
TYPES:
ty_git_branch_list_tt TYPE STANDARD TABLE OF ty_git_branch WITH DEFAULT KEY .
ty_git_branch_list_tt TYPE STANDARD TABLE OF ty_git_branch WITH DEFAULT KEY
WITH NON-UNIQUE SORTED KEY name_key
COMPONENTS name.
TYPES:
BEGIN OF ty_git_tag,
sha1 TYPE ty_sha1,