[elpa] externals-release/org d02c021 1/2: testing/lisp/test-org-archive.el: Fix test

[ELPA Syncer]

branch: externals-release/org
commit d02c0218efdb39820df3d57fa74af5a4d54a4452
Author: Christian Garbs <mitch@cgarbs.de>
Commit: Kyle Meyer <kyle@kyleam.com>

    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.
---
 testing/lisp/test-org-archive.el | 8 ++++----
 1 file 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))