disabling profiles when it executes the regression

Author: lucasborin

src/foundation/y_code_pal_service.clas.abap

@@ -153,6 +153,14 @@ CLASS y_code_pal_service IMPLEMENTATION.
       RETURN.
     ENDIF.
 
+    TRY.
+        y_profile_manager=>create( )->delete_profiles( ).
+      CATCH ycx_failed_to_remove_a_line.
+        raise_internal_server_error( ).
+        response->set_cdata( 'Profiles were not disabled' ).
+        RETURN.
+    ENDTRY.
+
     DATA(atc) = NEW cl_satc_api_factory( ).
 
     TRY.

src/profiles/y_if_profile_manager.intf.abap

@@ -82,6 +82,9 @@ INTERFACE y_if_profile_manager
       !profile TYPE ytab_profiles
     RAISING
       ycx_failed_to_remove_a_line .
+  METHODS delete_profiles
+    RAISING
+      ycx_failed_to_remove_a_line .
   METHODS delete_check
     IMPORTING
       !check TYPE ytab_checks

src/profiles/y_profile_manager.clas.abap

@@ -151,6 +151,18 @@ CLASS y_profile_manager IMPLEMENTATION.
   ENDMETHOD.
 
 
+  METHOD y_if_profile_manager~delete_profiles.
+    TRY.
+        DATA(profiles) = y_if_profile_manager~select_profiles( sy-uname ).
+      CATCH ycx_entry_not_found.
+        RETURN.
+    ENDTRY.
+
+    LOOP AT profiles ASSIGNING FIELD-SYMBOL(<profile>).
+      y_if_profile_manager~delete_profile( <profile> ).
+    ENDLOOP.
+  ENDMETHOD.
+
   METHOD y_if_profile_manager~get_checks_type_name.
     result = checks_type.
   ENDMETHOD.
@@ -334,10 +346,11 @@ CLASS y_profile_manager IMPLEMENTATION.
 
 
   METHOD y_if_profile_manager~select_all_profiles.
-    SELECT * FROM ytab_profiles INTO TABLE @result.
-    IF sy-subrc NE 0.
-      RAISE EXCEPTION TYPE ycx_entry_not_found.
-    ENDIF.
+    "Based on Checks because the profile might be inactive
+    SELECT DISTINCT profile FROM ytab_checks INTO TABLE @DATA(profiles).
+    LOOP AT profiles ASSIGNING FIELD-SYMBOL(<profile>).
+      APPEND VALUE ytab_profiles( profile = <profile> ) TO result.
+    ENDLOOP.
   ENDMETHOD.