diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/data-tests.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index 1143028a126..dd6ce196f96 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el | |||
| @@ -579,4 +579,12 @@ comparing the subr with a much slower lisp implementation." | |||
| 579 | (v (read s))) | 579 | (v (read s))) |
| 580 | (should (equal (number-to-string v) s)))) | 580 | (should (equal (number-to-string v) s)))) |
| 581 | 581 | ||
| 582 | (ert-deftest data-tests-1+ () | ||
| 583 | (should (> (1+ most-positive-fixnum) most-positive-fixnum)) | ||
| 584 | (should (fixnump (1+ (1- most-negative-fixnum))))) | ||
| 585 | |||
| 586 | (ert-deftest data-tests-1- () | ||
| 587 | (should (< (1- most-negative-fixnum) most-negative-fixnum)) | ||
| 588 | (should (fixnump (1- (1+ most-positive-fixnum))))) | ||
| 589 | |||
| 582 | ;;; data-tests.el ends here | 590 | ;;; data-tests.el ends here |