X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/68fa05fd936aeb5ed4d39a48c570b1d4c29e8f9c..68cb71c0928eb8b10487a125192f43923e8bfe7f:/test/lisp/subr-tests.el

diff --git a/test/lisp/subr-tests.el b/test/lisp/subr-tests.el
index 7906a207a9..ce212903c9 100644
--- a/test/lisp/subr-tests.el
+++ b/test/lisp/subr-tests.el
@@ -61,6 +61,15 @@
                      (quote
                       (0 font-lock-keyword-face))))))))
 
+(ert-deftest number-sequence-test ()
+  (should (= (length
+              (number-sequence (1- most-positive-fixnum) most-positive-fixnum))
+             2))
+  (should (= (length
+              (number-sequence
+               (1+ most-negative-fixnum) most-negative-fixnum -1))
+             2)))
+
 (ert-deftest string-comparison-test ()
   (should (string-lessp "abc" "acb"))
   (should (string-lessp "aBc" "abc"))