let mod for ert-helper.el

1 files changed, 7 insertions, 3 deletions

diff --git a/test/ert-helper.el b/test/ert-helper.el
index 4e634b0..5acdc68 100644
--- a/test/ert-helper.el
+++ b/test/ert-helper.el
@@ -15,9 +15,13 @@
 (load-file "lisp/mastodon-async.el")
 
 ;; load tests in bulk to avoid using deprecated `cask exec'
-(let ((tests (cl-remove-if-not (lambda (x)
-                                 (string-suffix-p "-tests.el" x))
-                               (directory-files "test/." t directory-files-no-dot-files-regexp))))
+(let* ((all-test-files
+        (directory-files "test/." t directory-files-no-dot-files-regexp))
+       (tests
+        (cl-remove-if-not
+         (lambda (x)
+           (string-suffix-p "-tests.el" x))
+         all-test-files)))
   (mapc #'load-file tests))