diff options
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")) |