diff options
Diffstat (limited to 'test/lisp/calendar/iso8601-tests.el')
-rw-r--r-- | test/lisp/calendar/iso8601-tests.el | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/test/lisp/calendar/iso8601-tests.el b/test/lisp/calendar/iso8601-tests.el index f9ea6e886b1..b33f38f03fd 100644 --- a/test/lisp/calendar/iso8601-tests.el +++ b/test/lisp/calendar/iso8601-tests.el @@ -91,4 +91,24 @@ (should-not (iso8601-valid-p "2008-03-02 T 13:47:30-01 ")) (should-not (iso8601-valid-p "20008-03-02T13:47:30-01"))) +(ert-deftest test-iso8601-intervals () + (should (equal + (iso8601-parse-interval "2007-03-01T13:00:00Z/2008-05-11T15:30:00Z") + '((0 0 13 1 3 2007 nil nil 0) + (0 30 15 11 5 2008 nil nil 0) + ;; Hm... can't really use decode-time for time differences... + (0 30 2 14 3 1971 0 nil 0)))) + (should + (equal (iso8601-parse-interval "2007-03-01T13:00:00Z/P1Y2M10DT2H30M") + '((0 0 13 1 3 2007 nil nil 0) + ;; Well, that's wrong... + (0 47 14 10 4 38 6 nil 0) + (0 30 2 10 2 1 nil nil nil)))) + (should (equal (iso8601-parse-interval "P1Y2M10DT2H30M/2008-05-11T15:30:00Z") + ;; I think I have to add decoded-time math functions, + ;; really. + '((0 43 13 1 4 3977 5 nil 0) + (0 30 15 11 5 2008 nil nil 0) + (0 30 2 10 2 1 nil nil nil))))) + ;;; iso8601-tests.el ends here |