diff options
author | João Távora <joaotavora@gmail.com> | 2020-09-21 16:58:46 +0100 |
---|---|---|
committer | João Távora <joaotavora@gmail.com> | 2020-09-21 17:01:08 +0100 |
commit | d8d196cf9eb283299eabaf70706d0e86adff03d6 (patch) | |
tree | 0ca9ce784cdc0c91c8552f58bdd91c756e034e60 | |
parent | ea9544dac5ceb27451d1b7142a785410cf811925 (diff) | |
download | emacs-scratch/shorthand-namespacing.tar.gz |
Add a test for byte-compilationscratch/shorthand-namespacing
* test/lisp/progmodes/elisp-mode-tests.el
(elisp-shorthand-byte-compile-a-file): New test.
(elisp-shorthand-load-a-file): Simplify.
-rw-r--r-- | test/lisp/progmodes/elisp-mode-tests.el | 26 |
1 files changed, 23 insertions, 3 deletions
diff --git a/test/lisp/progmodes/elisp-mode-tests.el b/test/lisp/progmodes/elisp-mode-tests.el index dee043bd3ec..9621ab33c37 100644 --- a/test/lisp/progmodes/elisp-mode-tests.el +++ b/test/lisp/progmodes/elisp-mode-tests.el @@ -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")))) |