[nongnu] elpa/git-commit 9b6ae49dd1 11/11: test: Compile magit-tests.el

[ELPA Syncer]

branch: elpa/git-commit
commit 9b6ae49dd160fee91a158629ffba62ab25c48665
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    test: Compile magit-tests.el
---
 Makefile            |  3 ++-
 test/Makefile       | 11 +++++++++++
 test/magit-tests.el |  2 +-
 3 files changed, 14 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 537c54ac57..4dfe6cc34b 100644
--- a/Makefile
+++ b/Makefile
@@ -72,6 +72,7 @@ help:
 
 lisp:
        @$(MAKE) -C lisp lisp
+       @$(MAKE) -C test lisp
 
 docs:
        @$(MAKE) -C docs all
@@ -127,7 +128,7 @@ clean: clean-lisp clean-docs clean-archives
        @printf "Cleaning...\n"
        @$(RM) *.elc $(ELGS) # temporary cleanup kludge
        @$(RM) docs/*.texi~ docs/*.info-1 docs/*.info-2
-       @$(RM) magit-pkg.el t/magit-tests.elc
+       @$(RM) magit-pkg.el test/magit-tests.elc
 
 clean-lisp:
        @$(MAKE) -C lisp clean
diff --git a/test/Makefile b/test/Makefile
index c921c557fe..439eef051d 100644
--- a/test/Makefile
+++ b/test/Makefile
@@ -12,3 +12,14 @@ test-interactive:
        @$(EMACS) -Q $(LOAD_PATH) --eval "(progn\
        (load-file \"$(TOP)test/magit-tests.el\")\
        (ert t))"
+
+lisp: magit-tests.elc
+
+%.elc: %.el
+       @printf "Compiling $<\n"
+       @$(BATCH) --eval "(progn\
+       (when (file-exists-p \"$@\")\
+         (delete-file \"$@\"))\
+       (setq with-editor-emacsclient-executable nil)\
+       $$suppress_warnings)" \
+       -f batch-byte-compile $<
diff --git a/test/magit-tests.el b/test/magit-tests.el
index 4a6fbec86c..7def6abe37 100644
--- a/test/magit-tests.el
+++ b/test/magit-tests.el
@@ -278,7 +278,7 @@
   (let ((magit-process-find-password-functions
          (list (lambda (host) (when (string= host "www.host.com") 
"mypasswd")))))
     (cl-letf (((symbol-function 'process-send-string)
-               (lambda (process string) string)))
+               (lambda (_process string) string)))
       (should (string-equal (magit-process-password-prompt
                              nil "Password for 'www.host.com':")
                             "mypasswd\n")))))