Re: Test failure due to LANG

[Ruijie Yu via "General discussions about Org-mode." <emacs-orgmode@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 1119 bytes --]


Axel Kielhorn <org-mode@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---


[-- Attachment #2: lang.txt --]
[-- Type: text/plain, Size: 7282 bytes --]

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))

[-- Attachment #3: Type: text/plain, Size: 2936 bytes --]


>    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.]