Fix infloop in 'number-sequence'

[gnu-emacs] / test / automated / subr-tests.el

diff --git a/test/automated/subr-tests.el b/test/automated/subr-tests.el
index 7906a207a96ac6f0eee7d32861fe4d12873cd20e..ce212903c9d3cb41deb4c52d97d0305e4a49a0ec 100644 (file)
--- a/test/automated/subr-tests.el
+++ b/test/automated/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"))