From 85ecc3936a6d58262d58174a9e590bc724f74bf8 Mon Sep 17 00:00:00 2001 From: sbcgua Date: Sun, 6 Nov 2016 12:46:45 +0200 Subject: [PATCH] temp commit UT --- src/zabapgit_file_status.prog.abap | 13 ++++++++++--- src/zabapgit_unit_test.prog.abap | 28 ++++++++++++++-------------- 2 files changed, 24 insertions(+), 17 deletions(-) diff --git a/src/zabapgit_file_status.prog.abap b/src/zabapgit_file_status.prog.abap index b32a680f6..0dd5340dd 100644 --- a/src/zabapgit_file_status.prog.abap +++ b/src/zabapgit_file_status.prog.abap @@ -218,9 +218,16 @@ CLASS lcl_file_status IMPLEMENTATION. * add package information LOOP AT rt_results ASSIGNING WHERE NOT obj_type IS INITIAL. - ls_tadir = lcl_tadir=>read_single( iv_object = -obj_type - iv_obj_name = -obj_name ). - -package = ls_tadir-devclass. + CLEAR ls_tadir. + READ TABLE it_tadir ASSIGNING + WITH KEY object = -obj_type obj_name = -obj_name. + IF sy-subrc > 0. " Not found -> Another package ? + ls_tadir = lcl_tadir=>read_single( iv_object = -obj_type + iv_obj_name = -obj_name ). + -package = ls_tadir-devclass. + ELSE. + -package = -devclass. + ENDIF. ENDLOOP. SORT rt_results BY diff --git a/src/zabapgit_unit_test.prog.abap b/src/zabapgit_unit_test.prog.abap index 91eb63806..3b64c78bf 100644 --- a/src/zabapgit_unit_test.prog.abap +++ b/src/zabapgit_unit_test.prog.abap @@ -1763,7 +1763,7 @@ CLASS ltcl_file_status IMPLEMENTATION. APPEND INITIAL LINE TO lt_local ASSIGNING . -item-obj_type = &1. -item-obj_name = &2. - -item-devclass = '$ZZZZ$'. + -item-devclass = '$Z$'. -file-path = '/'. -file-filename = &3. -file-sha1 = &4. @@ -1780,7 +1780,7 @@ CLASS ltcl_file_status IMPLEMENTATION. APPEND INITIAL LINE TO lt_tadir ASSIGNING . -object = &1. -obj_name = &2. - -devclass = '$ZZZZ$'. + -devclass = '$Z$'. END-OF-DEFINITION. DEFINE _append_result. @@ -1789,8 +1789,8 @@ CLASS ltcl_file_status IMPLEMENTATION. -obj_name = &2. -match = &3. -new = &4. - -filename = &5. - -package = '$ZZZZ$'. + -package = &5. + -filename = &6. -path = '/'. END-OF-DEFINITION. @@ -1831,16 +1831,16 @@ CLASS ltcl_file_status IMPLEMENTATION. _append_tadir 'CLAS' 'ZCLASS1'. _append_tadir 'DOMA' 'ZDOMA5'. - " TYPE NAME MATCH NEW FILE - _append_result '' '' '' 'R' 'textfile.txt'. - _append_result 'CLAS' 'ZCLASS1' '' 'R' 'zclass1.clas.abap'. - _append_result 'CLAS' 'ZCLASS1' '' 'L' 'zclass1.clas.testclasses.abap'. - _append_result 'CLAS' 'ZCLASS1' 'X' '' 'zclass1.clas.xml'. - _append_result 'DOMA' 'ZDOMA1' 'X' '' 'zdoma1.doma.xml'. - _append_result 'DOMA' 'ZDOMA2' '' '' 'zdoma2.doma.xml'. - _append_result 'DOMA' 'ZDOMA3' '' '' 'zdoma3.doma.xml'. - _append_result 'DOMA' 'ZDOMA4' '' 'R' 'zdoma4.doma.xml'. - _append_result 'DOMA' 'ZDOMA5' '' 'L' 'zdoma5.doma.xml'. + " TYPE NAME MATCH NEW PKG FILE + _append_result '' '' '' 'R' '' 'textfile.txt'. + _append_result 'CLAS' 'ZCLASS1' '' 'R' '$Z$' 'zclass1.clas.abap'. + _append_result 'CLAS' 'ZCLASS1' '' 'L' '$Z$' 'zclass1.clas.testclasses.abap'. + _append_result 'CLAS' 'ZCLASS1' 'X' '' '$Z$' 'zclass1.clas.xml'. + _append_result 'DOMA' 'ZDOMA1' 'X' '' '$Z$' 'zdoma1.doma.xml'. + _append_result 'DOMA' 'ZDOMA2' '' '' '$Z$' 'zdoma2.doma.xml'. + _append_result 'DOMA' 'ZDOMA3' '' '' '$Z$' 'zdoma3.doma.xml'. + _append_result 'DOMA' 'ZDOMA4' '' 'R' '$Z$' 'zdoma4.doma.xml'. + _append_result 'DOMA' 'ZDOMA5' '' 'L' '$Z$' 'zdoma5.doma.xml'. lt_results = lcl_file_status=>calculate_status( it_local = lt_local