Add a nativecomp testcase

Having this while re-debugging the boostrap would have saved few hours
of debug so let's add it.

	* test/src/comp-tests.el (and-3): Add test.
	* test/src/comp-test-funcs.el (comp-test-and-3-var): New var.
	(comp-test-and-3-f): New function.

diff --git a/test/src/comp-test-funcs.el b/test/src/comp-test-funcs.el
index 35df46a9b8400d9a423025f3acc951b08484d0d0..1b0f3056b98ac47cd9a094fef27fd71a9dc1536a 100644 (file)
--- a/test/src/comp-test-funcs.el
+++ b/test/src/comp-test-funcs.el
@@ -348,6 +348,12 @@
 (defsubst comp-test-defsubst-f ()
   t)
 
+(defvar comp-test-and-3-var 1)
+(defun comp-test-and-3-f (x)
+  (and (atom x)
+       comp-test-and-3-var
+       2))
+
 \f
 ;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests ;;

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index 48687d92021c1ac1845ed29b1ce80b11da9e0646..8bedad5db732c7a23d26d4dfda76c53937052c0f 100644 (file)
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -440,6 +440,10 @@ https://lists.gnu.org/archive/html/bug-gnu-emacs/2020-03/msg00914.html."
               '(lambda ()
                  (delete-region (point-min) (point-max))))))))
 
+(comp-deftest and-3 ()
+  (should (= (comp-test-and-3-f t) 2))
+  (should (null (comp-test-and-3-f '(1 2)))))
+
 \f
 ;;;;;;;;;;;;;;;;;;;;;
 ;; Tromey's tests. ;;