summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristian Garbs <mitch@cgarbs.de>2021-01-13 22:57:21 +0100
committerKyle Meyer <kyle@kyleam.com>2021-01-14 00:15:34 -0500
commitd02c0218efdb39820df3d57fa74af5a4d54a4452 (patch)
treeb545490fa2b87f18bb38222e37c34acb5707d47d
parent33de2bd8ef90483778e4b18acbce388957b6863f (diff)
downloadorg-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.el8
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))