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

Add unit test for issue #241 Error in ZCL_EXCEL_COMMON=>CONVERT_RANGE2COLUMN_A_ROW

Browse Source 
git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@421 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049
This commit is contained in:
Gregor Wolf 2013-05-24 09:20:06 +00:00
parent 41a2b67b0a
commit d84f04f8ac
1 changed files with 163 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

164
ZA2X/CLAS/ZCL_EXCEL_COMMON.slnk
View File

@ -59,6 +59,7 @@ CLASS lcl_excel_common_test DEFINITION FOR TESTING "#AU Risk_Level Harmles
* METHODS: number_to_excel_string FOR TESTING.
METHODS: time_to_excel_string FOR TESTING.
METHODS: split_file FOR TESTING.
METHODS: convert_range2column_a_row FOR TESTING.
ENDCLASS. "lcl_Excel_Common_Test
@ -724,7 +725,168 @@ CLASS lcl_excel_common_test IMPLEMENTATION.
msg = 'Split extension failed'
level = if_aunit_constants=>critical ).
ENDMETHOD. "split_file
ENDMETHOD. "split_file
METHOD convert_range2column_a_row.
DATA: lv_range TYPE string.
DATA: lv_column_start TYPE zexcel_cell_column_alpha,
lv_column_end TYPE zexcel_cell_column_alpha,
lv_row_start TYPE zexcel_cell_row,
lv_row_end TYPE zexcel_cell_row,
lv_sheet TYPE string.
* a) input empty --> nothing to do
zcl_excel_common=>convert_range2column_a_row(
EXPORTING
i_range = lv_range
IMPORTING
e_column_start = lv_column_start " Cell Column Start
e_column_end = lv_column_end " Cell Column End
e_row_start = lv_row_start " Cell Row
e_row_end = lv_row_end " Cell Row
e_sheet = lv_sheet " Title
).
zcl_excel_common=>assert_equals(
act = lv_column_start
exp = ''
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_column_end
exp = ''
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_row_start
exp = ''
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_row_end
exp = ''
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_sheet
exp = ''
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
* b) sheetname existing - starts with ' example 'Sheet 1'!$B$6:$D$13
lv_range = `'Sheet 1'!$B$6:$D$13`.
zcl_excel_common=>convert_range2column_a_row(
EXPORTING
i_range = lv_range
IMPORTING
e_column_start = lv_column_start " Cell Column Start
e_column_end = lv_column_end " Cell Column End
e_row_start = lv_row_start " Cell Row
e_row_end = lv_row_end " Cell Row
e_sheet = lv_sheet " Title
).
zcl_excel_common=>assert_equals(
act = lv_column_start
exp = 'B'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_column_end
exp = 'D'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_row_start
exp = '6'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_row_end
exp = '13'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_sheet
exp = 'Sheet 1'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
* c) sheetname existing - does not start with ' example Sheet1!$B$6:$D$13
lv_range = `Sheet1!B6:$D$13`.
zcl_excel_common=>convert_range2column_a_row(
EXPORTING
i_range = lv_range
IMPORTING
e_column_start = lv_column_start " Cell Column Start
e_column_end = lv_column_end " Cell Column End
e_row_start = lv_row_start " Cell Row
e_row_end = lv_row_end " Cell Row
e_sheet = lv_sheet " Title
).
zcl_excel_common=>assert_equals(
act = lv_column_start
exp = 'B'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_column_end
exp = 'D'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_row_start
exp = '6'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_row_end
exp = '13'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_sheet
exp = 'Sheet1'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
* d) no sheetname - just area example $B$6:$D$13
lv_range = `$B$6:D13`.
zcl_excel_common=>convert_range2column_a_row(
EXPORTING
i_range = lv_range
IMPORTING
e_column_start = lv_column_start " Cell Column Start
e_column_end = lv_column_end " Cell Column End
e_row_start = lv_row_start " Cell Row
e_row_end = lv_row_end " Cell Row
e_sheet = lv_sheet " Title
).
zcl_excel_common=>assert_equals(
act = lv_column_start
exp = 'B'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_column_end
exp = 'D'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_row_start
exp = '6'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_row_end
exp = '13'
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
zcl_excel_common=>assert_equals(
act = lv_sheet
exp = ''
msg = 'Conversion of range failed'
level = if_aunit_constants=>critical ).
ENDMETHOD.
ENDCLASS. &quot;lcl_Excel_Common_Test</localTestClasses>
<textPool>