add sub1

1 files changed, 16 insertions, 0 deletions

diff --git a/test/src/comp-tests.el b/test/src/comp-tests.el
index e1d6f313fd7..e13db89ddc6 100644
--- a/test/src/comp-tests.el
+++ b/test/src/comp-tests.el
@@ -146,6 +146,22 @@
   (should (= (comp-tests-conditionals-2-f t) 1340))
   (should (eq (comp-tests-conditionals-2-f nil) nil)))
 
+(ert-deftest  comp-tests-fixnum ()
+  "Testing some fixnum inline operation."
+  (defun comp-tests-fixnum-1-f (x)
+    (1- x))
+
+  (byte-compile #'comp-tests-fixnum-1-f)
+  (native-compile #'comp-tests-fixnum-1-f)
+
+  (should (= (comp-tests-fixnum-1-f 10) 9))
+  (should (= (comp-tests-fixnum-1-f most-negative-fixnum)
+             (1- most-negative-fixnum)))
+  (should (equal (condition-case err
+                     (comp-tests-fixnum-1-f 'a)
+                   (error (print err)))
+                 '(wrong-type-argument number-or-marker-p a))))
+
 (ert-deftest comp-tests-gc ()
   "Try to do some longer computation to let the gc kick in."
   (dotimes (_ 100000)