abapgit-agent 1.0.0

package/abap/zcl_abgagt_command_unit.clas.abap

@@ -0,0 +1,297 @@
+*"*"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

@@ -0,0 +1,15 @@
+<?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>

package/abap/zcl_abgagt_resource_health.clas.abap

@@ -0,0 +1,25 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_resource_health DEFINITION PUBLIC FINAL
+                               INHERITING FROM cl_rest_resource
+                               CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    METHODS if_rest_resource~get REDEFINITION.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_resource_health IMPLEMENTATION.
+
+  METHOD if_rest_resource~get.
+    DATA lv_json TYPE string.
+    lv_json = '{"status":"OK","version":"1.0.0"}'.
+
+    DATA(lo_entity) = mo_response->create_entity( ).
+    lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+    lo_entity->set_string_data( lv_json ).
+    mo_response->set_status( cl_rest_status_code=>gc_success_ok ).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_resource_health.clas.xml

@@ -0,0 +1,15 @@
+<?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_RESOURCE_HEALTH</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ABAP Git Agent - Health Resource</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_resource_inspect.clas.abap

@@ -0,0 +1,62 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_resource_inspect DEFINITION PUBLIC FINAL
+                             INHERITING FROM cl_rest_resource
+                             CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    METHODS if_rest_resource~post REDEFINITION.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_resource_inspect IMPLEMENTATION.
+
+  METHOD if_rest_resource~post.
+    DATA lv_json TYPE string.
+    lv_json = mo_request->get_entity( )->get_string_data( ).
+
+    " Parse JSON using /ui2/cl_json
+    DATA: BEGIN OF ls_request,
+            files TYPE string_table,
+          END OF ls_request.
+
+    /ui2/cl_json=>deserialize(
+      EXPORTING
+        json = lv_json
+      CHANGING
+        data = ls_request ).
+
+    DATA lv_json_resp TYPE string.
+    IF ls_request-files IS INITIAL OR lines( ls_request-files ) = 0.
+      lv_json_resp = '{"success":"","object_type":"","object_name":"","error_count":1,"errors":[{"line":"1","column":"1","text":"Files list is required"}]}'.
+      DATA(lo_entity) = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Get command from factory
+    DATA(lo_factory) = zcl_abgagt_cmd_factory=>get_instance( ).
+    DATA(lo_command) = lo_factory->get_command( zif_abgagt_command=>gc_inspect ).
+
+    IF lo_command IS NOT BOUND.
+      lv_json_resp = '{"success":"","error":"INSPECT command not found"}'.
+      lo_entity = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Execute command with is_param
+    DATA(lv_result) = lo_command->execute( is_param = ls_request ).
+
+    lo_entity = mo_response->create_entity( ).
+    lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+    lo_entity->set_string_data( lv_result ).
+    mo_response->set_status( cl_rest_status_code=>gc_success_ok ).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_resource_inspect.clas.xml

@@ -0,0 +1,15 @@
+<?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_RESOURCE_INSPECT</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ABAP Git Agent - Inspect Resource</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_resource_pull.clas.abap

@@ -0,0 +1,71 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_resource_pull DEFINITION PUBLIC FINAL
+                             INHERITING FROM cl_rest_resource
+                             CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    METHODS if_rest_resource~post REDEFINITION.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_resource_pull IMPLEMENTATION.
+
+  METHOD if_rest_resource~post.
+    DATA lv_json TYPE string.
+    lv_json = mo_request->get_entity( )->get_string_data( ).
+
+    " Parse JSON using /ui2/cl_json
+    DATA: BEGIN OF ls_request,
+            url TYPE string,
+            branch TYPE string,
+            username TYPE string,
+            password TYPE string,
+            transport_request TYPE string,
+            files TYPE string_table,
+          END OF ls_request.
+
+    /ui2/cl_json=>deserialize(
+      EXPORTING
+        json = lv_json
+      CHANGING
+        data = ls_request ).
+
+    IF ls_request-branch IS INITIAL.
+      ls_request-branch = 'main'.
+    ENDIF.
+
+    DATA lv_json_resp TYPE string.
+    IF ls_request-url IS INITIAL.
+      lv_json_resp = '{"success":"","job_id":"","error":"URL is required"}'.
+      DATA(lo_entity) = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Get command from factory
+    DATA(lo_factory) = zcl_abgagt_cmd_factory=>get_instance( ).
+    DATA(lo_command) = lo_factory->get_command( zif_abgagt_command=>gc_pull ).
+
+    IF lo_command IS NOT BOUND.
+      lv_json_resp = '{"success":"","error":"PULL command not found"}'.
+      lo_entity = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Execute command with is_param
+    DATA(lv_result) = lo_command->execute( is_param = ls_request ).
+
+    lo_entity = mo_response->create_entity( ).
+    lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+    lo_entity->set_string_data( lv_result ).
+    mo_response->set_status( cl_rest_status_code=>gc_success_ok ).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_resource_pull.clas.xml

