SAP/abap2xlsx
1
0
Fork 0
mirror of https://github.com/abap2xlsx/abap2xlsx.git synced 2025-05-05 19:26:10 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge branch 'main' into hvam/unit2807

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

2
src/zcl_excel_common.clas.abap
View File

@ -846,7 +846,7 @@ CLASS zcl_excel_common IMPLEMENTATION.
lv_value = ip_value.
FIND REGEX `\s|'` IN lv_value. " \s finds regular and white spaces
FIND REGEX `\s|'|-` IN lv_value. " \s finds regular and white spaces
IF sy-subrc = 0.
REPLACE ALL OCCURRENCES OF `'` IN lv_value WITH `''`.
CONCATENATE `'` lv_value `'` INTO lv_value .

89
src/zcl_excel_common.clas.testclasses.abap
View File

@ -123,6 +123,13 @@ CLASS lcl_excel_common_test DEFINITION FOR TESTING
METHODS is_cell_in_range_rightside_out FOR TESTING.
METHODS is_cell_in_range_lowerside_out FOR TESTING.
METHODS recursive_struct_to_class FOR TESTING RAISING cx_static_check.
METHODS escape_string_whitespace1 FOR TESTING.
METHODS escape_string_whitespace2 FOR TESTING.
METHODS escape_string_whitespace3 FOR TESTING.
METHODS escape_string_quote FOR TESTING.
METHODS escape_string_hyphen FOR TESTING.
METHODS escape_string_regular FOR TESTING.
ENDCLASS.
@ -1620,6 +1627,88 @@ CLASS lcl_excel_common_test IMPLEMENTATION.
act = style->number_format->format_code
exp = 'hello' ).
METHOD escape_string_hyphen.
DATA: name TYPE string,
escaped_name TYPE string.
name = `A-B`.
escaped_name = zcl_excel_common=>escape_string( name ).
cl_abap_unit_assert=>assert_equals( act = escaped_name
exp = `'A-B'`
msg = 'Escaping - failed' ).
ENDMETHOD.
METHOD escape_string_quote.
DATA: name TYPE string,
escaped_name TYPE string.
name = `A'B`.
escaped_name = zcl_excel_common=>escape_string( name ).
cl_abap_unit_assert=>assert_equals( act = escaped_name
exp = `'A''B'`
msg = `Escaping ' failed` ).
ENDMETHOD.
METHOD escape_string_regular.
DATA: name TYPE string,
escaped_name TYPE string.
name = `Ab1`.
escaped_name = zcl_excel_common=>escape_string( name ).
cl_abap_unit_assert=>assert_equals( act = escaped_name
exp = `Ab1`
msg = 'Escaped for no reason' ).
ENDMETHOD.
METHOD escape_string_whitespace1.
DATA: name TYPE string,
escaped_name TYPE string.
name = `A B`.
escaped_name = zcl_excel_common=>escape_string( name ).
cl_abap_unit_assert=>assert_equals( act = escaped_name
exp = `'A B'`
msg = `Escaping ' ' (space) failed` ).
ENDMETHOD.
METHOD escape_string_whitespace2.
DATA: name TYPE string,
escaped_name TYPE string.
name = `A` && cl_abap_char_utilities=>horizontal_tab && `B`.
escaped_name = zcl_excel_common=>escape_string( name ).
cl_abap_unit_assert=>assert_equals( act = escaped_name
exp = `'A` && cl_abap_char_utilities=>horizontal_tab && `B'`
msg = `Escaping TAB failed` ).
ENDMETHOD.
METHOD escape_string_whitespace3.
DATA: name TYPE string,
escaped_name TYPE string.
name = `A` && cl_abap_char_utilities=>newline && `B`.
escaped_name = zcl_excel_common=>escape_string( name ).
cl_abap_unit_assert=>assert_equals( act = escaped_name
exp = `'A` && cl_abap_char_utilities=>newline && `B'`
msg = `Escaping LF failed` ).
ENDMETHOD.
ENDCLASS.