diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/data-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/src/data-tests.el b/test/src/data-tests.el index d41c7623289..bbf7e2a2394 100644 --- a/test/src/data-tests.el +++ b/test/src/data-tests.el | |||
| @@ -656,6 +656,10 @@ comparing the subr with a much slower lisp implementation." | |||
| 656 | (ert-deftest data-tests-ash-lsh () | 656 | (ert-deftest data-tests-ash-lsh () |
| 657 | (should (= (ash most-negative-fixnum 1) | 657 | (should (= (ash most-negative-fixnum 1) |
| 658 | (* most-negative-fixnum 2))) | 658 | (* most-negative-fixnum 2))) |
| 659 | (should (= (ash 0 (* 2 most-positive-fixnum)) 0)) | ||
| 660 | (should (= (ash 1000 (* 2 most-negative-fixnum)) 0)) | ||
| 661 | (should (= (ash -1000 (* 2 most-negative-fixnum)) -1)) | ||
| 662 | (should (= (ash (* 2 most-negative-fixnum) (* 2 most-negative-fixnum)) -1)) | ||
| 659 | (should (= (lsh most-negative-fixnum 1) | 663 | (should (= (lsh most-negative-fixnum 1) |
| 660 | (* most-negative-fixnum 2))) | 664 | (* most-negative-fixnum 2))) |
| 661 | (should (= (ash (* 2 most-negative-fixnum) -1) | 665 | (should (= (ash (* 2 most-negative-fixnum) -1) |