[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/shorthand-namespacing 4b61464 5/8: Add a test for byte-compilati
From: |
João Távora |
Subject: |
feature/shorthand-namespacing 4b61464 5/8: Add a test for byte-compilation |
Date: |
Tue, 21 Sep 2021 11:27:01 -0400 (EDT) |
branch: feature/shorthand-namespacing
commit 4b6146418f02977f54a846d49ac67e8ebd40407a
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>
Add a test for byte-compilation
* test/lisp/progmodes/elisp-mode-tests.el
(elisp-shorthand-byte-compile-a-file): New test.
(elisp-shorthand-load-a-file): Simplify.
---
test/lisp/progmodes/elisp-mode-tests.el | 26 +++++++++++++++++++++++---
1 file changed, 23 insertions(+), 3 deletions(-)
diff --git a/test/lisp/progmodes/elisp-mode-tests.el
b/test/lisp/progmodes/elisp-mode-tests.el
index bc9e103..684ac83 100644
--- a/test/lisp/progmodes/elisp-mode-tests.el
+++ b/test/lisp/progmodes/elisp-mode-tests.el
@@ -1054,9 +1054,29 @@ evaluation of BODY."
(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"))))
- branch feature/shorthand-namespacing created (now 4d5f6ad), João Távora, 2021/09/21
- feature/shorthand-namespacing b759f0b 1/8: First Elisp version of lisp/shorthand.el, failing some tests, João Távora, 2021/09/21
- feature/shorthand-namespacing b5e4902 2/8: Move most of the shorthand implementation to C code, João Távora, 2021/09/21
- feature/shorthand-namespacing 6bc684c 7/8: Rework docstring of hack-elisp-shorthands, João Távora, 2021/09/21
- feature/shorthand-namespacing 4d5f6ad 8/8: Adjust C style and add comments to shorthand code, João Távora, 2021/09/21
- feature/shorthand-namespacing a527a1a 6/8: Rework elisp-shorthands to only allow only prefix substitution, João Távora, 2021/09/21
- feature/shorthand-namespacing 2e607b3 3/8: Robustify checking of shorthand-shorthands, João Távora, 2021/09/21
- feature/shorthand-namespacing 4b61464 5/8: Add a test for byte-compilation,
João Távora <=
- feature/shorthand-namespacing 8076838 4/8: Integrate shorthand functionality into elisp-mode.el, João Távora, 2021/09/21