diff options
author | Christian Garbs <mitch@cgarbs.de> | 2021-01-13 22:57:21 +0100 |
---|---|---|
committer | Kyle Meyer <kyle@kyleam.com> | 2021-01-14 00:15:34 -0500 |
commit | d02c0218efdb39820df3d57fa74af5a4d54a4452 (patch) | |
tree | b545490fa2b87f18bb38222e37c34acb5707d47d | |
parent | 33de2bd8ef90483778e4b18acbce388957b6863f (diff) | |
download | org-mode-d02c0218efdb39820df3d57fa74af5a4d54a4452.tar.gz |
testing/lisp/test-org-archive.el: Fix test
* testing/lisp/test-org-archive.el
(test-org-archive/datetree): Fix test for locales that don't use
English weekday names.
-rw-r--r-- | testing/lisp/test-org-archive.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/testing/lisp/test-org-archive.el b/testing/lisp/test-org-archive.el index 71ab427..d24a547 100644 --- a/testing/lisp/test-org-archive.el +++ b/testing/lisp/test-org-archive.el @@ -63,7 +63,7 @@ ;; Test in buffer target with no additional subheadings... (should (string-match-p - (regexp-quote "*** 2020-07-05 Sunday\n**** a") + (regexp-quote (format-time-string "*** 2020-07-05 %A\n**** a")) (org-test-with-temp-text-in-file "* a\n" (let ((org-archive-location "::datetree/")) (org-archive-subtree) @@ -71,7 +71,7 @@ ;; ... and with `org-odd-levels-only' non-nil. (should (string-match-p - (regexp-quote "***** 2020-07-05 Sunday\n******* a") + (regexp-quote (format-time-string "***** 2020-07-05 %A\n******* a")) (org-test-with-temp-text-in-file "* a\n" (let ((org-archive-location "::datetree/") (org-odd-levels-only t)) @@ -80,7 +80,7 @@ ;; Test in buffer target with an additional subheading... (should (string-match-p - (regexp-quote "*** 2020-07-05 Sunday\n**** a\n***** b") + (regexp-quote (format-time-string "*** 2020-07-05 %A\n**** a\n***** b")) (org-test-with-temp-text-in-file "* b\n" (let ((org-archive-location "::datetree/* a")) (org-archive-subtree) @@ -88,7 +88,7 @@ ;; ... and with `org-odd-levels-only' non-nil. (should (string-match-p - (regexp-quote "***** 2020-07-05 Sunday\n******* a\n********* b") + (regexp-quote (format-time-string "***** 2020-07-05 %A\n******* a\n********* b")) (org-test-with-temp-text-in-file "* b\n" (let ((org-archive-location "::datetree/* a") (org-odd-levels-only t)) |