diff options
| author | Eli Zaretskii | 2020-04-03 14:21:07 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2020-04-03 14:21:07 +0300 |
| commit | d8dae04e5ae5cc4897c8d1af8548a0c1576137b6 (patch) | |
| tree | 7fe76277745fd42fc16e63fbb78022351356f791 /test | |
| parent | f134dfa041b30a8c28484a13c2fa08f2fee27ff5 (diff) | |
| download | emacs-d8dae04e5ae5cc4897c8d1af8548a0c1576137b6.tar.gz emacs-d8dae04e5ae5cc4897c8d1af8548a0c1576137b6.zip | |
Improve last change
* lisp/calendar/time-date.el (date-days-in-month): Improve the
error message text and make sure MONTH is a number. (Bug#40217)
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/calendar/time-date-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/lisp/calendar/time-date-tests.el b/test/lisp/calendar/time-date-tests.el index 9c90300cfe6..3eecc67eb53 100644 --- a/test/lisp/calendar/time-date-tests.el +++ b/test/lisp/calendar/time-date-tests.el | |||
| @@ -32,7 +32,8 @@ | |||
| 32 | (should (= (date-days-in-month 2004 2) 29)) | 32 | (should (= (date-days-in-month 2004 2) 29)) |
| 33 | (should (= (date-days-in-month 2004 3) 31)) | 33 | (should (= (date-days-in-month 2004 3) 31)) |
| 34 | (should-not (= (date-days-in-month 1900 3) 28)) | 34 | (should-not (= (date-days-in-month 1900 3) 28)) |
| 35 | (should-error (date-days-in-month 2020 15))) | 35 | (should-error (date-days-in-month 2020 15)) |
| 36 | (should-error (date-days-in-month 2020 'foo))) | ||
| 36 | 37 | ||
| 37 | (ert-deftest test-ordinal () | 38 | (ert-deftest test-ordinal () |
| 38 | (should (equal (date-ordinal-to-time 2008 271) | 39 | (should (equal (date-ordinal-to-time 2008 271) |