Press n or j to go to the next uncovered block, b, p or k for the previous block.
| 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 | 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 4x 4x 4x 4x 4x 4x 4x 4x 4x 4x 4x 3x 3x 3x 3x 3x 3x 3x 3x 3x 3x 3x 3x 3x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x 1x | CLASS ltcl_parse DEFINITION DEFERRED.
CLASS zcl_abapgit_git_branch_list DEFINITION LOCAL FRIENDS ltcl_parse.
CLASS ltcl_parse DEFINITION FOR TESTING
DURATION SHORT
RISK LEVEL HARMLESS FINAL.
PRIVATE SECTION.
METHODS:
parse
IMPORTING
iv_expected_lines TYPE i DEFAULT 2
RAISING
zcx_abapgit_exception.
METHODS:
parse_ok_without_first_lf FOR TESTING RAISING zcx_abapgit_exception,
parse_works FOR TESTING RAISING zcx_abapgit_exception,
captcha_response_is_caught FOR TESTING RAISING zcx_abapgit_exception,
parse_raw FOR TESTING RAISING cx_static_check,
use_refs_if_head_is_missing FOR TESTING RAISING cx_static_check.
DATA: mt_data TYPE STANDARD TABLE OF string WITH DEFAULT KEY.
ENDCLASS.
CLASS ltcl_parse IMPLEMENTATION.
METHOD parse.
DATA: lv_data TYPE string,
lt_list TYPE zif_abapgit_git_definitions=>ty_git_branch_list_tt.
CONCATENATE LINES OF mt_data INTO lv_data SEPARATED BY cl_abap_char_utilities=>newline.
zcl_abapgit_git_branch_list=>parse_branch_list(
EXPORTING
iv_data = lv_data
IMPORTING
et_list = lt_list ).
cl_abap_unit_assert=>assert_not_initial( lt_list ).
cl_abap_unit_assert=>assert_equals(
act = lines( lt_list )
exp = iv_expected_lines ).
READ TABLE lt_list WITH TABLE KEY name_key
COMPONENTS name = zif_abapgit_git_definitions=>c_git_branch-main
TRANSPORTING NO FIELDS.
cl_abap_unit_assert=>assert_subrc( ).
ENDMETHOD.
METHOD parse_ok_without_first_lf.
* without linefeed after first pkt-line
*
* see https://github.com/git/git/blob/master/Documentation/technical/pack-protocol.txt
*
* "unless otherwise noted the usual pkt-line LF rules apply: the sender SHOULD include a
* LF, but the receiver MUST NOT complain if it is not present"
APPEND '001d# service=git-upload-pack000000d2b5d5f1f84ebcaeb8a299edd14c959518e9d81bb5 HEAD#asdf' TO mt_data.
APPEND '003fb5d5f1f84ebcaeb8a299edd14c959518e9d81bb5 refs/heads/main' TO mt_data.
APPEND '0000' TO mt_data.
parse( ).
ENDMETHOD.
METHOD parse_works.
APPEND '001e# service=git-upload-pack' TO mt_data.
APPEND '000001080e6fe6b311f789ccbac6c5122702d4f48a4f6bda HEAD#asdf' TO mt_data.
APPEND '003f0e6fe6b311f789ccbac6c5122702d4f48a4f6bda refs/heads/main' TO mt_data.
parse( ).
ENDMETHOD.
METHOD captcha_response_is_caught.
* https://github.com/abapGit/abapGit/issues/4523
DATA lx_error TYPE REF TO zcx_abapgit_exception.
DATA lv_data TYPE string.
lv_data = |001e\n service=git-upload-pack\n00000230ERR CAPTCHA required\nYour Bitbucket account etc..|.
APPEND lv_data TO mt_data.
TRY.
parse( ).
cl_abap_unit_assert=>fail( ).
CATCH zcx_abapgit_exception INTO lx_error.
cl_abap_unit_assert=>assert_char_cp(
act = lx_error->get_text( )
exp = '*CAPTCHA*' ).
ENDTRY.
ENDMETHOD.
METHOD use_refs_if_head_is_missing.
" https://github.com/abapGit/abapGit/issues/4703
" In case HEAD is missing, it should use refs/heads/xxxxx as the default branch
APPEND '001e# service=git-upload-pack' TO mt_data.
APPEND '000000f7e6e5b066fb4177bf0780bf343ab2de06368dd973 refs/heads/main' TO mt_data.
APPEND '0000' TO mt_data.
parse( 1 ).
ENDMETHOD.
METHOD parse_raw.
* this is a real as hex, which contains the null value
DATA lv_xstr TYPE xstring.
DATA lv_data TYPE string.
DATA lv_ref TYPE string.
lv_xstr = '303031652320736572766963653D6769742D7570'
&& '6C6F61642D7061636B0A30303030303135346639'
&& '6563323364366439333561613764633236656531'
&& '3431633762343666656564396434363835652048'
&& '454144006D756C74695F61636B207468696E2D70'
&& '61636B20736964652D62616E6420736964652D62'
&& '616E642D36346B206F66732D64656C7461207368'
&& '616C6C6F772064656570656E2D73696E63652064'
&& '656570656E2D6E6F742064656570656E2D72656C'
&& '6174697665206E6F2D70726F677265737320696E'
&& '636C7564652D746167206D756C74695F61636B5F'
&& '64657461696C656420616C6C6F772D7469702D73'
&& '6861312D696E2D77616E7420616C6C6F772D7265'
&& '61636861626C652D736861312D696E2D77616E74'
&& '206E6F2D646F6E652073796D7265663D48454144'
&& '3A726566732F68656164732F6D61696E2066696C'
&& '746572206F626A6563742D666F726D61743D7368'
&& '6131206167656E743D6769742F6769746875622D'
&& '673964323537636462383634300A303033646639'
&& '6563323364366439333561613764633236656531'
&& '3431633762343666656564396434363835652072'
&& '6566732F68656164732F6D61696E0A30303030'.
lv_data = zcl_abapgit_convert=>xstring_to_string_utf8( lv_xstr ).
zcl_abapgit_git_branch_list=>parse_branch_list(
EXPORTING
iv_data = lv_data
IMPORTING
ev_head_symref = lv_ref ).
cl_abap_unit_assert=>assert_char_cp(
act = lv_ref
exp = 'refs/heads/main' ).
ENDMETHOD.
ENDCLASS.
|