diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/timefns-tests.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test/src/timefns-tests.el b/test/src/timefns-tests.el index 13ab7d83c3e..a30b2de3a5b 100644 --- a/test/src/timefns-tests.el +++ b/test/src/timefns-tests.el | |||
| @@ -136,6 +136,10 @@ | |||
| 136 | (cons (1+ most-positive-fixnum) 1000000000000) | 136 | (cons (1+ most-positive-fixnum) 1000000000000) |
| 137 | (cons 1000000000000 (1+ most-positive-fixnum))))) | 137 | (cons 1000000000000 (1+ most-positive-fixnum))))) |
| 138 | (dolist (a time-values) | 138 | (dolist (a time-values) |
| 139 | (should-error (time-add a 'ouch)) | ||
| 140 | (should-error (time-add 'ouch a)) | ||
| 141 | (should-error (time-subtract a 'ouch)) | ||
| 142 | (should-error (time-subtract 'ouch a)) | ||
| 139 | (dolist (b time-values) | 143 | (dolist (b time-values) |
| 140 | (let ((aa (time-subtract (time-add a b) b))) | 144 | (let ((aa (time-subtract (time-add a b) b))) |
| 141 | (should (or (time-equal-p a aa) (and (floatp aa) (isnan aa))))) | 145 | (should (or (time-equal-p a aa) (and (floatp aa) (isnan aa))))) |