diff options
| author | Tom Tromey | 2018-07-05 13:19:32 -0600 |
|---|---|---|
| committer | Tom Tromey | 2018-07-12 22:12:27 -0600 |
| commit | 025adce2cf43f4ce9f3c543c1b8973541e1414d2 (patch) | |
| tree | f3ea1912a987b717b28b8df9bb33cb12c3965778 /test/src | |
| parent | 872faabbd8cb0f5518777b2d4fe7de187f684a92 (diff) | |
| download | emacs-025adce2cf43f4ce9f3c543c1b8973541e1414d2.tar.gz emacs-025adce2cf43f4ce9f3c543c1b8973541e1414d2.zip | |
Make abs handle bignums
* src/floatfns.c (Fabs): Handle bignums.
* test/src/floatfns-tests.el (bignum-abs): New test.
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/floatfns-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/src/floatfns-tests.el b/test/src/floatfns-tests.el index c87445b6bd2..0911ff46515 100644 --- a/test/src/floatfns-tests.el +++ b/test/src/floatfns-tests.el | |||
| @@ -38,4 +38,8 @@ | |||
| 38 | (should (eql (float (+ most-positive-fixnum 1)) | 38 | (should (eql (float (+ most-positive-fixnum 1)) |
| 39 | (+ (float most-positive-fixnum) 1)))) | 39 | (+ (float most-positive-fixnum) 1)))) |
| 40 | 40 | ||
| 41 | (ert-deftest bignum-abs () | ||
| 42 | (should (= most-positive-fixnum | ||
| 43 | (- (abs most-negative-fixnum) 1)))) | ||
| 44 | |||
| 41 | (provide 'floatfns-tests) | 45 | (provide 'floatfns-tests) |