SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 20:03:20 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Enable unit-testing for generic object saplink

Browse Source
This commit is contained in:
mrsimpson 2016-02-13 11:47:10 +00:00
parent bd7aa464d2
commit 9a0eb2506c
3 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
zsaplink_generic_obj.clas.abap
View File

@ -54,7 +54,7 @@ CLASS zsaplink_generic_obj DEFINITION
METHODS deleteobject
REDEFINITION .
PRIVATE SECTION.
PRIVATE SECTION.
DATA mo_xml_bridge TYPE REF TO lcl_tlogo_xml_bridge .
data include_last_changed type abap_bool.
@ -64,6 +64,7 @@ CLASS zsaplink_generic_obj DEFINITION
METHODS get_xml_bridge
RETURNING
VALUE(ro_xml_bridge) TYPE REF TO lcl_tlogo_xml_bridge .
METHODS metadata_to_xml
IMPORTING
!it_metadata TYPE lcl_tlogo_xml_bridge=>tt_obj_metadata

11
zsaplink_generic_obj.clas.locals_def.abap
View File

@ -47,6 +47,7 @@ CLASS lcl_rso_tlogo_xml_bridge DEFINITION
METHODS get_timestmp_of_data
RETURNING
VALUE(r_timestmp) TYPE rstimestmp .
PROTECTED SECTION.
*"* protected components of class CL_RSO_TLOGO_XML_BRIDGE
*"* do not include other source files here!!!
@ -96,6 +97,16 @@ CLASS lcl_rso_tlogo_xml_bridge DEFINITION
data mv_include_last_changed type abap_bool.
METHODS read_tlogo_prop .
METHODS do_delete
IMPORTING
iv_tlogo_table TYPE lcl_rso_tlogo_xml_bridge=>pt_s_tlogo_tables-tabname
iv_where_clause type lcl_rso_tlogo_xml_bridge=>pt_s_tlogo_tables-where_clause.
METHODS do_insert
IMPORTING
iv_tlogo_table TYPE lcl_rso_tlogo_xml_bridge=>pt_s_tlogo_tables-tabname
it_data TYPE STANDARD TABLE.
ENDCLASS.
CLASS lcl_tlogo_xml_bridge DEFINITION INHERITING FROM lcl_rso_tlogo_xml_bridge

26
zsaplink_generic_obj.clas.locals_imp.abap
View File

@ -608,12 +608,13 @@ WITH UNIQUE KEY num.
i_detlevel = i_detlevel.
e_subrc = 8.
ELSE.
* #CP-SUPPRESS: FP secure coding, no user input
DELETE FROM (<l_s_tlogo_tables>-tabname) WHERE (<l_s_tlogo_tables>-where_clause).
do_delete( iv_tlogo_table = <l_s_tlogo_tables>-tabname
iv_where_clause = <l_s_tlogo_tables>-where_clause ).
ENDIF.
* actual insert
ASSIGN <l_s_tlogo_tables>-data->* TO <l_t_data>.
INSERT (<l_s_tlogo_tables>-tabname) FROM TABLE <l_t_data>.
do_insert( iv_tlogo_table = <l_s_tlogo_tables>-tabname
it_data = <l_t_data> ).
IF sy-subrc <> 0.
MESSAGE e221(rsoxml) WITH p_objnm p_tlogo <l_s_tlogo_tables>-tabname INTO l_dummy.
CALL METHOD cl_rso_application_log=>if_rso_application_log~add_message_level
@ -625,6 +626,21 @@ WITH UNIQUE KEY num.
ENDLOOP.
ENDMETHOD. "
METHOD do_delete.
* #CP-SUPPRESS: FP secure coding, no user input
DELETE FROM (iv_tlogo_table) WHERE (iv_where_clause).
ENDMETHOD.
METHOD do_insert.
INSERT (iv_tlogo_table) FROM TABLE it_data.
ENDMETHOD.
ENDCLASS.
CLASS lcl_tlogo_xml_bridge IMPLEMENTATION.
@ -694,8 +710,8 @@ CLASS lcl_tlogo_xml_bridge IMPLEMENTATION.
* Some sanity checks
ASSERT lv_where_clause IS NOT INITIAL.
DELETE FROM (<ls_objsl>-tobj_name) WHERE (lv_where_clause).
do_delete( iv_tlogo_table = conv #( <ls_objsl>-tobj_name )
iv_where_clause = lv_where_clause ).
IF <ls_objsl>-prim_table = abap_true.
DATA(lv_dbcnt) = sy-dbcnt.
validate_count_prim_table( iv_dbcount = lv_dbcnt iv_objname = iv_objname ).