diff --git a/modules/lang/emacs-lisp/autoload.el b/modules/lang/emacs-lisp/autoload.el
index df200bb5a..9432513ae 100644
--- a/modules/lang/emacs-lisp/autoload.el
+++ b/modules/lang/emacs-lisp/autoload.el
@@ -114,6 +114,16 @@ if it's callable, `apropos' otherwise."
       (buttercup-run))
     (message "File executed successfully")))
 
+;;;###autoload
+(defun +emacs-lisp/buttercup-run-project ()
+  "Run all buttercup tests in the project."
+  (interactive)
+  (let* ((default-directory (doom-project-root))
+         (load-path (append (list (doom-path "test")
+                                  default-directory)
+                            load-path)))
+    (buttercup-run-discover)))
+
 
 ;;
 ;;; Hooks
diff --git a/modules/lang/emacs-lisp/config.el b/modules/lang/emacs-lisp/config.el
index 485cd3510..d673197b9 100644
--- a/modules/lang/emacs-lisp/config.el
+++ b/modules/lang/emacs-lisp/config.el
@@ -133,7 +133,7 @@ This marks a foldable marker for `outline-minor-mode' in elisp buffers.")
         :localleader
         :prefix "t"
         "t" #'+emacs-lisp/buttercup-run-file
-        "a" #'buttercup-run-discover
+        "a" #'+emacs-lisp/buttercup-run-project
         "s" #'buttercup-run-at-point))