From 94055073ce79080be360070b86dcd5f2c074c9d3 Mon Sep 17 00:00:00 2001 From: Christian Garbs Date: Wed, 13 Jan 2021 22:57:21 +0100 Subject: [PATCH] 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 71ab427d2..d24a54794 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)) -- 2.20.1