Merge pull request #291 from SAP/db-access-in-ut

Y_CHECK_DB_ACCESS_IN_UT: DELETE ... INDEX

Author: lucasborin

src/checks/y_check_db_access_in_ut.clas.abap

@@ -204,9 +204,13 @@ CLASS y_check_db_access_in_ut IMPLEMENTATION.
 
 
   METHOD is_internal_table.
-    " Might have 'FROM'
-    result = xsdbool(     is_persistent_object( get_token_abs( statement-from + 1 ) ) = abap_false
-                      AND is_persistent_object( get_token_abs( statement-from + 2 ) ) = abap_false ).
+    DATA(second_token) = get_token_abs( statement-from + 1 ).
+    DATA(tirth_token) = get_token_abs( statement-from + 2 ).
+
+    DATA(table) = COND #( WHEN second_token = 'FROM' THEN tirth_token
+                                                     ELSE second_token ).
+
+    result = xsdbool( is_persistent_object( table ) = abap_false ).
   ENDMETHOD.
 
 ENDCLASS.

src/checks/y_check_db_access_in_ut.clas.testclasses.abap

@@ -166,6 +166,7 @@ CLASS ltc_risk_harmless IMPLEMENTATION.
       ( '     INSERT profile INTO TABLE profiles. ' )
       ( '     MODIFY profiles FROM profile INDEX 1. ' )
       ( '     DELETE profiles FROM profile. ' )
+      ( '     DELETE profiles INDEX lines( profiles ). ' )
       ( '   ENDMETHOD. ' )
       ( ' ENDCLASS. ' )
     ).