procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Document and test 'no-byte-compile' behavior.

Browse source 
* lisp/emacs-lisp/bytecomp.el (byte-compile-file): Document behavior
if 'no-byte-compile' is set.
* test/lisp/emacs-lisp/bytecomp-tests.el
(byte-compile-file/no-byte-compile): New unit test.
* test/lisp/emacs-lisp/bytecomp-resources/no-byte-compile.el: New test
file.
This commit is contained in:
Philipp Stephani 2022-06-21 19:10:14 +02:00
parent 16d48cf8a0
commit dbbf38d43f
3 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
test/lisp/emacs-lisp/bytecomp-resources/no-byte-compile.el Normal file
View file

@ -0,0 +1 @@
;; -*- no-byte-compile: t; -*-

7
test/lisp/emacs-lisp/bytecomp-tests.el
View file

@ -1642,6 +1642,13 @@ EXPECTED-POINT BINDINGS (MODES \\='\\='(ruby-mode js-mode python-mode)) \
(setq actual (nreverse actual))
(should (equal actual expected)))))))
(ert-deftest byte-compile-file/no-byte-compile ()
(let* ((src-file (ert-resource-file "no-byte-compile.el"))
(dest-file (make-temp-file "bytecomp-tests-" nil ".elc"))
(byte-compile-dest-file-function (lambda (_) dest-file)))
(should (eq (byte-compile-file src-file) 'no-byte-compile))
(should-not (file-exists-p dest-file))))
;; Local Variables:
;; no-byte-compile: t