abapgit-agent 1.4.0 → 1.6.0

package/abap/zcl_abgagt_command_tree.clas.abap

@@ -1,237 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-" TREE command implementation - displays package hierarchy tree
-CLASS zcl_abgagt_command_tree DEFINITION PUBLIC FINAL CREATE PUBLIC.
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_command.
-
-    TYPES: BEGIN OF ty_tree_params,
-             package TYPE tdevc-devclass,
-             depth TYPE i,
-             include_objects TYPE abap_bool,
-           END OF ty_tree_params.
-
-    TYPES: BEGIN OF ty_object_count,
-             object TYPE tadir-object,
-             count TYPE i,
-           END OF ty_object_count.
-
-    TYPES ty_object_counts TYPE TABLE OF ty_object_count WITH NON-UNIQUE DEFAULT KEY.
-
-    TYPES: BEGIN OF ty_package_node,
-             package TYPE tdevc-devclass,
-             parent TYPE tdevc-devclass,
-             description TYPE string,
-             depth TYPE i,
-             object_count TYPE i,
-           END OF ty_package_node.
-
-    TYPES ty_package_nodes TYPE TABLE OF ty_package_node WITH NON-UNIQUE DEFAULT KEY.
-
-    TYPES: BEGIN OF ty_tree_result,
-             success TYPE abap_bool,
-             command TYPE string,
-             package TYPE tdevc-devclass,
-             message TYPE string,
-             parent_package TYPE tdevc-devclass,
-             nodes TYPE ty_package_nodes,
-             total_packages TYPE i,
-             total_objects TYPE i,
-             objects TYPE ty_object_counts,
-             error TYPE string,
-           END OF ty_tree_result.
-
-    METHODS build_tree
-      IMPORTING is_params TYPE ty_tree_params
-      RETURNING VALUE(rs_result) TYPE ty_tree_result.
-
-    METHODS get_object_count
-      IMPORTING iv_package TYPE tdevc-devclass
-      RETURNING VALUE(rv_count) TYPE i.
-
-    METHODS get_object_counts_by_type
-      IMPORTING iv_package TYPE tdevc-devclass
-      CHANGING ct_counts TYPE ty_object_counts.
-
-    METHODS collect_subpackages
-      IMPORTING iv_parent TYPE tdevc-devclass
-                iv_current_depth TYPE i
-                iv_max_depth TYPE i
-                iv_include_objects TYPE abap_bool
-      CHANGING ct_nodes TYPE ty_package_nodes
-               cv_total_objects TYPE i
-               ct_types TYPE ty_object_counts.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_command_tree IMPLEMENTATION.
-
-  METHOD zif_abgagt_command~get_name.
-    rv_name = zif_abgagt_command=>gc_tree.
-  ENDMETHOD.
-
-  METHOD zif_abgagt_command~execute.
-    DATA: ls_params TYPE ty_tree_params,
-          ls_result TYPE ty_tree_result.
-
-    ls_result-command = zif_abgagt_command=>gc_tree.
-
-    IF is_param IS SUPPLIED.
-      ls_params = CORRESPONDING #( is_param ).
-    ENDIF.
-
-    IF ls_params-package IS INITIAL.
-      ls_result-success = abap_false.
-      ls_result-error = 'Package is required'.
-      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
-      RETURN.
-    ENDIF.
-
-    IF ls_params-depth IS INITIAL OR ls_params-depth <= 0.
-      ls_params-depth = 3.
-    ENDIF.
-
-    IF ls_params-depth > 10.
-      ls_params-depth = 10.
-    ENDIF.
-
-    ls_result = build_tree( ls_params ).
-    rv_result = /ui2/cl_json=>serialize( data = ls_result ).
-  ENDMETHOD.
-
-  METHOD build_tree.
-    DATA: lv_package TYPE tdevc-devclass,
-          lv_max_depth TYPE i,
-          lv_total_objects TYPE i,
-          lt_all_types TYPE ty_object_counts,
-          lt_nodes TYPE ty_package_nodes,
-          ls_package TYPE tdevc.
-
-    lv_package = is_params-package.
-    lv_max_depth = is_params-depth.
-
-    SELECT SINGLE devclass parentcl FROM tdevc
-      INTO ls_package
-      WHERE devclass = lv_package.
-
-    IF sy-subrc <> 0.
-      rs_result-success = abap_false.
-      rs_result-package = lv_package.
-      rs_result-error = |Package { lv_package } does not exist|.
-      RETURN.
-    ENDIF.
-
-    rs_result-success = abap_true.
-    rs_result-command = 'TREE'.
-    rs_result-package = lv_package.
-    rs_result-message = 'Tree retrieved successfully'.
-    rs_result-parent_package = ls_package-parentcl.
-
-    " Add root package
-    DATA(ls_root) = VALUE ty_package_node(
-      package = lv_package
-      parent = ls_package-parentcl
-      description = lv_package
-      depth = 0
-      object_count = get_object_count( lv_package ) ).
-    APPEND ls_root TO lt_nodes.
-
-    lv_total_objects = ls_root-object_count.
-
-    " Get object types for root
-    IF is_params-include_objects = abap_true.
-      get_object_counts_by_type(
-        EXPORTING iv_package = lv_package
-        CHANGING ct_counts = rs_result-objects ).
-      LOOP AT rs_result-objects INTO DATA(ls_obj).
-        APPEND ls_obj TO lt_all_types.
-      ENDLOOP.
-    ENDIF.
-
-    " Add all subpackages
-    collect_subpackages(
-      EXPORTING iv_parent = lv_package
-                iv_current_depth = 1
-                iv_max_depth = lv_max_depth
-                iv_include_objects = is_params-include_objects
-      CHANGING ct_nodes = lt_nodes
-               cv_total_objects = lv_total_objects
-               ct_types = lt_all_types ).
-
-    rs_result-nodes = lt_nodes.
-    rs_result-total_packages = lines( lt_nodes ).
-    rs_result-total_objects = lv_total_objects.
-    rs_result-objects = lt_all_types.
-  ENDMETHOD.
-
-  METHOD get_object_count.
-    DATA lv_count TYPE i.
-    SELECT COUNT(*) FROM tadir
-      INTO lv_count
-      WHERE devclass = iv_package
-        AND object NOT IN ('DEVC', 'PACK').
-    rv_count = lv_count.
-  ENDMETHOD.
-
-  METHOD get_object_counts_by_type.
-    DATA lt_counts TYPE ty_object_counts.
-    SELECT object COUNT(*) AS count FROM tadir
-      INTO TABLE lt_counts
-      WHERE devclass = iv_package
-        AND object NOT IN ('DEVC', 'PACK')
-      GROUP BY object.
-    ct_counts = lt_counts.
-  ENDMETHOD.
-
-  METHOD collect_subpackages.
-    DATA: lt_direct_subs TYPE TABLE OF tdevc,
-          ls_direct TYPE tdevc.
-
-    SELECT devclass parentcl FROM tdevc
-      INTO TABLE lt_direct_subs
-      WHERE parentcl = iv_parent
-      ORDER BY devclass.
-
-    LOOP AT lt_direct_subs INTO ls_direct.
-      DATA ls_node TYPE ty_package_node.
-      ls_node-package = ls_direct-devclass.
-      ls_node-parent = iv_parent.
-      ls_node-description = ls_direct-devclass.
-      ls_node-depth = iv_current_depth.
-      ls_node-object_count = get_object_count( ls_direct-devclass ).
-
-      APPEND ls_node TO ct_nodes.
-      cv_total_objects = cv_total_objects + ls_node-object_count.
-
-      " Add object types
-      IF iv_include_objects = abap_true.
-        DATA lt_types TYPE ty_object_counts.
-        get_object_counts_by_type(
-          EXPORTING iv_package = ls_direct-devclass
-          CHANGING ct_counts = lt_types ).
-        LOOP AT lt_types INTO DATA(ls_type).
-          READ TABLE ct_types WITH KEY object = ls_type-object
-            ASSIGNING FIELD-SYMBOL(<ls_existing>).
-          IF sy-subrc = 0.
-            <ls_existing>-count = <ls_existing>-count + ls_type-count.
-          ELSE.
-            APPEND ls_type TO ct_types.
-          ENDIF.
-        ENDLOOP.
-      ENDIF.
-
-      IF iv_current_depth < iv_max_depth.
-        collect_subpackages(
-          EXPORTING iv_parent = ls_direct-devclass
-                    iv_current_depth = iv_current_depth + 1
-                    iv_max_depth = iv_max_depth
-                    iv_include_objects = iv_include_objects
-          CHANGING ct_nodes = ct_nodes
-                   cv_total_objects = cv_total_objects
-                   ct_types = ct_types ).
-      ENDIF.
-    ENDLOOP.
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_command_tree.clas.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>ZCL_ABGAGT_COMMAND_TREE</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Tree Command for ABAP Git Agent</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>

