diff options
Diffstat (limited to 'test/lisp/calendar/iso8601-tests.el')
-rw-r--r-- | test/lisp/calendar/iso8601-tests.el | 67 |
1 files changed, 39 insertions, 28 deletions
diff --git a/test/lisp/calendar/iso8601-tests.el b/test/lisp/calendar/iso8601-tests.el index 88d656290aa..8517e7dde5d 100644 --- a/test/lisp/calendar/iso8601-tests.el +++ b/test/lisp/calendar/iso8601-tests.el @@ -24,45 +24,45 @@ (ert-deftest test-iso8601-date-years () (should (equal (iso8601-parse-date "1985") - '(0 0 0 1 1 1985 nil nil nil))) + '(nil nil nil nil nil 1985 nil nil nil))) (should (equal (iso8601-parse-date "-0003") - '(0 0 0 1 1 -4 nil nil nil))) + '(nil nil nil nil nil -4 nil nil nil))) (should (equal (iso8601-parse-date "+1985") - '(0 0 0 1 1 1985 nil nil nil)))) + '(nil nil nil nil nil 1985 nil nil nil)))) (ert-deftest test-iso8601-date-dates () (should (equal (iso8601-parse-date "1985-03-14") - '(0 0 0 14 3 1985 nil nil nil))) + '(nil nil nil 14 3 1985 nil nil nil))) (should (equal (iso8601-parse-date "19850314") - '(0 0 0 14 3 1985 nil nil nil))) + '(nil nil nil 14 3 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985-02") - '(0 0 0 1 2 1985 nil nil nil)))) + '(nil nil nil nil 2 1985 nil nil nil)))) (ert-deftest test-iso8601-date-obsolete () (should (equal (iso8601-parse-date "--02-01") - '(0 0 0 1 2 0 nil nil nil))) + '(nil nil nil 1 2 nil nil nil nil))) (should (equal (iso8601-parse-date "--0201") - '(0 0 0 1 2 0 nil nil nil)))) + '(nil nil nil 1 2 nil nil nil nil)))) (ert-deftest test-iso8601-date-weeks () (should (equal (iso8601-parse-date "2008W39-6") - '(0 0 0 27 9 2008 nil nil nil))) + '(nil nil nil 27 9 2008 nil nil nil))) (should (equal (iso8601-parse-date "2009W01-1") - '(0 0 0 29 12 2008 nil nil nil))) + '(nil nil nil 29 12 2008 nil nil nil))) (should (equal (iso8601-parse-date "2009W53-7") - '(0 0 0 3 1 2010 nil nil nil)))) + '(nil nil nil 3 1 2010 nil nil nil)))) (ert-deftest test-iso8601-date-ordinals () (should (equal (iso8601-parse-date "1981-095") - '(0 0 0 5 4 1981 nil nil nil)))) + '(nil nil nil 5 4 1981 nil nil nil)))) (ert-deftest test-iso8601-time () (should (equal (iso8601-parse-time "13:47:30") - '(30 47 13 1 1 0 nil nil nil))) + '(30 47 13 nil nil nil nil nil nil))) (should (equal (iso8601-parse-time "134730") - '(30 47 13 1 1 0 nil nil nil))) + '(30 47 13 nil nil nil nil nil nil))) (should (equal (iso8601-parse-time "1347") - '(0 47 13 1 1 0 nil nil nil)))) + '(0 47 13 nil nil nil nil nil nil)))) (ert-deftest test-iso8601-combined () (should (equal (iso8601-parse "2008-03-02T13:47:30") @@ -109,37 +109,48 @@ (ert-deftest standard-test-dates () (should (equal (iso8601-parse-date "19850412") - '(0 0 0 12 4 1985 nil nil nil))) + '(nil nil nil 12 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985-04-12") - '(0 0 0 12 4 1985 nil nil nil))) + '(nil nil nil 12 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985102") - '(0 0 0 12 4 1985 nil nil nil))) + '(nil nil nil 12 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985-102") - '(0 0 0 12 4 1985 nil nil nil))) + '(nil nil nil 12 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985W155") - '(0 0 0 12 4 1985 nil nil nil))) + '(nil nil nil 12 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985-W15-5") - '(0 0 0 12 4 1985 nil nil nil))) + '(nil nil nil 12 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985W15") - '(0 0 0 7 4 1985 nil nil nil))) + '(nil nil nil 7 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985-W15") - '(0 0 0 7 4 1985 nil nil nil))) + '(nil nil nil 7 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985-04") - '(0 0 0 1 4 1985 nil nil nil))) + '(nil nil nil nil 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "1985") - '(0 0 0 1 1 1985 nil nil nil))) + '(nil nil nil nil nil 1985 nil nil nil))) (should (equal (iso8601-parse-date "+1985-04-12") - '(0 0 0 12 4 1985 nil nil nil))) + '(nil nil nil 12 4 1985 nil nil nil))) (should (equal (iso8601-parse-date "+19850412") - '(0 0 0 12 4 1985 nil nil nil))) + '(nil nil nil 12 4 1985 nil nil nil)))) - ) +(ert-deftest standard-test-time-of-day () + (should (equal (iso8601-parse-time "152746") + '(46 27 15 nil nil nil nil nil nil))) + (should (equal (iso8601-parse-time "15:27:46") + '(46 27 15 nil nil nil nil nil nil))) + (should (equal (iso8601-parse-time "1528") + '(0 28 15 nil nil nil nil nil nil))) + (should (equal (iso8601-parse-time "15:28") + '(0 28 15 nil nil nil nil nil nil))) + + (should (equal (iso8601-parse-time "15") + '(0 0 15 nil nil nil nil nil nil)))) ;;; iso8601-tests.el ends here |