Add debug test at point

Author: ericdallo

Makefile

@@ -18,7 +18,7 @@ LINT="(progn \
 build:
 	cask install
 
-test: build compile checkdoc lint
+test: clean build compile checkdoc lint
 
 compile:
 	@echo "Compiling..."
@@ -57,7 +57,7 @@ lint:
 		*.el
 
 clean:
-	rm -rf .cask
+	rm -rf .cask *.elc
 
 tag:
 	$(eval TAG := $(filter-out $@,$(MAKECMDGOALS)))

lsp-dart-test-support.el

@@ -217,6 +217,20 @@ PARAMS is the notification data from outline."
   "Return non-nil if FILE-NAME is a dart test files."
   (string-match "_test.dart" file-name))
 
+(defun lsp-dart-test-support-test-overlay-at-point ()
+  "Return test overlay at point.
+Return the overlay which has the smallest range of all test overlays in
+the current buffer."
+  (-some--> (overlays-in (point-min) (point-max))
+    (--filter (when (overlay-get it 'lsp-dart-test-code-lens)
+                (-let* (((beg . end) (overlay-get it 'lsp-dart-test-overlay-test-range)))
+                  (and (>= (point) beg)
+                       (<= (point) end)))) it)
+    (--min-by (-let* (((beg1 . end1) (overlay-get it 'lsp-dart-test-overlay-test-range))
+                      ((beg2 . end2) (overlay-get other 'lsp-dart-test-overlay-test-range)))
+                (and (< beg1 beg2)
+                     (> end1 end2))) it)))
+
 (defun lsp-dart-test-support-run-last-test ()
   "Run last ran test."
   (if-let ((test (lsp-workspace-get-metadata "last-ran-test")))

lsp-dart.el

@@ -408,20 +408,21 @@ If the version number could not be determined, signal an error."
 
 ;;;###autoload
 (defun lsp-dart-run-test-at-point ()
-  "Run test checking for the previous overlay at point.
-Run test of the overlay which has the smallest range of
-all test overlays in the current buffer."
+  "Run test at point.
+Search for the last test overlay."
   (interactive)
-  (-some--> (overlays-in (point-min) (point-max))
-    (--filter (when (overlay-get it 'lsp-dart-test-code-lens)
-                (-let* (((beg . end) (overlay-get it 'lsp-dart-test-overlay-test-range)))
-                  (and (>= (point) beg)
-                       (<= (point) end)))) it)
-    (--min-by (-let* (((beg1 . end1) (overlay-get it 'lsp-dart-test-overlay-test-range))
-                      ((beg2 . end2) (overlay-get other 'lsp-dart-test-overlay-test-range)))
-                (and (< beg1 beg2)
-                     (> end1 end2))) it)
-    (lsp-dart-test-support-run (overlay-get it 'lsp-dart-test))))
+  (if-let (overlay (lsp-dart-test-support-test-overlay-at-point))
+      (lsp-dart-test-support-run (overlay-get overlay 'lsp-dart-test))
+    (lsp-dart-project-log "No test found at point.")))
+
+;;;###autoload
+(defun lsp-dart-debug-test-at-point ()
+  "Debug test at point.
+Search for the last test overlay."
+  (interactive)
+  (if-let (overlay (lsp-dart-test-support-test-overlay-at-point))
+      (lsp-dart-test-support-debug (overlay-get overlay 'lsp-dart-test))
+    (lsp-dart-project-log "No test found at point.")))
 
 ;;;###autoload
 (defun lsp-dart-run-test-file ()