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

action utils: 2 methods to private, rm get_fields() (#6370)

Browse Source
This commit is contained in:
Lars Hvam 2023-07-27 08:00:33 +02:00 committed by GitHub
parent 7011e87d8c
commit 8b568e6e45
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 14 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
src/ui/lib/zcl_abapgit_html_action_utils.clas.abap
View File

@ -16,24 +16,6 @@ CLASS zcl_abapgit_html_action_utils DEFINITION
!iv_upper_cased TYPE abap_bool DEFAULT abap_false
RETURNING
VALUE(rt_fields) TYPE tihttpnvp .
CLASS-METHODS parse_fields_upper_case_name
IMPORTING
!iv_string TYPE clike
RETURNING
VALUE(rt_fields) TYPE tihttpnvp .
CLASS-METHODS translate_postdata
IMPORTING
!it_postdata TYPE zif_abapgit_html_viewer=>ty_post_data
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS get_field
IMPORTING
!iv_name TYPE string
!it_field TYPE tihttpnvp
!iv_decode TYPE abap_bool DEFAULT abap_false
CHANGING
!cg_field TYPE any .
CLASS-METHODS jump_encode
IMPORTING
!iv_obj_type TYPE tadir-object
@ -46,7 +28,6 @@ CLASS zcl_abapgit_html_action_utils DEFINITION
!iv_path TYPE string
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS file_encode
IMPORTING
!iv_key TYPE zif_abapgit_persistence=>ty_repo-key
@ -59,18 +40,27 @@ CLASS zcl_abapgit_html_action_utils DEFINITION
!ig_object TYPE any
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS class_constructor.
CLASS-METHODS class_constructor .
CLASS-METHODS dbkey_encode
IMPORTING
!is_key TYPE zif_abapgit_persistence=>ty_content
RETURNING
VALUE(rv_string) TYPE string .
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA gv_non_breaking_space TYPE string.
CLASS-DATA gv_non_breaking_space TYPE string .
CLASS-METHODS parse_fields_upper_case_name
IMPORTING
!iv_string TYPE clike
RETURNING
VALUE(rt_fields) TYPE tihttpnvp .
CLASS-METHODS translate_postdata
IMPORTING
!it_postdata TYPE zif_abapgit_html_viewer=>ty_post_data
RETURNING
VALUE(rv_string) TYPE string .
CLASS-METHODS field_keys_to_upper
CHANGING
!ct_fields TYPE tihttpnvp .
@ -89,7 +79,7 @@ ENDCLASS.
CLASS zcl_abapgit_html_action_utils IMPLEMENTATION.
CLASS ZCL_ABAPGIT_HTML_ACTION_UTILS IMPLEMENTATION.
METHOD add_field.
@ -181,39 +171,6 @@ CLASS zcl_abapgit_html_action_utils IMPLEMENTATION.
ENDMETHOD.
METHOD get_field.
DATA: lv_value TYPE string.
FIELD-SYMBOLS: <ls_field> LIKE LINE OF it_field,
<lg_dest> TYPE any.
READ TABLE it_field ASSIGNING <ls_field> WITH KEY name = iv_name.
IF sy-subrc IS NOT INITIAL.
RETURN.
ENDIF.
lv_value = <ls_field>-value.
IF iv_decode = abap_true.
lv_value = cl_http_utility=>unescape_url( escaped = lv_value ).
ENDIF.
CASE cl_abap_typedescr=>describe_by_data( cg_field )->kind.
WHEN cl_abap_typedescr=>kind_elem.
cg_field = lv_value.
WHEN cl_abap_typedescr=>kind_struct.
ASSIGN COMPONENT iv_name OF STRUCTURE cg_field TO <lg_dest>.
ASSERT <lg_dest> IS ASSIGNED.
<lg_dest> = lv_value.
WHEN OTHERS.
ASSERT 0 = 1.
ENDCASE.
ENDMETHOD.
METHOD jump_encode.
DATA: lt_fields TYPE tihttpnvp.

33
src/ui/lib/zcl_abapgit_html_action_utils.clas.testclasses.abap
View File

@ -4,7 +4,6 @@ CLASS ltcl_html_action_utils DEFINITION FOR TESTING RISK LEVEL HARMLESS
PUBLIC SECTION.
CLASS-METHODS class_constructor.
METHODS get_field FOR TESTING.
METHODS parse_fields_simple_case FOR TESTING.
METHODS parse_fields_advanced_case FOR TESTING.
METHODS parse_fields_unescape FOR TESTING.
@ -66,38 +65,6 @@ CLASS ltcl_html_action_utils IMPLEMENTATION.
ENDMETHOD.
METHOD get_field.
DATA: lt_fields TYPE tihttpnvp,
ls_answer LIKE LINE OF lt_fields,
ls_field LIKE LINE OF lt_fields.
ls_answer-name = 'NAME'.
ls_answer-value = 'TEST'.
APPEND ls_answer TO lt_fields.
zcl_abapgit_html_action_utils=>get_field(
EXPORTING
iv_name = 'NAME'
it_field = lt_fields
CHANGING
cg_field = ls_field-value ).
zcl_abapgit_html_action_utils=>get_field(
EXPORTING
iv_name = 'NAME'
it_field = lt_fields
CHANGING
cg_field = ls_field ).
ls_answer-name = 'TEST'.
ls_answer-value = 'TEST'.
cl_abap_unit_assert=>assert_equals(
act = ls_field
exp = ls_answer ). " Both field are filled!
ENDMETHOD.
METHOD parse_fields_simple_case.
_given_string_is( `committer_name=Gustav Gans` ).