From: Andrea Corallo <akrl@sdf.org>
Date: Mon, 4 Nov 2019 22:06:54 +0000 (+0100)
Subject: test provide
X-Git-Tag: emacs-28.0.90~2727^2~1038
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=809bd5aa34727151bdf40230e2fbc3151760466b;p=emacs.git

test provide
---

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 66ce0e70e8d..79a25511fad 100644
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -365,4 +365,6 @@
       (?< 1)
       (?> 2))))
 
+(provide 'comp-test-funcs)
+
 ;;; comp-test-funcs.el ends here
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 06a1ae90542..6eada52541f 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -36,8 +36,11 @@
           "comp-test-funcs.el"))
 
 (message "Compiling %s" comp-test-src)
-(native-compile comp-test-src)
-(load (concat comp-test-src "n"))
+(load (native-compile comp-test-src))
+
+(ert-deftest comp-tests-provide ()
+  "Testing top level provide."
+  (should (featurep 'comp-test-funcs)))
 
 (ert-deftest comp-tests-varref ()
   "Testing varref."