diff options
| author | Eli Zaretskii | 2016-05-27 12:17:15 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2016-05-27 12:17:15 +0300 |
| commit | f7ffc4b7d36041eba2abe9bc34927413f48056d4 (patch) | |
| tree | 21016675c4b801c9a7d40e8b69e369a9ca92429b /test | |
| parent | 4ab2673d87794dbbe4db33856c0dc69e4b06db71 (diff) | |
| download | emacs-f7ffc4b7d36041eba2abe9bc34927413f48056d4.tar.gz emacs-f7ffc4b7d36041eba2abe9bc34927413f48056d4.zip | |
Fix infloop in 'number-sequence'
* lisp/subr.el (number-sequence): Avoid overflow leading to an
infloop. (Bug#23627)
* test/automated/subr-tests.el (number-sequence-test): New test.
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/subr-tests.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/test/automated/subr-tests.el b/test/automated/subr-tests.el index 7906a207a96..ce212903c9d 100644 --- a/test/automated/subr-tests.el +++ b/test/automated/subr-tests.el | |||
| @@ -61,6 +61,15 @@ | |||
| 61 | (quote | 61 | (quote |
| 62 | (0 font-lock-keyword-face)))))))) | 62 | (0 font-lock-keyword-face)))))))) |
| 63 | 63 | ||
| 64 | (ert-deftest number-sequence-test () | ||
| 65 | (should (= (length | ||
| 66 | (number-sequence (1- most-positive-fixnum) most-positive-fixnum)) | ||
| 67 | 2)) | ||
| 68 | (should (= (length | ||
| 69 | (number-sequence | ||
| 70 | (1+ most-negative-fixnum) most-negative-fixnum -1)) | ||
| 71 | 2))) | ||
| 72 | |||
| 64 | (ert-deftest string-comparison-test () | 73 | (ert-deftest string-comparison-test () |
| 65 | (should (string-lessp "abc" "acb")) | 74 | (should (string-lessp "abc" "acb")) |
| 66 | (should (string-lessp "aBc" "abc")) | 75 | (should (string-lessp "aBc" "abc")) |