feature/native-comp 34117de 05/12: Add a test for speed -1

[Andrea Corallo]

branch: feature/native-comp
commit 34117dea7736012114e5c20fcf9f328e0658f8b3
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>

    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.
---
 test/src/comp-test-funcs.el | 4 ++++
 test/src/comp-tests.el      | 5 +++++
 2 files changed, 9 insertions(+)

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 5e04be4..168819b 100644
--- 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)
+
 
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;
diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index ee96d56..d6fff82 100644
--- 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))))
+
 
 ;;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests. ;;