diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/floatfns-tests.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/test/src/floatfns-tests.el b/test/src/floatfns-tests.el index cdfb8244f52..de3e44314f9 100644 --- a/test/src/floatfns-tests.el +++ b/test/src/floatfns-tests.el | |||
| @@ -28,4 +28,10 @@ | |||
| 28 | (ert-deftest logb-extreme-fixnum () | 28 | (ert-deftest logb-extreme-fixnum () |
| 29 | (should (= (logb most-negative-fixnum) (1+ (logb most-positive-fixnum))))) | 29 | (should (= (logb most-negative-fixnum) (1+ (logb most-positive-fixnum))))) |
| 30 | 30 | ||
| 31 | (ert-deftest fround-fixnum () | ||
| 32 | (should-error (ffloor 0) :type 'wrong-type-argument) | ||
| 33 | (should-error (fceiling 0) :type 'wrong-type-argument) | ||
| 34 | (should-error (ftruncate 0) :type 'wrong-type-argument) | ||
| 35 | (should-error (fround 0) :type 'wrong-type-argument)) | ||
| 36 | |||
| 31 | (provide 'floatfns-tests) | 37 | (provide 'floatfns-tests) |