package/abap/zcl_abgagt_command_unit.clas.abap

@@ -1,297 +0,0 @@
-*"*"use source
-*"*"Local Interface:
-*"**********************************************************************
-" UNIT command implementation - runs AUnit tests directly
-CLASS zcl_abgagt_command_unit DEFINITION PUBLIC FINAL CREATE PUBLIC.
-  PUBLIC SECTION.
-    INTERFACES zif_abgagt_command.
-
-    TYPES: BEGIN OF ty_unit_params,
-             package TYPE string,
-             files TYPE string_table,
-           END OF ty_unit_params.
-
-    " Error structure for failed test methods
-    TYPES: BEGIN OF ty_error,
-             class_name TYPE string,
-             method_name TYPE string,
-             error_kind TYPE string,
-             error_text TYPE string,
-           END OF ty_error.
-
-    TYPES ty_errors TYPE STANDARD TABLE OF ty_error WITH DEFAULT KEY.
-
-    TYPES: BEGIN OF ty_unit_result,
-             success TYPE abap_bool,
-             message TYPE string,
-             test_count TYPE i,
-             passed_count TYPE i,
-             failed_count TYPE i,
-             errors TYPE ty_errors,
-           END OF ty_unit_result.
-
-    TYPES: BEGIN OF ty_key,
-             obj_name TYPE tadir-obj_name,
-             obj_type TYPE tadir-object,
-           END OF ty_key.
-
-    TYPES ty_keys TYPE STANDARD TABLE OF ty_key WITH DEFAULT KEY.
-
-    METHODS run_aunit_tests
-      IMPORTING
-        iv_package TYPE devclass OPTIONAL
-        it_keys TYPE ty_keys OPTIONAL
-      RETURNING
-        VALUE(rs_result) TYPE ty_unit_result.
-
-  PRIVATE SECTION.
-    " Methods for extracting errors from nested structure using CL_SUT_AUNIT_RUNNER types
-    METHODS get_failed_methods
-      IMPORTING
-        it_tab_objects TYPE cl_sut_aunit_runner=>typ_tab_objects
-      RETURNING
-        VALUE(rt_errors) TYPE ty_errors.
-
-    METHODS extract_errors_from_object
-      IMPORTING
-        is_object TYPE cl_sut_aunit_runner=>typ_str_object
-      RETURNING
-        VALUE(rt_errors) TYPE ty_errors.
-
-    METHODS extract_errors_from_testclass
-      IMPORTING
-        is_testclass TYPE cl_sut_aunit_runner=>typ_str_testclass
-        iv_class_name TYPE seoclass-clsname
-      RETURNING
-        VALUE(rt_errors) TYPE ty_errors.
-
-    METHODS extract_error_from_method
-      IMPORTING
-        is_method TYPE cl_sut_aunit_runner=>typ_str_method
-        iv_method_name TYPE saunit_s_method_key-method
-      RETURNING
-        VALUE(rs_error) TYPE ty_error.
-
-ENDCLASS.
-
-CLASS zcl_abgagt_command_unit IMPLEMENTATION.
-
-  METHOD zif_abgagt_command~get_name.
-    rv_name = zif_abgagt_command=>gc_unit.
-  ENDMETHOD.
-
-  METHOD zif_abgagt_command~execute.
-    DATA: ls_params TYPE ty_unit_params,
-          lv_package TYPE devclass,
-          lv_file TYPE string,
-          lv_obj_type TYPE string,
-          lv_obj_name TYPE string,
-          lo_util TYPE REF TO zcl_abgagt_util,
-          ls_result TYPE ty_unit_result,
-          lt_keys TYPE ty_keys,
-          ls_key TYPE ty_key.
-
-    " Parse parameters from is_param
-    IF is_param IS SUPPLIED.
-      ls_params = CORRESPONDING #( is_param ).
-    ENDIF.
-
-    " Convert package string to devclass
-    IF ls_params-package IS NOT INITIAL.
-      lv_package = ls_params-package.
-    ENDIF.
-
-    " Parse files to get object keys
-    IF ls_params-files IS NOT INITIAL.
-      lo_util = zcl_abgagt_util=>get_instance( ).
-      LOOP AT ls_params-files INTO lv_file.
-        CLEAR: lv_obj_type, lv_obj_name.
-        lo_util->zif_abgagt_util~parse_file_to_object(
-          EXPORTING iv_file = lv_file
-          IMPORTING ev_obj_type = lv_obj_type
-                    ev_obj_name = lv_obj_name ).
-        IF lv_obj_type IS NOT INITIAL AND lv_obj_name IS NOT INITIAL.
-          CLEAR ls_key.
-          ls_key-obj_type = lv_obj_type.
-          ls_key-obj_name = lv_obj_name.
-          APPEND ls_key TO lt_keys.
-        ENDIF.
-      ENDLOOP.
-    ENDIF.
-
-    " Initialize result
-    ls_result-success = abap_false.
-    ls_result-test_count = 0.
-    ls_result-passed_count = 0.
-    ls_result-failed_count = 0.
-
-    IF lt_keys IS INITIAL AND lv_package IS INITIAL.
-      ls_result-message = 'No files or package provided'.
-      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
-      RETURN.
-    ENDIF.
-
-    " Remove duplicates from keys
-    IF lt_keys IS NOT INITIAL.
-      SORT lt_keys BY obj_type obj_name.
-      DELETE ADJACENT DUPLICATES FROM lt_keys COMPARING obj_type obj_name.
-    ENDIF.
-
-    " Run tests and get result directly from str_results
-    ls_result = run_aunit_tests(
-      iv_package = lv_package
-      it_keys = lt_keys ).
-
-    IF ls_result-test_count = 0 AND ls_result-failed_count = 0.
-      ls_result-message = 'No test results returned'.
-      rv_result = /ui2/cl_json=>serialize( data = ls_result ).
-      RETURN.
-    ENDIF.
-
-    IF ls_result-failed_count = 0.
-      ls_result-success = abap_true.
-      ls_result-message = |All { ls_result-test_count } tests passed|.
-    ELSE.
-      ls_result-message = |{ ls_result-failed_count } of { ls_result-test_count } tests failed|.
-    ENDIF.
-
-    rv_result = /ui2/cl_json=>serialize( data = ls_result ).
-  ENDMETHOD.
-
-  METHOD run_aunit_tests.
-    DATA: lo_runner TYPE REF TO cl_sut_aunit_runner.
-
-    " Create runner using S_CREATE
-    cl_sut_aunit_runner=>s_create(
-      EXPORTING
-        p_cov       = abap_false
-        i_flg_api   = abap_true
-      RECEIVING
-        r_ref_runner = lo_runner ).
-
-    " Configure runner for OBJECT selection mode
-    lo_runner->p_disp = abap_false.   " No GUI display
-    lo_runner->p_save = abap_true.     " Save results
-    lo_runner->p_runmd = 'E'.         " Execute mode
-
-    " Set selection type to OBJECT
-    lo_runner->p_seltyp = 'OBJECT'.
-    lo_runner->p_selcl = abap_true.   " Enable class selection mode
-
-    " Build SO_CLASS range for test class(es)
-    DATA lt_so_class TYPE RANGE OF seoaliases-clsname.
-    IF it_keys IS NOT INITIAL.
-      LOOP AT it_keys ASSIGNING FIELD-SYMBOL(<ls_key>).
-        APPEND VALUE #( sign = 'I' option = 'EQ' low = <ls_key>-obj_name ) TO lt_so_class.
-      ENDLOOP.
-    ENDIF.
-
-    " Set the class range
-    lo_runner->so_class[] = lt_so_class[].
-
-    " Run tests
-    TRY.
-        lo_runner->run(
-          EXPORTING
-            i_flg_select_only = abap_false
-          EXCEPTIONS
-            OTHERS = 1 ).
-      CATCH cx_sut_error.
-        RETURN.
-    ENDTRY.
-
-    IF sy-subrc <> 0.
-      RETURN.
-    ENDIF.
-
-    " Get results from str_results - use type from CL_SUT_AUNIT_RUNNER
-    DATA: ls_str TYPE cl_sut_aunit_runner=>typ_str_results.
-    ls_str = lo_runner->str_results.
-
-    " Fill result directly from str_results counts
-    rs_result-test_count = ls_str-cnt_testmethods.
-    rs_result-passed_count = ls_str-cnt_ok_methods.
-    rs_result-failed_count = ls_str-cnt_error_methods.
-
-    IF rs_result-failed_count > 0 OR ls_str-pie_abortions > 0.
-      rs_result-success = abap_false.
-    ELSE.
-      rs_result-success = abap_true.
-    ENDIF.
-
-    " Extract failed method details from tab_objects
-    rs_result-errors = get_failed_methods( lo_runner->tab_objects ).
-  ENDMETHOD.
-
-  METHOD get_failed_methods.
-    " Entry point for extracting failed methods from TAB_OBJECTS
-    LOOP AT it_tab_objects ASSIGNING FIELD-SYMBOL(<ls_object>).
-      " Extract errors from this object
-      DATA(lt_errors) = extract_errors_from_object( <ls_object> ).
-      APPEND LINES OF lt_errors TO rt_errors.
-    ENDLOOP.
-  ENDMETHOD.
-
-  METHOD extract_errors_from_object.
-    " Extract errors from TAB_TESTCLASSES within an object
-    LOOP AT is_object-tab_testclasses ASSIGNING FIELD-SYMBOL(<ls_tcl>).
-      " Extract errors from this testclass
-      DATA(lt_errors) = extract_errors_from_testclass(
-        is_testclass = <ls_tcl>
-        iv_class_name = is_object-clsname ).
-      APPEND LINES OF lt_errors TO rt_errors.
-    ENDLOOP.
-  ENDMETHOD.
-
-  METHOD extract_errors_from_testclass.
-    " Extract errors from TAB_METHODS within a testclass
-    LOOP AT is_testclass-tab_methods ASSIGNING FIELD-SYMBOL(<ls_method>).
-      " Extract error from this method
-      DATA(ls_error) = extract_error_from_method(
-        is_method = <ls_method>
-        iv_method_name = <ls_method>-methodname ).
-
-      " Only add if there's an error
-      IF ls_error-error_text IS NOT INITIAL.
-        ls_error-class_name = iv_class_name.
-        APPEND ls_error TO rt_errors.
-      ENDIF.
-    ENDLOOP.
-  ENDMETHOD.
-
-  METHOD extract_error_from_method.
-    " Extract STR_ERROR from method and build error structure
-    " typ_str_error contains typ_str_error_core via INCLUDE as STR_ERROR_CORE
-
-    " Check if there's an error - only process if error kind is set
-    IF is_method-str_error IS INITIAL.
-      RETURN.
-    ENDIF.
-
-    " Get error kind (e.g., 'ERROR', 'FAILURE')
-    rs_error-error_kind = is_method-str_error-str_error_core-errorkind.
-
-    " Only process if there's an actual error
-    IF rs_error-error_kind IS INITIAL.
-      RETURN.
-    ENDIF.
-
-    " Get error text
-    rs_error-error_text = is_method-str_error-str_error_core-errortext.
-
-    " If no error text, try tab_messages
-    IF rs_error-error_text IS INITIAL.
-      DATA lv_messages TYPE string.
-      LOOP AT is_method-str_error-str_error_core-tab_messages ASSIGNING FIELD-SYMBOL(<lv_msg>).
-        IF lv_messages IS NOT INITIAL.
-          lv_messages = |{ lv_messages }\n|.
-        ENDIF.
-        lv_messages = |{ lv_messages }{ <lv_msg> }|.
-      ENDLOOP.
-      rs_error-error_text = lv_messages.
-    ENDIF.
-
-    rs_error-method_name = iv_method_name.
-  ENDMETHOD.
-
-ENDCLASS.

package/abap/zcl_abgagt_command_unit.clas.xml

@@ -1,15 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
- <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
-  <asx:values>
-   <VSEOCLASS>
-    <CLSNAME>ZCL_ABGAGT_COMMAND_UNIT</CLSNAME>
-    <LANGU>E</LANGU>
-    <DESCRIPT>Unit Command for ABAP Git Agent</DESCRIPT>
-    <EXPOSURE>2</EXPOSURE>
-    <STATE>1</STATE>
-    <UNICODE>X</UNICODE>
-   </VSEOCLASS>
-  </asx:values>
- </asx:abap>
-</abapGit>