From 54f9426a9af2a9ece8a1f56849d30fde3c2eefde Mon Sep 17 00:00:00 2001
From: Lars Hvam <larshp@hotmail.com>
Date: Wed, 11 Oct 2023 15:10:55 +0200
Subject: [PATCH] unit test page: add re-run button (#6533)

---
 package.json                                  |  4 +--
 .../zcl_abapgit_gui_page_runit.clas.abap      | 29 +++++++++++++++----
 2 files changed, 26 insertions(+), 7 deletions(-)

diff --git a/package.json b/package.json
index 95d4fc84b..b0c95c030 100644
--- a/package.json
+++ b/package.json
@@ -29,8 +29,8 @@
   "devDependencies": {
     "@abaplint/cli": "^2.102.56",
     "@abaplint/database-sqlite": "^2.7.101",
-    "@abaplint/runtime": "^2.7.102",
-    "@abaplint/transpiler-cli": "^2.7.102",
+    "@abaplint/runtime": "^2.7.105",
+    "@abaplint/transpiler-cli": "^2.7.105",
     "abapmerge": "^0.16.0",
     "c8": "^8.0.1",
     "eslint": "^8.51.0"
diff --git a/src/ui/pages/zcl_abapgit_gui_page_runit.clas.abap b/src/ui/pages/zcl_abapgit_gui_page_runit.clas.abap
index 4e220ad6e..46082987b 100644
--- a/src/ui/pages/zcl_abapgit_gui_page_runit.clas.abap
+++ b/src/ui/pages/zcl_abapgit_gui_page_runit.clas.abap
@@ -27,6 +27,11 @@ CLASS zcl_abapgit_gui_page_runit DEFINITION
   PROTECTED SECTION.
   PRIVATE SECTION.
 
+    CONSTANTS:
+      BEGIN OF c_actions,
+        rerun TYPE string VALUE 'rerun' ##NO_TEXT,
+      END OF c_actions .
+
     TYPES:
       BEGIN OF ty_key,
         obj_name TYPE tadir-obj_name,
@@ -53,7 +58,7 @@ ENDCLASS.
 
 
 
-CLASS zcl_abapgit_gui_page_runit IMPLEMENTATION.
+CLASS ZCL_ABAPGIT_GUI_PAGE_RUNIT IMPLEMENTATION.
 
 
   METHOD build_tadir.
@@ -166,15 +171,29 @@ CLASS zcl_abapgit_gui_page_runit IMPLEMENTATION.
 
   METHOD zif_abapgit_gui_event_handler~on_event.
 
-    IF ii_event->mv_action = zif_abapgit_definitions=>c_action-go_back.
-      rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
-    ENDIF.
+    CASE ii_event->mv_action.
+      WHEN zif_abapgit_definitions=>c_action-go_back.
+        rs_handled-state = zcl_abapgit_gui=>c_event_state-go_back.
+      WHEN c_actions-rerun.
+        rs_handled-state = zcl_abapgit_gui=>c_event_state-re_render.
+    ENDCASE.
 
   ENDMETHOD.
 
 
   METHOD zif_abapgit_gui_menu_provider~get_menu.
-    ro_toolbar = zcl_abapgit_gui_chunk_lib=>back_toolbar( ).
+
+    CREATE OBJECT ro_toolbar.
+
+    ro_toolbar->add(
+      iv_txt = 'Re-Run'
+      iv_act = c_actions-rerun
+      iv_cur = abap_false ).
+
+    ro_toolbar->add(
+      iv_txt = 'Back'
+      iv_act = zif_abapgit_definitions=>c_action-go_back ).
+
   ENDMETHOD.