emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lang/emacs-lisp: remove ert commands

Browse source
This commit is contained in:
Henrik Lissner 2017-04-04 03:36:07 -04:00
parent 2eafdc8c6f
commit cfc52a8d40
1 changed files with 0 additions and 40 deletions
Download patch file Download diff file Expand all files Collapse all files

40
modules/lang/emacs-lisp/autoload.el
View file

@ -1,7 +1,5 @@
;;; lang/emacs-lisp/autoload.el ;;; lang/emacs-lisp/autoload.el
;; ---- emacs-lisp ---------------------------------------------------
;;;###autoload ;;;###autoload
(defun +emacs-lisp/repl () (defun +emacs-lisp/repl ()
"Open the Emacs Lisp REPL (`ielm')." "Open the Emacs Lisp REPL (`ielm')."
@ -12,41 +10,3 @@
(let ((buf (get-buffer "*ielm*"))) (let ((buf (get-buffer "*ielm*")))
(bury-buffer buf) (bury-buffer buf)
buf))))) buf)))))
;; ---- ert ---------------------------------------------------
(defsubst +ert--pre ()
(save-buffer) (eval-buffer))
;;;###autoload
(defun +ert/run-test ()
(interactive)
(let (case-fold-search thing)
(+ert--pre)
(setq thing (thing-at-point 'defun t))
(if thing
(if (string-match "(ert-deftest \\([^ ]+\\)" thing)
(ert-run-tests-interactively
(substring thing (match-beginning 1) (match-end 1)))
(user-error "Invalid test at point"))
(user-error "No test found at point"))))
;;;###autoload
(defun +ert/rerun-test ()
(interactive)
(let (case-fold-search thing)
(+ert--pre)
(setq thing (car-safe ert--selector-history))
(if thing
(ert-run-tests-interactively thing)
(message "No test found in history, looking for test at point")
(+ert-run-test))))
;;;###autoload
(defun +ert/run-all-tests ()
(interactive)
(ert-delete-all-tests)
(+ert--pre)
(ert-run-tests-interactively t))