1.13.1 (#349)

* 1.13.1

* closes #333 (#351)

* Y_CHECK_DB_ACCESS_IN_UT on INSERT INTO internal table (#350)

* solves #348

* Update changelog.txt

Author: lucasborin

changelog.txt

@@ -12,6 +12,10 @@ Upgrade Note
 ------------------
 Whenever you upgrade code pal for ABAP, it is highly recommended to execute the Y_CI_CHECK_REGISTRATION report to activate/reactivate the Checks (SE38 transaction) and regenerate the respective code inspector variant (SCI transaction)
 
+2021-04-05 v.1.13.1
+------------------
+* Y_CHECK_DB_ACCESS_IN_UT on INSERT INTO internal table (#348)
+
 2021-03-24 v.1.13.0
 ------------------
 * y_ref_scan_manager_double

src/checks/y_check_db_access_in_ut.clas.abap

@@ -130,13 +130,15 @@ CLASS Y_CHECK_DB_ACCESS_IN_UT IMPLEMENTATION.
   METHOD is_internal_table.
     DATA(second_token) = get_token_abs( statement-from + 1 ).
     DATA(third_token) = get_token_abs( statement-from + 2 ).
+    DATA(fourth_token) = get_token_abs( statement-from + 2 ).
 
     IF second_token = keys-into.
       RETURN.
     ENDIF.
 
     DATA(table_name) = COND #( WHEN second_token = keys-from THEN third_token
-                                                             ELSE second_token ).
+                               WHEN third_token = keys-into  THEN fourth_token
+                               ELSE second_token ).
 
     result = xsdbool( is_persistent_object( table_name ) = abap_false ).
   ENDMETHOD.
@@ -272,4 +274,6 @@ CLASS Y_CHECK_DB_ACCESS_IN_UT IMPLEMENTATION.
                     OR token-str = check_for-delete
                     OR token-str = check_for-insert ).
   ENDMETHOD.
+
+
 ENDCLASS.

src/checks/y_check_db_access_in_ut.clas.testclasses.abap

@@ -440,12 +440,12 @@ CLASS ltc_exec_sql IMPLEMENTATION.
 ENDCLASS.
 
 
-CLASS ltc_attribution DEFINITION INHERITING FROM ltc_risk_harmless FOR TESTING RISK LEVEL HARMLESS DURATION SHORT.
+CLASS ltc_itab DEFINITION INHERITING FROM ltc_risk_harmless FOR TESTING RISK LEVEL HARMLESS DURATION SHORT.
   PROTECTED SECTION.
     METHODS get_code_without_issue REDEFINITION.
 ENDCLASS.
 
-CLASS ltc_attribution IMPLEMENTATION.
+CLASS ltc_itab IMPLEMENTATION.
 
   METHOD get_code_without_issue.
     result = VALUE #(
@@ -458,8 +458,9 @@ CLASS ltc_attribution IMPLEMENTATION.
 
       ( ' CLASS example IMPLEMENTATION. ' )
       ( '   METHOD example. ' )
-      ( '     DATA update TYPE abap_bool. ' )
-      ( '     update  = space.  ' )
+      ( '     DATA mt_messages TYPE symsg_tab. ' )
+      ( '     DATA message TYPE symsg. ' )
+      ( '     INSERT message INTO TABLE mt_messages. ' )
       ( '   ENDMETHOD. ' )
       ( ' ENDCLASS. ' )
     ).

src/checks/y_check_self_reference.clas.testclasses.abap

@@ -73,3 +73,32 @@ CLASS ltc_method IMPLEMENTATION.
   ENDMETHOD.
 
 ENDCLASS.
+
+
+CLASS ltc_attribute DEFINITION INHERITING FROM ltc_method FOR TESTING RISK LEVEL HARMLESS DURATION SHORT.
+  PROTECTED SECTION.
+    METHODS get_code_without_issue REDEFINITION.
+ENDCLASS.
+
+CLASS ltc_attribute IMPLEMENTATION.
+
+  METHOD get_code_without_issue.
+    result = VALUE #(
+      ( 'REPORT y_example. ' )
+
+      ( ' CLASS y_example DEFINITION. ' )
+      ( '   PUBLIC SECTION. ' )
+      ( '     METHODS constructor IMPORTING name TYPE string. ' )
+      ( '   PRIVATE SECTION. ' )
+      ( '     DATA name TYPE string. ' )
+      ( ' ENDCLASS. ' )
+
+      ( ' CLASS y_example IMPLEMENTATION. ' )
+      ( '   METHOD constructor. ' )
+      ( '     me->name = name. ' )
+      ( '   ENDMETHOD. ' )
+      ( ' ENDCLASS. ' )
+    ).
+  ENDMETHOD.
+
+ENDCLASS.

src/y_code_pal_version.intf.abap

@@ -1,3 +1,3 @@
 INTERFACE y_code_pal_version PUBLIC.
-  CONSTANTS abap TYPE string VALUE '1.13.0' ##NO_TEXT.
+  CONSTANTS abap TYPE string VALUE '1.13.1' ##NO_TEXT.
 ENDINTERFACE.