diff options
| author | Stephen Gildea <stepheng+emacs@gildea.com> | 2021-05-30 11:05:42 -0700 |
|---|---|---|
| committer | Stephen Gildea <stepheng+emacs@gildea.com> | 2021-05-30 11:05:42 -0700 |
| commit | a5b57fc6af7ec87c59d00a7631576f9f4bf99841 (patch) | |
| tree | 2384eb75571f6a069938889362b2307dfd5f7350 /test/lisp/time-stamp-tests.el | |
| parent | d6dc66053d846b6fc041889b4d0f383c8dac4da3 (diff) | |
| download | emacs-a5b57fc6af7ec87c59d00a7631576f9f4bf99841.tar.gz emacs-a5b57fc6af7ec87c59d00a7631576f9f4bf99841.tar.bz2 emacs-a5b57fc6af7ec87c59d00a7631576f9f4bf99841.zip | |
time-stamp: fix minor bug when parsing option combos
* lisp/time-stamp.el (time-stamp-string-preprocess): Handle digit
options correctly to avoid overcounting colon options.
* test/lisp/time-stamp-tests.el (time-stamp-format-time-zone-offset):
Add a new test case that would have caught the option-parsing error.
Diffstat (limited to 'test/lisp/time-stamp-tests.el')
| -rw-r--r-- | test/lisp/time-stamp-tests.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/test/lisp/time-stamp-tests.el b/test/lisp/time-stamp-tests.el index c0213536303..b42271e4e51 100644 --- a/test/lisp/time-stamp-tests.el +++ b/test/lisp/time-stamp-tests.el @@ -525,7 +525,7 @@ (should (equal (time-stamp-string "%#Z" ref-time1) utc-abbr))))) (ert-deftest time-stamp-format-time-zone-offset () - "Test time-stamp format %z." + "Tests time-stamp legacy format %z and new offset format %5z." (with-time-stamp-test-env (let ((utc-abbr (format-time-string "%#Z" ref-time1 t))) ;; documented 1995-2019, warned since 2019, will change @@ -544,6 +544,7 @@ (should (equal (time-stamp-string "%_z" ref-time1) "+0000")) (should (equal (time-stamp-string "%:z" ref-time1) "+00:00")) (should (equal (time-stamp-string "%::z" ref-time1) "+00:00:00")) + (should (equal (time-stamp-string "%9::z" ref-time1) "+00:00:00")) (should (equal (time-stamp-string "%:::z" ref-time1) "+00")))) (ert-deftest time-stamp-format-non-date-conversions () |