web test: move files and fixes (#7195)

deps/cl_package_factory.clas.abap

@@ -2,10 +2,10 @@ CLASS cl_package_factory DEFINITION PUBLIC.
   PUBLIC SECTION.
     CLASS-METHODS load_package
       IMPORTING
-        i_package_name TYPE devclass
+        i_package_name        TYPE devclass
         VALUE(i_force_reload) TYPE abap_bool OPTIONAL
       EXPORTING
-        VALUE(e_package) TYPE REF TO if_package
+        VALUE(e_package)      TYPE REF TO if_package
       EXCEPTIONS
         object_not_existing
         unexpected_error
@@ -19,9 +19,9 @@ CLASS cl_package_factory DEFINITION PUBLIC.
         !i_suppress_dialog            TYPE abap_bool DEFAULT abap_false
         !i_suppress_access_permission TYPE abap_bool DEFAULT abap_false
       EXPORTING
-        VALUE(e_package) TYPE REF TO if_package
+        VALUE(e_package)              TYPE REF TO if_package
       CHANGING
-        c_package_data TYPE any.
+        c_package_data                TYPE any.
 ENDCLASS.
 
 CLASS cl_package_factory IMPLEMENTATION.

package.json

@@ -25,12 +25,12 @@
   "devDependencies": {
     "@abaplint/cli": "^2.113.108",
     "@abaplint/database-sqlite": "^2.10.24",
-    "@abaplint/runtime": "^2.10.35",
+    "@abaplint/runtime": "^2.10.38",
     "express": "^4.21.2",
-    "@abaplint/transpiler-cli": "^2.10.35",
+    "@abaplint/transpiler-cli": "^2.10.38",
     "globals": "^16.0.0",
     "abapmerge": "^0.16.6",
     "c8": "^10.1.3",
-    "eslint": "^9.23.0"
+    "eslint": "^9.24.0"
   }
 }

test/gitea/docker-compose.yml

@@ -1,5 +1,3 @@
-version: "2"
-
 services:
   gitea:
     image: gitea/gitea:1.20.5-rootless

test/gitea/package.json

@@ -11,7 +11,7 @@
   "author": "",
   "license": "ISC",
   "devDependencies": {
-    "@playwright/test": "^1.45.3",
-    "@types/node": "^22.0.2"
+    "@playwright/test": "^1.51.1",
+    "@types/node": "^22.14.0"
   }
 }

test/src/web/zcl_abapgit_web.clas.abap

@@ -73,13 +73,24 @@ CLASS zcl_abapgit_web IMPLEMENTATION.
 
   METHOD initialize.
 
+    DATA lo_environment TYPE REF TO zcl_abapgit_web_environment.
+    DATA lo_cts_api TYPE REF TO zcl_abapgit_web_cts_api.
+
+    zcl_abapgit_web_inject_fm=>inject( ).
+
+    CREATE OBJECT lo_environment.
+    zcl_abapgit_injector=>set_environment( lo_environment ).
+
+    CREATE OBJECT lo_cts_api.
+    zcl_abapgit_injector=>set_cts_api( lo_cts_api ).
+
     CREATE OBJECT go_viewer
       EXPORTING
         ii_request  = gi_request
         ii_response = gi_response.
-
     zcl_abapgit_ui_core_injector=>set_html_viewer( go_viewer ).
 
+
     go_gui = zcl_abapgit_ui_factory=>get_gui( ).
 
   ENDMETHOD.

test/src/web/zcl_abapgit_web_cts_api.clas.abap

@@ -0,0 +1,51 @@
+CLASS zcl_abapgit_web_cts_api DEFINITION PUBLIC.
+  PUBLIC SECTION.
+    INTERFACES:
+      zif_abapgit_cts_api.
+ENDCLASS.
+
+CLASS zcl_abapgit_web_cts_api IMPLEMENTATION.
+  METHOD zif_abapgit_cts_api~confirm_transport_messages.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~create_transport_entries.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~get_r3tr_obj_for_limu_obj.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~get_transports_for_list.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~get_transport_for_object.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~insert_transport_object.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~is_chrec_possible_for_package.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~list_open_requests_by_user.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~list_r3tr_by_request.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~read.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~read_description.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~read_user.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~validate_transport_request.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+  METHOD zif_abapgit_cts_api~change_transport_type.
+    RETURN. " todo, implement method
+  ENDMETHOD.
+
+ENDCLASS.

