awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-01 12:17:25 -05:00
Code Issues Packages Projects Releases Wiki Activity

refactor(go): 'go test ...' commands

Browse Source 
Better error handling and fewer side-effects (with match data).
This commit is contained in:
Henrik Lissner
2025-03-30 16:54:57 -04:00
parent 65d43ae472
commit 7827d32cc6
1 changed files with 30 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
modules/lang/go/autoload.el
View File

@ -1,15 +1,19 @@
;;; lang/go/autoload.el -*- lexical-binding: t; -*-
;;
;; Tests
(defvar +go-test-last nil
"The last test run.")
(defun +go--spawn (cmd)
(save-selected-window
(compile cmd)))
(defun +go--assert-buffer-visiting ()
(unless buffer-file-name
(user-error "Not in a file-visiting buffer")))
;;; go test ...
(defvar +go-test-last nil
"The last test run.")
(defun +go--run-tests (args)
(let ((cmd (concat "go test -test.v " args)))
(setq +go-test-last (concat "cd " default-directory ";" cmd))
@ -39,24 +43,31 @@
(defun +go/test-single ()
"Run single test at point."
(interactive)
(if (string-match "_test\\.go" buffer-file-name)
(save-excursion
(re-search-backward "^func[ ]+\\(([[:alnum:]]*?[ ]?[*]?[[:alnum:]]+)[ ]+\\)?\\(Test[[:alnum:]_]+\\)(.*)")
(+go--run-tests (concat "-run" "='^\\Q" (match-string-no-properties 2) "\\E$'")))
(error "Must be in a _test.go file")))
(+go--assert-buffer-visiting)
(unless (string-match-p "_test\\.go$" buffer-file-name)
(user-error "Must be in a *_test.go file"))
(save-excursion
(save-match-data
(unless (re-search-backward "^func[ ]+\\(([[:alnum:]]*?[ ]?[*]?[[:alnum:]]+)[ ]+\\)?\\(Test[[:alnum:]_]+\\)(.*)" nil t)
(user-error "No detectable test at or after point"))
(+go--run-tests (concat "-run" "='^\\Q" (match-string-no-properties 2) "\\E$'")))))
;;;###autoload
(defun +go/test-file ()
"Run all tests in current file."
(interactive)
(if (string-match "_test\\.go" buffer-file-name)
(save-excursion
(goto-char (point-min))
(let ((func-list))
(while (re-search-forward "^func[ ]+\\(([[:alnum:]]*?[ ]?[*]?[[:alnum:]]+)[ ]+\\)?\\(Test[[:alnum:]_]+\\)(.*)" nil t)
(push (match-string-no-properties 2) func-list))
(+go--run-tests (concat "-run" "='^(" (string-join func-list "|") ")$'"))))
(error "Must be in a _test.go file")))
(+go--assert-buffer-visiting)
(unless (string-match-p "_test\\.go$" buffer-file-name)
(user-error "Must be in a *_test.go file"))
(save-excursion
(save-match-data
(goto-char (point-min))
(let (func-list)
(while (re-search-forward "^func[ ]+\\(([[:alnum:]]*?[ ]?[*]?[[:alnum:]]+)[ ]+\\)?\\(Test[[:alnum:]_]+\\)(.*)" nil t)
(push (match-string-no-properties 2) func-list))
(unless func-list
(user-error "No detectable tests in this file"))
(+go--run-tests (concat "-run" "='^(" (string-join func-list "|") ")$'"))))))
;;;###autoload
(defun +go/bench-all ()