diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/floatfns-tests.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/test/src/floatfns-tests.el b/test/src/floatfns-tests.el index 62201a877d0..7f1d4691bf0 100644 --- a/test/src/floatfns-tests.el +++ b/test/src/floatfns-tests.el | |||
| @@ -122,6 +122,8 @@ | |||
| 122 | 122 | ||
| 123 | (ert-deftest big-round () | 123 | (ert-deftest big-round () |
| 124 | (should (= (floor 54043195528445955 3) | 124 | (should (= (floor 54043195528445955 3) |
| 125 | (floor 54043195528445955 3.0)))) | 125 | (floor 54043195528445955 3.0))) |
| 126 | (should (= (floor 1.7976931348623157e+308 5e-324) | ||
| 127 | (ash (1- (ash 1 53)) 2045)))) | ||
| 126 | 128 | ||
| 127 | (provide 'floatfns-tests) | 129 | (provide 'floatfns-tests) |