Axel Kielhorn <org-m...@axelkielhorn.de> writes:
> Hello!
>
> I’m building org with LANG=de.
> As a result I get two failed tests:
Reproducible using "LANG=zh_CN.UTF-8". In fact, I got more failed tests
in my testing. I think the OP's two test failures are due to hardcoded
English expected result, whereas the additional test failures on my
testing are probably due to the fact that each Chinese character is as
wide as two latin letters, which catches some testing code offguard.
Here are the test names that failed unexpectedly for me. All the
"should"'s and "should-not"'s are in the attachment below.
--8<---------------cut here---------------start------------->8---
8 unexpected results:
FAILED test-org-clock/clock-drawer-dwim
FAILED test-org-clock/clocktable/lang
FAILED test-org-clok/org-clock-timestamps-change
FAILED test-org-colview/columns-width
FAILED test-org/add-planning-info
FAILED test-org/clone-with-time-shift
FAILED test-org/deadline
FAILED test-org/schedule
--8<---------------cut here---------------end--------------->8---
8 unexpected results:
FAILED test-org-clock/clock-drawer-dwim ((should (equal "*
Foo\n:LOGBOOK:\nCLOCK: [2022-11-03 Thu 06:00]--[2022-11-03 Thu 06:01] =>
0:01\n:END:\n" (org-test-with-temp-text "* Foo\n:LOGBOOK:\n<point>CLOCK:
[2022-11-03 ??? 06:00]--[2022-11-03 ??? 06:01] => 0:01\n:END:\n"
(org-ctrl-c-ctrl-c) (buffer-string)))) :form (equal "* Foo\n:LOGBOOK:\nCLOCK:
[2022-11-03 Thu 06:00]--[2022-11-03 Thu 06:01] => 0:01\n:END:\n" #("*
Foo\n:LOGBOOK:\nCLOCK: [2022-11-03 四 06:00]--[2022-11-03 四 06:01] =>
0:01\n:END:\n" 0 2 (face org-level-1) 2 5 (face org-level-1) 6 15
(font-lock-fontified t face org-drawer) 16 22 (face org-special-keyword) 43 65
(face org-date keymap (keymap (follow-link . mouse-face) (mouse-3 .
org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight) 75
80 (font-lock-fontified t face org-drawer))) :value nil :explanation
(arrays-of-different-length 85 81 "* Foo\n:LOGBOOK:\nCLOCK: [2022-11-03 Thu
06:00]--[2022-11-03 Thu 06:01] => 0:01\n:END:\n" #("* Foo\n:LOGBOOK:\nCLOCK:
[2022-11-03 四 06:00]--[2022-11-03 四 06:01] => 0:01\n:END:\n" 0 2 (face
org-level-1) 2 5 (face org-level-1) 6 15 (font-lock-fontified t face
org-drawer) 16 22 (face org-special-keyword) 43 65 (face org-date keymap
(keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2
. org-open-at-mouse)) mouse-face highlight) 75 80 (font-lock-fontified t face
org-drawer)) first-mismatch-at 35))
FAILED test-org-clock/clocktable/lang ((should (equal "| En-tête |
Durée |\n|----------------+---------|\n| *Durée totale* | *26:00*
|\n|----------------+---------|\n| Foo | 26:00 |"
(org-test-with-temp-text "* Foo\n CLOCK: [2016-12-27 Wed 13:09]--[2016-12-28
Wed 15:09] => 26:00" (test-org-clock-clocktable-contents ":maxlevel 1 :lang
fr")))) :form (equal "| En-tête | Durée
|\n|----------------+---------|\n| *Durée totale* | *26:00*
|\n|----------------+---------|\n| Foo | 26:00 |" "| En-tête
| Durée |\n|-----------------+---------|\n| *Durée totale* | *26:00*
|\n|-----------------+---------|\n| Foo | 26:00 |") :value nil
:explanation (arrays-of-different-length 144 146 "| En-tête | Durée
|\n|----------------+---------|\n| *Durée totale* | *26:00*
|\n|----------------+---------|\n| Foo | 26:00 |" "| En-tête
| Durée |\n|-----------------+---------|\n| *Durée totale* | *26:00*
|\n|-----------------+---------|\n| Foo | 26:00 |"
first-mismatch-at 26))
FAILED test-org-clok/org-clock-timestamps-change ((should (equal "CLOCK:
[2023-02-19 Sun 21:30]--[2023-02-19 Sun 23:35] => 2:05"
(org-test-with-temp-text "CLOCK: [2023-02-19 Sun 2<point>2:30]--[2023-02-20 Mon
00:35] => 2:05" (org-clock-timestamps-change 'down 1) (buffer-string)))) :form
(equal "CLOCK: [2023-02-19 Sun 21:30]--[2023-02-19 Sun 23:35] => 2:05"
#("CLOCK: [2023-02-19 日 21:30]--[2023-02-19 日 23:35] => 2:05" 0 6 (face
org-special-keyword) 27 49 (face org-date keymap (keymap (follow-link .
mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse))
mouse-face highlight))) :value nil :explanation (arrays-of-different-length 62
58 "CLOCK: [2023-02-19 Sun 21:30]--[2023-02-19 Sun 23:35] => 2:05" #("CLOCK:
[2023-02-19 日 21:30]--[2023-02-19 日 23:35] => 2:05" 0 6 (face
org-special-keyword) 27 49 (face org-date keymap (keymap (follow-link .
mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse))
mouse-face highlight)) first-mismatch-at 19))
FAILED test-org-colview/columns-width ((should (equal "1234… |"
(org-test-with-temp-text "* H\n:PROPERTIES:\n:P: 123456\n:END:" (let (... ...)
(org-columns)) (org-trim (get-char-property ... ...))))) :form (equal "1234… |"
"1234 |") :value nil :explanation (array-elt 4 (different-atoms (8230 "#x2026"
"?…") (32 "#x20" "? "))))
FAILED test-org/add-planning-info ((should (equal "* H\n DEADLINE:
<2015-06-25>\nParagraph" (org-test-with-temp-text "* H\nParagraph<point>" (let
(...) (org-add-planning-info ... "<2015-06-25 Thu>")) (replace-regexp-in-string
"\\( [.A-Za-z]+\\)>" "" (buffer-string) nil nil 1)))) :form (equal "* H\n
DEADLINE: <2015-06-25>\nParagraph" #("* H\n DEADLINE: <2015-06-25
四>\nParagraph" 0 2 (face org-level-1) 2 30 (face org-level-1))) :value nil
:explanation (arrays-of-different-length 38 40 "* H\n DEADLINE:
<2015-06-25>\nParagraph" #("* H\n DEADLINE: <2015-06-25 四>\nParagraph" 0 2
(face org-level-1) 2 30 (face org-level-1)) first-mismatch-at 27))
FAILED test-org/clone-with-time-shift ((should (equal "*
H1\n<2015-06-21>\n* H1\n<2015-06-23>\n" (org-test-with-temp-text "*
H1\n<2015-06-21 Sun>" (org-clone-subtree-with-time-shift 1 "+2d")
(replace-regexp-in-string "\\( [.A-Za-z]+\\)\\( \\+[0-9][hdmwy]\\)?>" ""
(buffer-string) nil nil 1)))) :form (equal "* H1\n<2015-06-21>\n*
H1\n<2015-06-23>\n" #("* H1\n<2015-06-21>\n* H1\n<2015-06-23 二>\n" 0 2 (face
org-level-1) 2 4 (face org-level-1) 5 16 (face org-date keymap (keymap
(follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse)) mouse-face highlight) 16 17 (face org-date rear-nonsticky
(mouse-face highlight keymap invisible intangible help-echo org-linked-text
htmlize-link) keymap (keymap (follow-link . mouse-face) (mouse-3 .
org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face highlight) 18
20 (face org-level-1) 20 22 (face org-level-1))) :value nil :explanation
(arrays-of-different-length 36 38 "* H1\n<2015-06-21>\n* H1\n<2015-06-23>\n"
#("* H1\n<2015-06-21>\n* H1\n<2015-06-23 二>\n" 0 2 (face org-level-1) 2 4 (face
org-level-1) 5 16 (face org-date keymap (keymap (follow-link . mouse-face)
(mouse-3 . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) mouse-face
highlight) 16 17 (face org-date rear-nonsticky (mouse-face highlight keymap
invisible intangible help-echo org-linked-text htmlize-link) keymap (keymap
(follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 .
org-open-at-mouse)) mouse-face highlight) 18 20 (face org-level-1) 20 22 (face
org-level-1)) first-mismatch-at 34))
FAILED test-org/deadline ((should (equal "* H\nDEADLINE: <2012-03-29>"
(org-test-with-temp-text "* H" (let (... ...) (org-deadline nil "<2012-03-29
Tue>")) (replace-regexp-in-string "\\( [.A-Za-z]+\\)>" "" (buffer-string) nil
nil 1)))) :form (equal "* H\nDEADLINE: <2012-03-29>" #("* H\nDEADLINE:
<2012-03-29 四>" 0 2 (face org-level-1) 2 28 (face org-level-1))) :value nil
:explanation (arrays-of-different-length 26 28 "* H\nDEADLINE: <2012-03-29>"
#("* H\nDEADLINE: <2012-03-29 四>" 0 2 (face org-level-1) 2 28 (face
org-level-1)) first-mismatch-at 25))
FAILED test-org/schedule ((should (equal "* H\nSCHEDULED: <2012-03-29>"
(org-test-with-temp-text "* H" (let (... ...) (org-schedule nil "<2012-03-29
Tue>")) (replace-regexp-in-string "\\( [.A-Za-z]+\\)>" "" (buffer-string) nil
nil 1)))) :form (equal "* H\nSCHEDULED: <2012-03-29>" #("* H\nSCHEDULED:
<2012-03-29 四>" 0 2 (face org-level-1) 2 29 (face org-level-1))) :value nil
:explanation (arrays-of-different-length 27 29 "* H\nSCHEDULED: <2012-03-29>"
#("* H\nSCHEDULED: <2012-03-29 四>" 0 2 (face org-level-1) 2 29 (face
org-level-1)) first-mismatch-at 26))
> FAILED test-org-clock/clock-drawer-dwim ((should (equal "*
> Foo\n:LOGBOOK:\nCLOCK: [2022-11-03 Thu 06:00]--[2022-11-03 Thu 06:01] =>
> 0:01\n:END:\n" (org-test-with-temp-text "* Foo\n:LOGBOOK:\n<point>CLOCK:
> [2022-11-03 ??? 06:00]--[2022-11-03 ??? 06:01] => 0:01\n:END:\n"
> (org-ctrl-c-ctrl-c) (buffer-string)))) :form (equal "*
> Foo\n:LOGBOOK:\nCLOCK: [2022-11-03 Thu 06:00]--[2022-11-03 Thu 06:01] =>
> 0:01\n:END:\n" #("* Foo\n:LOGBOOK:\nCLOCK: [2022-11-03 Do
> 06:00]--[2022-11-03 Do 06:01] => 0:01\n:END:\n" 0 2 (face org-level-1) 2 5
> (face org-level-1) 6 15 (face org-drawer font-lock-fontified t) 16 22 (face
> org-special-keyword) 44 67 (mouse-face highlight keymap (keymap (follow-link
> . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2 .
> org-open-at-mouse)) face org-date) 77 82 (face org-drawer
> font-lock-fontified t))) :value nil :explanation
> (arrays-of-different-length 85 83
>
> "* Foo\n:LOGBOOK:\nCLOCK: [2022-11-03 Thu 06:00]--[2022-11-03 Thu 06:01] =>
> 0:01\n:END:\n" #(
> "* Foo\n:LOGBOOK:\nCLOCK: [2022-11-03 Do 06:00]--[2022-11-03 Do 06:01] =>
> 0:01\n:END:\n"
>
> 0 2 (face org-level-1) 2 5 (face org-level-1) 6 15 (face org-drawer
> font-lock-fontified t) 16 22 (face org-special-keyword) 44 67 (mouse-face
> highlight keymap (keymap (follow-link . mouse-face) (mouse-3
> . org-find-file-at-mouse) (mouse-2 . org-open-at-mouse)) face org-date) 77 82
> (face org-drawer font-lock-fontified t)) first-mismatch-at 35))
>
> FAILED test-org-clok/org-clock-timestamps-change ((should (equal
> "CLOCK: [2023-02-19 Sun 21:30]--[2023-02-19 Sun 23:35] => 2:05"
> (org-test-with-temp-text "CLOCK: [2023-02-19 Sun 2<point>2:30]--[2023-02-20
> Mon 00:35] => 2:05" (org-clock-timestamps-change 'down 1)
> (buffer-string)))) :form (equal "CLOCK: [2023-02-19 Sun 21:30]--[2023-02-19
> Sun 23:35] => 2:05" #("CLOCK: [2023-02-19 So 21:30]--[2023-02-19 So 23:35]
> => 2:05" 0 6 (face org-special-keyword) 28 51 (mouse-face highlight keymap
> (keymap (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse)
> (mouse-2 . org-open-at-mouse)) face org-date))) :value nil :explanation
> (arrays-of-different-length 62 60
>
> "CLOCK: [2023-02-19 Sun 21:30]--[2023-02-19 Sun 23:35] => 2:05" #(
> "CLOCK: [2023-02-19 So 21:30]--[2023-02-19 So 23:35] => 2:05"
>
> 0 6 (face org-special-keyword) 28 51 (mouse-face highlight keymap (keymap
> (follow-link . mouse-face) (mouse-3 . org-find-file-at-mouse) (mouse-2
> . org-open-at-mouse)) face org-date)) first-mismatch-at 20))
>
> When I build with LANG=C, these tests pass.
>
> I’m using macOS 11.7 on intel, but that shouldn’t affect these two fails.
For me, I have a month-old Emacs master, with an up-to-date orgmode.git.
> Greetings Axel
--
Best,
RY
[Please note that this mail might go to spam due to some
misconfiguration in my mail server -- still investigating.]
