scratch/shorthand-namespacing d8d196c 4/4: Add a test for byte-compilation

[João Távora]

branch: scratch/shorthand-namespacing
commit d8d196cf9eb283299eabaf70706d0e86adff03d6
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 dee043b..9621ab3 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"))))