Make repeat after dape session call dape session again

Author: johannes-mueller

test-cockpit.el

@@ -397,7 +397,9 @@ session, the main dispatch dialog is invoked."
   (interactive
    (list (transient-args 'test-cockpit-prefix)))
   (if-let (last-cmd (oref (test-cockpit--real-engine-or-error) last-command))
-      (test-cockpit--run-test last-cmd)
+      (if (eq last-cmd 'test-cockpit--last-command-was-dape)
+          (test-cockpit-dape-debug-repeat-test)
+      (test-cockpit--run-test last-cmd))
     (test-cockpit-dispatch)))
 
 ;;;###autoload
@@ -467,9 +469,14 @@ in order to call the last test action with modified ARGS."
   (interactive)
   (if-let
       ((config (test-cockpit--dape-debug-last-test)))
-      (dape config)
+      (test-cockpit--launch-dape config)
     (user-error "No recent test-action has been performed or no Dape support for backend")))
 
+(defun test-cockpit--launch-dape (config)
+  "Launch the dape debug session and memorize that last test was a dape session."
+  (dape config)
+  (oset (test-cockpit--retrieve-engine) last-command 'test-cockpit--last-command-was-dape))
+
 (defun test-cockpit--projectile-build (&optional last-cmd)
   "Launch a projectile driven build process.
 If last executed command LAST-CMD is given the command is

test/test-cockpit.el-test.el

@@ -405,6 +405,14 @@
     (test-cockpit-dape-debug-repeat-test)))
 
 
+(ert-deftest test-dape-debug-repeat-test--repeat ()
+  (tc--register-dape-project "dape")
+  (mocker-let ((projectile-project-type () ((:output 'dape-project-type)))
+               (dape (config) ((:input '(dape-foo-config) :output 'success :occur 2))))
+    (test-cockpit-dape-debug-repeat-test)
+    (test-cockpit-repeat-test)))
+
+
 (ert-deftest test-main-suffix--all-nil ()
   (tc--register-foo-project "foo")
   (mocker-let ((projectile-project-type () ((:output 'foo-project-type)))