diff --git a/ZA2X/CLAS/ZCL_EXCEL_COMMON.slnk b/ZA2X/CLAS/ZCL_EXCEL_COMMON.slnk index 1aa55ef..e4dfd6d 100644 --- a/ZA2X/CLAS/ZCL_EXCEL_COMMON.slnk +++ b/ZA2X/CLAS/ZCL_EXCEL_COMMON.slnk @@ -86,6 +86,106 @@ protected section. *"* implementation or private method's signature *"* use this source file for any macro definitions you need *"* in the implementation part of the class + *----------------------------------------------------------------------* +* CLASS zcl_Excel_Common_Test DEFINITION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* +CLASS zcl_excel_common_test DEFINITION FOR TESTING + DURATION SHORT + RISK LEVEL HARMLESS +. +*?#<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0"> +*?<asx:values> +*?<TESTCLASS_OPTIONS> +*?<TEST_CLASS>zcl_Excel_Common_Test +*?</TEST_CLASS> +*?<TEST_MEMBER>f_Cut +*?</TEST_MEMBER> +*?<OBJECT_UNDER_TEST>ZCL_EXCEL_COMMON +*?</OBJECT_UNDER_TEST> +*?<OBJECT_IS_LOCAL/> +*?<GENERATE_FIXTURE/> +*?<GENERATE_CLASS_FIXTURE/> +*?<GENERATE_INVOCATION>X +*?</GENERATE_INVOCATION> +*?<GENERATE_ASSERT_EQUAL>X +*?</GENERATE_ASSERT_EQUAL> +*?</TESTCLASS_OPTIONS> +*?</asx:values> +*?</asx:abap> + PRIVATE SECTION. +* ================ + DATA: + f_cut TYPE REF TO zcl_excel_common. "class under test + + METHODS: convert_columnrow2column_a_row FOR TESTING. +ENDCLASS. "zcl_Excel_Common_Test + + +*----------------------------------------------------------------------* +* CLASS zcl_Excel_Common_Test IMPLEMENTATION +*----------------------------------------------------------------------* +* +*----------------------------------------------------------------------* +CLASS zcl_excel_common_test IMPLEMENTATION. +* =========================================== + + METHOD convert_columnrow2column_a_row. +* ====================================== + DATA i_columnrow TYPE string VALUE 'AB344'. + DATA e_column TYPE zexcel_cell_column_alpha. + DATA e_row TYPE zexcel_cell_row. + + zcl_excel_common=>convert_columnrow2column_a_row( + EXPORTING + i_columnrow = i_columnrow + IMPORTING + e_column = e_column + e_row = e_row + ). + + cl_abap_unit_assert=>assert_equals( + act = e_column + exp = 'AB' + msg = 'Testing value e_Column' +* level = + ). + cl_abap_unit_assert=>assert_equals( + act = e_row + exp = 344 + msg = 'Testing value e_Row' +* level = + ). + + i_columnrow = 'B3'. + + zcl_excel_common=>convert_columnrow2column_a_row( + EXPORTING + i_columnrow = i_columnrow + IMPORTING + e_column = e_column + e_row = e_row + ). + + cl_abap_unit_assert=>assert_equals( + act = e_column + exp = 'B' + msg = 'Testing value e_Column' +* level = + ). + cl_abap_unit_assert=>assert_equals( + act = e_row + exp = 3 + msg = 'Testing value e_Row' +* level = + ). + ENDMETHOD. "convert_Columnrow2column_A_Row + + + + +ENDCLASS. "zcl_Excel_Common_Test