@@ -0,0 +1,15 @@
+<?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_RESOURCE_PULL</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ABAP Git Agent - Pull Resource</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_resource_unit.clas.abap

@@ -0,0 +1,64 @@
+*"*"use source
+*"*"Local Interface:
+*"**********************************************************************
+CLASS zcl_abgagt_resource_unit DEFINITION PUBLIC FINAL
+                             INHERITING FROM cl_rest_resource
+                             CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    METHODS if_rest_resource~post REDEFINITION.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_resource_unit IMPLEMENTATION.
+
+  METHOD if_rest_resource~post.
+    DATA lv_json TYPE string.
+    lv_json = mo_request->get_entity( )->get_string_data( ).
+
+    " Parse JSON using /ui2/cl_json
+    DATA: BEGIN OF ls_request,
+            package TYPE string,
+            files TYPE string_table,
+          END OF ls_request.
+
+    /ui2/cl_json=>deserialize(
+      EXPORTING
+        json = lv_json
+      CHANGING
+        data = ls_request ).
+
+    DATA lv_json_resp TYPE string.
+
+    IF ls_request-package IS INITIAL AND ( ls_request-files IS INITIAL OR lines( ls_request-files ) = 0 ).
+      lv_json_resp = '{"success":"","message":"Package or files required"}'.
+      DATA(lo_entity) = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Get command from factory
+    DATA(lo_factory) = zcl_abgagt_cmd_factory=>get_instance( ).
+    DATA(lo_command) = lo_factory->get_command( zif_abgagt_command=>gc_unit ).
+
+    IF lo_command IS NOT BOUND.
+      lv_json_resp = '{"success":"","error":"UNIT command not found"}'.
+      lo_entity = mo_response->create_entity( ).
+      lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+      lo_entity->set_string_data( lv_json_resp ).
+      mo_response->set_status( cl_rest_status_code=>gc_client_error_bad_request ).
+      RETURN.
+    ENDIF.
+
+    " Execute command with is_param
+    DATA(lv_result) = lo_command->execute( is_param = ls_request ).
+
+    lo_entity = mo_response->create_entity( ).
+    lo_entity->set_content_type( iv_media_type = if_rest_media_type=>gc_appl_json ).
+    lo_entity->set_string_data( lv_result ).
+    mo_response->set_status( cl_rest_status_code=>gc_success_ok ).
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_resource_unit.clas.xml

@@ -0,0 +1,15 @@
+<?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_RESOURCE_UNIT</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ABAP Git Agent - Unit Test Resource</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

package/abap/zcl_abgagt_rest_handler.clas.abap

@@ -0,0 +1,27 @@
+*"*"use source
+*"* Local Interface:
+*"----------------------------------------------------------------------
+CLASS zcl_abgagt_rest_handler DEFINITION PUBLIC INHERITING FROM cl_rest_http_handler CREATE PUBLIC.
+
+  PUBLIC SECTION.
+    METHODS: if_rest_application~get_root_handler REDEFINITION.
+
+  PRIVATE SECTION.
+
+ENDCLASS.
+
+CLASS zcl_abgagt_rest_handler IMPLEMENTATION.
+
+  METHOD if_rest_application~get_root_handler.
+    DATA lo_router TYPE REF TO cl_rest_router.
+    CREATE OBJECT lo_router.
+
+    lo_router->attach( iv_template = '/pull' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_PULL' ).
+    lo_router->attach( iv_template = '/health' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_HEALTH' ).
+    lo_router->attach( iv_template = '/inspect' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_INSPECT' ).
+    lo_router->attach( iv_template = '/unit' iv_handler_class = 'ZCL_ABGAGT_RESOURCE_UNIT' ).
+
+    ro_root_handler = lo_router.
+  ENDMETHOD.
+
+ENDCLASS.

package/abap/zcl_abgagt_rest_handler.clas.xml

@@ -0,0 +1,15 @@
+<?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_REST_HANDLER</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ABAP Git Agent - REST Handler</DESCRIPT>
+    <EXPOSURE>2</EXPOSURE>
+    <STATE>1</STATE>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>