diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-21 00:38:23 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-08-21 00:38:23 +0200 |
| commit | cb9fc5e7731e506e4e0facd3d060d19e388b32ac (patch) | |
| tree | dfe4e0d9258238d5cbd62c6c74383692b921a035 /test/lisp/calendar/time-date-tests.el | |
| parent | 9b277a2f8e5c22a05830e61d83876571b8eb56b4 (diff) | |
| download | emacs-cb9fc5e7731e506e4e0facd3d060d19e388b32ac.tar.gz emacs-cb9fc5e7731e506e4e0facd3d060d19e388b32ac.tar.bz2 emacs-cb9fc5e7731e506e4e0facd3d060d19e388b32ac.zip | |
Fix off-by-one error in decoded-time-add (with months)
* lisp/calendar/time-date.el (decoded-time-add): Fix month
addition, which was off-by-one.
Diffstat (limited to 'test/lisp/calendar/time-date-tests.el')
| -rw-r--r-- | test/lisp/calendar/time-date-tests.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/lisp/calendar/time-date-tests.el b/test/lisp/calendar/time-date-tests.el index fe1460cf29e..233d43cd01a 100644 --- a/test/lisp/calendar/time-date-tests.el +++ b/test/lisp/calendar/time-date-tests.el @@ -123,4 +123,24 @@ (should (equal (decoded-time-period '((135 . 10) 0 0 0 0 0 nil nil nil)) 13.5))) +(ert-deftest test-time-wrap-addition () + (should (equal (decoded-time-add '(0 0 0 1 11 2008 nil nil nil) + (make-decoded-time :month 1)) + '(0 0 0 1 12 2008 nil nil nil))) + (should (equal (decoded-time-add '(0 0 0 1 12 2008 nil nil nil) + (make-decoded-time :month 1)) + '(0 0 0 1 1 2009 nil nil nil))) + (should (equal (decoded-time-add '(0 0 0 1 11 2008 nil nil nil) + (make-decoded-time :month 12)) + '(0 0 0 1 11 2009 nil nil nil))) + (should (equal (decoded-time-add '(0 0 0 1 11 2008 nil nil nil) + (make-decoded-time :month 13)) + '(0 0 0 1 12 2009 nil nil nil))) + (should (equal (decoded-time-add '(0 0 0 30 12 2008 nil nil nil) + (make-decoded-time :day 1)) + '(0 0 0 31 12 2008 nil nil nil))) + (should (equal (decoded-time-add '(0 0 0 30 12 2008 nil nil nil) + (make-decoded-time :day 2)) + '(0 0 0 1 1 2009 nil nil nil)))) + ;;; time-date-tests.el ends here |