m3text002.lvt

%
% Copyright (C) 2020-2023 The LaTeX Project
%
\input{regression-test}

\RequirePackage[enable-debug]{expl3}
\ExplSyntaxOn
\debug_on:n { check-declarations , deprecation , log-functions }
\ExplSyntaxOff

\START
\AUTHOR{Joseph Wright}
\ExplSyntaxOn

\OMIT
  \cs_set:Npn \test:n #1
    {
      \text_lowercase:n {#1}
      \NEWLINE
      \text_uppercase:n {#1}
      \NEWLINE
      \text_titlecase:n {#1}
      \NEWLINE
      \text_titlecase_first:n {#1}
    }
  \cs_set:Npn \test:nn #1#2
    {
      \text_lowercase:nn {#1} {#2}
      \NEWLINE
      \text_uppercase:nn {#1} {#2}
      \NEWLINE
      \text_titlecase:nn {#1} {#2}
      \NEWLINE
      \text_titlecase_first:nn {#1} {#2}
    }
\TIMO

\TESTEXP { Basic~case~changing }
  {
    \test:n { Hello~world~\par with~\ERROR & # }
  }

\TESTEXP { Case~changes~in~braces }
  {
    \test:n { {Hello}~world~\par with~\ERROR & # }
  }

\TESTEXP { Case~change~exclusions }
  {
    \test:n { Some~text~\cite { WithFun } }
  }

\OMIT
  \cs_set:Npn \testii:n #1
    {
      \text_titlecase:n {#1}
      \NEWLINE
      \text_titlecase_first:n {#1}
    }
\TIMO

\TESTEXP { Titlecase~basics }
  {
    \testii:n { hello~world }
    \NEWLINE
    \testii:n { HELLO~WORLD }
    \NEWLINE
    "\text_titlecase:n { ~hello~world }"
    \NEWLINE
    "\text_titlecase_first:n { ~hello~world }"
    \NEWLINE
    "\text_titlecase:n { ~HELLO~WORLD }"
    \NEWLINE
    "\text_titlecase_first:n { ~HELLO~WORLD }"
    \NEWLINE
    \testii:n { {h}ello~world }
    \NEWLINE
    \testii:n { {H}ELLO~WORLD }
    \NEWLINE
    \testii:n { { } hello world }
    \NEWLINE
    \testii:n { { \prg_do_nothing: } hello world }
  }

\TESTEXP { Titlecase~skipping~chars }
  {
    \testii:n { `hic~sunt~leones' }
    \NEWLINE
    \testii:n { ``hic~sunt~leones'' }
    \NEWLINE
    \testii:n { ([hic~sunt~leones]) }
  }

\TESTEXP { Titlecase~first }
  {
    \testii:n { `hic~SUNT~leones' }
    \NEWLINE
    \testii:n { `HIC~SUNT~leones' }
    \NEWLINE
    \testii:n { E~PLURIBUS~UNUM }
  }

\bool_set_false:N \l_text_titlecase_check_letter_bool

\TESTEXP { Titlecase~control }
  {
    \testii:n { `hic~SUNT~leones' }
    \NEWLINE
    \testii:n { `HIC~SUNT~leones' }
    \NEWLINE
    \testii:n { E~PLURIBUS~UNUM }
  }

\bool_set_true:N \l_text_titlecase_check_letter_bool

\TESTEXP { Language~based~case~changing~but~nothing }
  {
    \test:nn { lt } { No~problems }
    \NEWLINE
    \test:nn { tr } { No~problems }
  }

\TESTEXP { (u)pTeX-based~tests }
  {
    \test:n { ABCÈ日本語}
  }

\TESTEXP { Unicode~case~changing }
  {
    \test:n { åéîøὭдαƐ }
  }

\TESTEXP { Unicode~case~changing~exceptions }
  {
    \test:n { Fußball }
  }

\TESTEXP { The~final~sigma~rule }
  {
    \test:n { ὈΔΥΣΣΕΎΣ~(ὈΔΥΣΣΕΎΣ)~ὈΔΥΣΣΕΎΣ,~ὈΔΥΣΣΕΎΣ{}~ὈΔΥΣΣΕΎΣ\noop }
    \NEWLINE
    \test:n { ὈΔΥΣΣΕΎΣ }
  }

\TESTEXP { Cyrillic }
  {
    \test:n { Доклады~Академии~наук }
  }

\TESTEXP { BCP47~parts }
  {
     \text_uppercase:nn { el-monotonic } { άδικος,~κείμενο,~ίριδα }
  }

\TESTEXP { Armenian }
  {
    \text_uppercase:n                { Երևան } \NEWLINE
    \text_uppercase:nn { hy }        { Երևան } \NEWLINE
    \text_uppercase:nn { hy-x-yiwn } { Երևան } \NEWLINE
    \text_titlecase:n                { Երևան } \NEWLINE
    \text_titlecase:nn { hy }        { ևան } \NEWLINE
    \text_titlecase:nn { hy-x-yiwn } { ևան }
  }

\TESTEXP { German-alternative }
  {
    \text_uppercase:n                  { Fußball } \NEWLINE
    \text_uppercase:nn { de-x-eszett } { Fußball }
  }

\OMIT
  \cs_set:Npn \greektest:n #1
    {
      \text_uppercase:n         {#1} \NEWLINE
      \text_uppercase:nn { el } {#1}
    }
  \cs_set:Npn \greektestiota:n #1
    {
      \text_uppercase:nn { el }        {#1} \NEWLINE
      \text_uppercase:nn { el-x-iota } {#1}
    }
\TIMO

\TESTEXP { Greek }
  {
    % Taken from https://icu.unicode.org/design/case/greek-upper
    \greektest:n { άδικος,~κείμενο,~ίριδα }               \NEWLINE
    \greektest:n { Πατάτα }                               \NEWLINE
    \greektest:n { Αέρας,~Μυστήριο,~Ωραίο }               \NEWLINE
    \greektest:n { Μαΐου,~Πόρος,~Ρύθμιση }                \NEWLINE
    \greektest:n { ΰ,~Τηρώ,~Μάιος }                       \NEWLINE
    \greektest:n { άυλος }                                \NEWLINE
    \greektest:n { ΑΫΛΟΣ }                                \NEWLINE
    \greektest:n { Άκλιτα~ρήματα~ή~άκλιτες~μετοχές }      \NEWLINE
    \greektest:n { Επειδή~η~αναγνώριση~της~αξιοπρέπειας } \NEWLINE
    \greektest:n { νομικού~ή~διεθνούς }                   \NEWLINE
    \greektest:n { Ἐπειδὴ~ἡ~ἀναγνώριση }                  \NEWLINE
    \greektest:n { νομικοῦ~ἢ~διεθνοῦς }                   \NEWLINE
    \greektest:n { Νέο,~Δημιουργία }                      \NEWLINE
    \greektest:n { Ελάτε~να~φάτε~τα~καλύτερα~παϊδάκια! }  \NEWLINE
    \greektest:n { Μαΐου,~τρόλεϊ }                        \NEWLINE
    \greektest:n { Το~ένα~ή~το~άλλο. }                    \NEWLINE
    \greektest:n { ρωμέικα }                              \NEWLINE
    \text_titlecase:n         { ὈΔΥΣΣΕΎΣ } \NEWLINE
    \text_titlecase:nn { el } { ὈΔΥΣΣΕΎΣ } \NEWLINE
    % Taken from luaotfload tests
    \greektest:n { ῄ }                                    \NEWLINE
    \text_uppercase:nn { el-x-iota } { ῄ }                \NEWLINE
    \greektest:n { ῄ }                                   \NEWLINE
    \text_uppercase:nn { el-x-iota } { ῄ }               \NEWLINE
    % Taken from https://github.com/latex3/latex2e/issues/987
    \greektest:n { ἀἁἂἃἄἅἆἇ }                             \NEWLINE
    \greektest:n { ἐἑἒἓἔἕ }                               \NEWLINE
    \greektest:n { ἠἡἢἣἤἥἦἧ }                             \NEWLINE
    \greektest:n { ἰἱἲἳἴἵἶἷ }                             \NEWLINE
    \greektest:n { ὀὁὂὃὄὅ }                               \NEWLINE
    \greektest:n { ὐὑὒὓὔὕὖὗ }                             \NEWLINE
    \greektest:n { ὠὡὢὣὤὥὦὧ }                             \NEWLINE
    \greektestiota:n { ᾀᾁᾂᾃᾄᾅᾆᾇ }                         \NEWLINE
    \greektestiota:n { ᾐᾑᾒᾓᾔᾕᾖᾗ }                         \NEWLINE
    \greektestiota:n { ᾠᾡᾢᾣᾤᾦᾧᾥ }                         \NEWLINE
  }

\TESTEXP { Turkish/Azeri }
  {
    \text_lowercase:nn { tr } { RAGIP~HULÛSİ~ÖZDEM } \NEWLINE
    \text_lowercase:n         { RAGIP~HULÛSİ~ÖZDEM }
    \NEWLINE
    \text_uppercase:nn { tr } { Ragıp~Hulûsi~Özdem } \NEWLINE
    \text_uppercase:n         { Ragıp~Hulûsi~Özdem }
    \NEWLINE
    \text_titlecase:nn { tr } { Ragıp~Hulûsi~Özdem } \NEWLINE
    \text_titlecase:n         { Ragıp~Hulûsi~Özdem }
    \NEWLINE
    \text_titlecase:nn { tr } { ıp~Hulûsi~Özdem } \NEWLINE
    \text_titlecase:n         { ıp~Hulûsi~Özdem }
  }

\TESTEXP { Lithuanian }
  {
    \text_lowercase:nn { lt } { ÌÍĨÌÍĨJ̀J́J̃Į̀Į́Į̃ } \NEWLINE
    \text_lowercase:n         { ÌÍĨÌÍĨJ̀J́J̃Į̀Į́Į̃ }
    \NEWLINE
    \text_uppercase:nn { lt } { i̇̀i̇̀i̇̃i̇̀i̇́i̇̃j̇̀j̇́j̇̃į̇̀į̇́į̇̃ } \NEWLINE
    \text_uppercase:n         { i̇̀i̇̀i̇̃i̇̀i̇́i̇̃j̇̀j̇́j̇̃į̇̀į̇́į̇̃ }
    \NEWLINE
    \text_titlecase:nn { lt } { ÌÍĨÌÍĨJ̀J́J̃Į̀Į́Į̃ } \NEWLINE
    \text_titlecase:nn { lt } { i̇̀i̇̀i̇̃i̇̀i̇́i̇̃j̇̀j̇́j̇̃į̇̀į̇́į̇̃ } \NEWLINE
    \text_titlecase:n         { ÌÍĨÌÍĨJ̀J́J̃Į̀Į́Į̃ } \NEWLINE
    \text_titlecase:n         { i̇̀i̇̀i̇̃i̇̀i̇́i̇̃j̇̀j̇́j̇̃į̇̀į̇́į̇̃ }
  }

\TESTEXP { Medieval~Latin }
  {
    \text_lowercase:nn { la-x-medieval } { LVPVS } \NEWLINE
    \text_lowercase:n                    { LVPVS }
    \NEWLINE
    \text_uppercase:nn { la-x-medieval } { lupus } \NEWLINE
    \text_uppercase:n                    { lupus }
  }

\TESTEXP { Dutch }
  {
    \text_lowercase:nn { nl } { IJSSELMEER } \NEWLINE
    \text_lowercase:n         { IJSSELMEER }
    \NEWLINE
    \text_uppercase:nn { nl } { ijsselmeer } \NEWLINE
    \text_uppercase:n         { ijsselmeer }
    \NEWLINE
    \text_titlecase:nn { nl } { ijsselmeer } \NEWLINE
    \text_titlecase:n         { ijsselmeer }
    \NEWLINE
    \text_titlecase:nn { nl } { Ijsselmeer } \NEWLINE
    \text_titlecase:n         { Ijsselmeer }
    \NEWLINE
    \text_titlecase:nn { nl } { IJsselmeer } \NEWLINE
    \text_titlecase:n         { IJsselmeer }
    \NEWLINE
    \text_titlecase:nn { nl } { im } \NEWLINE
    \text_titlecase:n         { im }
  }

\TESTEXP { Titlecase~exceptions }
  {
    \text_titlecase:n { ßoo }
    \NEWLINE
    \text_titlecase:n { Dž! }
    \NEWLINE
  }

\OMIT
  \tl_put_right:Nn \l_text_case_exclude_arg_tl { \emph }
\TIMO

\TESTEXP { Case~changing~braced~arguments }
  {
    \test:n { FOO~\emph { BAR } ~ { BAZ } }
    \NEWLINE
    \test:n { \emph { BAR } ~ { BAZ } }
  }

\OMIT
  \tl_set:Nn \l_tmpa_tl { Hello }
  \tl_set:Nn \l_tmpb_tl { \l_tmpa_tl }
  \cs_set_protected:Npn \cs_tmp:w { \l_tmpa_tl }
\TIMO

\TESTEXP { Expanding~content }
  {
    \test:n { Some~text~\l_tmpa_tl }
    \NEWLINE
    \test:n { \l_tmpa_tl \c_space_tl some text }
    \NEWLINE
    \test:n { Some~text~\l_tmpb_tl }
    \NEWLINE
    \test:n { \l_tmpb_tl \c_space_tl some text }
    \NEWLINE
    \test:n { Some~text~\cs_tmp:w }
    \NEWLINE
    \test:n { \cs_tmp:w \c_space_tl some text }
  }

\TESTEXP { Math-mode~escape }
  {
    \test:n { Some~text~$y~=~mx~+~c$ }
    \NEWLINE
    \test:n { $y~=~mx~+~c$~text }
    \NEWLINE
    \test:n { Opps~not~close~token~in~$y~=~mx~+~c }
  }

\TESTEXP { Nesting }
  {
    \text_uppercase:n { \text_lowercase:n { Hello } }
    \NEWLINE
    \text_lowercase:n { \text_uppercase:n { Hello } }
    \NEWLINE
    \text_uppercase:n { \text_lowercase:n { Fußball } }
    \NEWLINE
   \text_uppercase:n { \text_lowercase:n {  ὈΔΥΣΣΕΎΣ } }
  }

\TESTEXP { Letter-like~commands }
  {
    \test:n { \AA \aa \ae \dh \ss \l \O }
  }

\TESTEXP { Accents }
  {
    \test:n { \"{a} \u{e} \H{i} \v{o} \.{u} }
  }

\group_begin:

\char_set_catcode_active:N "
\cs_gset_eq:NN " \scan_stop:

\TESTEXP { Active~chars }
  {
    \test:n { "`Lo"=rem"' }
  }

\group_end:


\TEST { Case~changing~exclusions }
  {
    \cs_generate_variant:Nn \tl_show:n { x }
    \tl_put_right:Nn \l_text_expand_exclude_tl { \NoCaseChange }
    \tl_put_right:Nn \l_text_case_exclude_arg_tl { \NoCaseChange }
    \cs_set_eq:NN \NoCaseChange \use:n
    \tl_show:x
      { \text_lowercase:n { \use:n { FOO } \NoCaseChange { BAR } } }
    \tl_put_right:Nn \l_text_expand_exclude_tl { \use:n }
    \tl_show:x
      { \text_lowercase:n { \use:n { FOO } \NoCaseChange { BAR } } }
  }

\cs_set:Npn \test:n #1
  {
    \text_uppercase:n {#1} \NEWLINE
    \text_lowercase:n {#1} \NEWLINE
    \text_titlecase:n {#1} \NEWLINE
    \text_titlecase_first:n {#1} \NEWLINE
  }

\TESTEXP { Case~change~switching }
  {
    \test:n { \text_case_switch:nnnn { normal } { lower } { UPPER } { Title } }
    \test:n
      {
        words ~
        \text_case_switch:nnnn { normal } { lower } { UPPER } { Title }
      }
  }

\TEST { Case~change~replacements }
  {
    \text_declare_case_equivalent:Nn \foo { REPLACED }
    \tl_show:x
      { \text_lowercase:n { \use:n { FOO } \foo } }
  }

\END