Add a test for speed -1

	* test/src/comp-tests.el (comp-test-speed--1): New test

	* test/src/comp-test-funcs.el (comp-test-speed--1-f): New
	function.

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 5e04be4459fcab204d25b2f179f1f3b64d72de75..168819b17d67a368af3d37506049e492533dd75b 100644 (file)
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -286,6 +286,10 @@
 (defun comp-test-40187-2-f ()
   'bar)
 
+(defun comp-test-speed--1-f ()
+  (declare (speed -1))
+  3)
+
 \f
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index ee96d5656e7b31ef1d88a7506562a7702d5ef749..d6fff8233c061e0a64c12af80d682bb3f45c3c45 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -358,6 +358,11 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html."
   (should (eq (comp-test-40187-1-f) 'foo))
   (should (eq (comp-test-40187-2-f) 'bar)))
 
+(ert-deftest comp-test-speed--1 ()
+  "Check that at speed -1 we do not native compile."
+  (should (= (comp-test-speed--1-f) 3))
+  (should-not (subr-native-elisp-p (symbol-function #'comp-test-speed--1-f))))
+
 \f
 ;;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests. ;;