Define test command for Common Lisp projects
I tried `projectile-test-project`, but it only accepts shell commands, whereas I wanted a faster way to run tests from the SLIME REPL.
This commit is contained in:
parent
76d472b0e0
commit
babf615646
14
init.org
14
init.org
|
@ -1057,7 +1057,8 @@ _u_: next word ^_l_: edit lines^ _s_: next whole symbol
|
||||||
("j" slime-edit-definition "Jump to definition")
|
("j" slime-edit-definition "Jump to definition")
|
||||||
("p" slime-repl-set-package "Set package")
|
("p" slime-repl-set-package "Set package")
|
||||||
("n" imenus "imenus")
|
("n" imenus "imenus")
|
||||||
("v" slime-inspect-presentation-at-point "inspect"))
|
("v" slime-inspect-presentation-at-point "inspect")
|
||||||
|
("t" my-run-cl-tests "test"))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
**** eval
|
**** eval
|
||||||
|
@ -5559,6 +5560,17 @@ All COMMAND-SPECS should be a list in the form
|
||||||
:config
|
:config
|
||||||
(modify-syntax-entry ?\[ "(]" lisp-mode-syntax-table)
|
(modify-syntax-entry ?\[ "(]" lisp-mode-syntax-table)
|
||||||
(modify-syntax-entry ?\] ")[" lisp-mode-syntax-table)) ;; cl-launch scripts
|
(modify-syntax-entry ?\] ")[" lisp-mode-syntax-table)) ;; cl-launch scripts
|
||||||
|
|
||||||
|
(defvar my-test-command nil
|
||||||
|
"Command which runs tests for the current project.")
|
||||||
|
|
||||||
|
(defun my-run-cl-tests ()
|
||||||
|
(interactive)
|
||||||
|
(cond ((bound-and-true-p my-test-command)
|
||||||
|
;; (slime-interactive-eval my-test-command)
|
||||||
|
(slime-repl-send-string my-test-command)
|
||||||
|
(slime-switch-to-output-buffer))
|
||||||
|
(t (message "my-test-commmand is unbound or nil"))))
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
|
|
||||||
*** redshank
|
*** redshank
|
||||||
|
|
Loading…
Reference in New Issue