mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Add a test for byte-compilation

Browse Source 
* test/lisp/progmodes/elisp-mode-tests.el
(elisp-shorthand-byte-compile-a-file): New test.
(elisp-shorthand-load-a-file): Simplify.
This commit is contained in:
João Távora 2020-09-21 16:58:46 +01:00
parent ea9544dac5
commit d8d196cf9e
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
test/lisp/progmodes/elisp-mode-tests.el
View File

@ -843,9 +843,29 @@ to (xref-elisp-test-descr-to-target xref)."
(error "this file needs to be loaded")))))
(ert-deftest elisp-shorthand-load-a-file ()
(let ((load-path (cons elisp--test-resources-dir
load-path)))
(load "simple-shorthand-test")
(let ((test-file (expand-file-name "simple-shorthand-test.el"
elisp--test-resources-dir)))
(mapatoms (lambda (s)
(when (string-match "^elisp--foo-" (symbol-name s))
(unintern s obarray))))
(load test-file)
(should (intern-soft "elisp--foo-test"))
(should-not (intern-soft "f-test"))))
(ert-deftest elisp-shorthand-byte-compile-a-file ()
(let ((test-file (expand-file-name "simple-shorthand-test.el"
elisp--test-resources-dir))
(byte-compiled (expand-file-name "simple-shorthand-test.elc"
elisp--test-resources-dir)))
(mapatoms (lambda (s)
(when (string-match "^elisp--foo-" (symbol-name s))
(unintern s obarray))))
(byte-compile-file test-file)
(should-not (intern-soft "f-test"))
(should (intern-soft "elisp--foo-test"))
(should-not (fboundp (intern-soft "elisp--foo-test")))
(load byte-compiled)
(should (intern-soft "elisp--foo-test"))
(should-not (intern-soft "f-test"))))