m3str002.lvt

%
% Copyright (C) 2014,2015,2018,2020,2021,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

\TESTEXP { Simple~Latin~case~folding }
  {
    " \str_casefold:n { ABC ~ 123 ~ abc ~ !@ } "
    \NEWLINE
    " \str_casefold:n { ~ ABC ~ 123 ~ abc ~ !@ ~ } "
    \NEWLINE
    " \str_casefold:n { Some~$&#~odd~text~{~}~ } "
  }

\TEST { Checking~category~codes }
  {
    \OMIT
      \tl_set:Nn \l_tmpa_tl { abc~123 }
    \TIMO
    \tl_set:Nx \l_tmpb_tl{ \str_casefold:n { ABC~123 } }
    \tl_if_eq:NNTF \l_tmpa_tl \l_tmpb_tl \ERROR \FALSE
    \OMIT
      \tl_set:Nx \l_tmpa_tl { \tl_to_str:n { abc~123 } }
    \TIMO
    \tl_set:Nx \l_tmpb_tl{ \str_casefold:n { ABC~123 } }
    \tl_if_eq:NNTF \l_tmpa_tl \l_tmpb_tl \TRUE \ERROR
  }

\TESTEXP { Accented~characters,~etc. }
  {
    " \str_uppercase:n { Café } "
    \NEWLINE
    " \str_casefold:n { ĆėƊṐṑ } "
    \NEWLINE
    " \str_casefold:n { ᾪωΝ } "
    \NEWLINE
    " \str_casefold:n { ΰῢst } "
    \NEWLINE
    " \str_casefold:n { Ꚉ ꚇ} "
    \NEWLINE
    " \str_casefold:n { ＺꝎⓍ } "
  }

\TEST { Characters~with~context-sensitive~Unicode~behaviour }
  {
    \tl_set:Nx \l_tmpa_tl { \str_casefold:n { όσος } }
    \tl_set:Nx \l_tmpb_tl { \str_casefold:n { ΌΣΟΣ } }
    \tl_if_eq:NNTF \l_tmpa_tl \l_tmpb_tl \TRUE \FALSE
  }

\END