test/src/web/zcl_abapgit_web_cts_api.clas.xml

@@ -0,0 +1,16 @@
+<?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_ABAPGIT_WEB_CTS_API</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ZCL_ABAPGIT_WEB_CTS_API</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

test/src/web/zcl_abapgit_web_environment.clas.abap

@@ -0,0 +1,57 @@
+CLASS zcl_abapgit_web_environment DEFINITION PUBLIC.
+  PUBLIC SECTION.
+    INTERFACES zif_abapgit_environment.
+ENDCLASS.
+
+CLASS zcl_abapgit_web_environment IMPLEMENTATION.
+
+  METHOD zif_abapgit_environment~compare_with_inactive.
+    ASSERT 1 = 'decoupled'.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~init_parallel_processing.
+    ASSERT 1 = 'decoupled'.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~check_parallel_processing.
+* the group doesnt exist
+    rv_checked = abap_false.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~get_available_user_sessions.
+    ASSERT 1 = 'decoupled'.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~get_basis_release.
+    ASSERT 1 = 'decoupled'.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~is_merged.
+    rv_result = abap_false.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~is_repo_object_changes_allowed.
+    rv_result = abap_true.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~is_restart_required.
+    ASSERT 1 = 'decoupled'.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~is_sap_cloud_platform.
+    rv_result = abap_false.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~is_sap_object_allowed.
+    rv_allowed = abap_false.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~get_system_language_filter.
+    ASSERT 1 = 'decoupled'.
+  ENDMETHOD.
+
+  METHOD zif_abapgit_environment~is_variant_maintenance.
+    ASSERT 1 = 'decoupled'.
+  ENDMETHOD.
+
+ENDCLASS.

test/src/web/zcl_abapgit_web_environment.clas.xml

@@ -0,0 +1,16 @@
+<?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_ABAPGIT_WEB_ENVIRONMENT</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ZCL_ABAPGIT_WEB_ENVIRONMENT</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>

test/src/web/zcl_abapgit_web_inject_fm.clas.abap

@@ -0,0 +1,33 @@
+CLASS zcl_abapgit_web_inject_fm DEFINITION PUBLIC.
+  PUBLIC SECTION.
+    INTERFACES if_ftd_invocation_answer.
+    CLASS-METHODS inject.
+ENDCLASS.
+
+CLASS zcl_abapgit_web_inject_fm IMPLEMENTATION.
+  METHOD if_ftd_invocation_answer~answer.
+    RETURN.
+  ENDMETHOD.
+
+  METHOD inject.
+
+    DATA lt_deps    TYPE if_function_test_environment=>tt_function_dependencies.
+    DATA lv_dep     LIKE LINE OF lt_deps.
+    DATA li_env     TYPE REF TO if_function_test_environment.
+    DATA lo_handler TYPE REF TO zcl_abapgit_web_inject_fm.
+
+
+    INSERT 'ENQUEUE_EZABAPGIT' INTO TABLE lt_deps.
+    INSERT 'DEQUEUE_EZABAPGIT' INTO TABLE lt_deps.
+    INSERT 'SAPGUI_PROGRESS_INDICATOR' INTO TABLE lt_deps.
+    INSERT 'TR_OBJECT_TABLE' INTO TABLE lt_deps.
+    li_env = cl_function_test_environment=>create( lt_deps ).
+
+    CREATE OBJECT lo_handler.
+    LOOP AT lt_deps INTO lv_dep.
+      li_env->get_double( lv_dep )->configure_call( )->ignore_all_parameters( )->then_answer( lo_handler ).
+    ENDLOOP.
+
+  ENDMETHOD.
+
+ENDCLASS.

test/src/web/zcl_abapgit_web_inject_fm.clas.xml

@@ -0,0 +1,16 @@
+<?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_ABAPGIT_WEB_INJECT_FM</CLSNAME>
+    <LANGU>E</LANGU>
+    <DESCRIPT>ZCL_ABAPGIT_WEB_INJECT_FM</DESCRIPT>
+    <STATE>1</STATE>
+    <CLSCCINCL>X</CLSCCINCL>
+    <FIXPT>X</FIXPT>
+    <UNICODE>X</UNICODE>
+   </VSEOCLASS>
+  </asx:values>
+ </asx:abap>
+</abapGit>