[latex3-commits] [git/LaTeX3-latex3-babel] main: Tests updated for the new \MakeUpper/Lowercase. (57cc6c7)

[Javier]

Repository : https://github.com/latex3/babel
On branch  : main
Link       : https://github.com/latex3/babel/commit/57cc6c7e90aa21e8c60efbf3a64a83215532d459

>---------------------------------------------------------------

commit 57cc6c7e90aa21e8c60efbf3a64a83215532d459
Author: Javier <email at localhost>
Date:   Thu Sep 1 13:32:38 2022 +0200

    Tests updated for the new \MakeUpper/Lowercase.


>---------------------------------------------------------------

57cc6c7e90aa21e8c60efbf3a64a83215532d459
 testfiles/tlb-catalan.tlg |  4 ++--
 testfiles/tlb2247.tlg     |  4 ++--
 testfiles/tlb3004.tlg     | 10 +++++-----
 testfiles/tlb39ac.lvt     | 11 +++++++----
 4 files changed, 16 insertions(+), 13 deletions(-)

diff --git a/testfiles/tlb-catalan.tlg b/testfiles/tlb-catalan.tlg
index 6deaa1d..13be3df 100644
--- a/testfiles/tlb-catalan.tlg
+++ b/testfiles/tlb-catalan.tlg
@@ -27,8 +27,8 @@ Package: babel
 ..\penalty 10000
 ..\glue(\parfillskip) 0.0 plus 1.0fil
 ..\glue(\rightskip) 0.0
-.\marks2{\protect \foreignlanguage {catalan}{\protect \bbl at restore@actives \protect \ETC.}
-.\marks3{\protect \foreignlanguage {catalan}{\protect \bbl at restore@actives \protect \ETC.}
+.\marks2{\protect \foreignlanguage {catalan}{\protect \bbl at restore@actives \MakeUppercase  \ETC.}
+.\marks3{\protect \foreignlanguage {catalan}{\protect \bbl at restore@actives \MakeUppercase  \ETC.}
 .\mark{{}{\protect \foreignlanguage {catalan}{\protect \bbl at restore@actives \ETC.}
 .\write1{\@writefile{toc}{\protect \contentsline {section}{\protect \numberline \ETC.}
 .\penalty 10000
diff --git a/testfiles/tlb2247.tlg b/testfiles/tlb2247.tlg
index 6808f01..90a40ee 100644
--- a/testfiles/tlb2247.tlg
+++ b/testfiles/tlb2247.tlg
@@ -16,9 +16,9 @@ Package: babel
 .\vbox(0.0+0.0)x0.0
 .\penalty -10001
 .\write1{\@writefile{toc}{\protect \contentsline {chapter}{\protect \numberline \ETC.}
-.\marks1{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \protect \ETC.}
+.\marks1{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \MakeUppercase  \ETC.}
 .\marks2{\prg_do_nothing: }
-.\mark{{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \protect \ETC.}
+.\mark{{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \MakeUppercase  \ETC.}
 .\write1{\@writefile{lof}{\protect \addvspace {10\p@ }}}
 .\write1{\@writefile{lot}{\protect \addvspace {10\p@ }}}
 .\rule(0.0+0.0)x*
diff --git a/testfiles/tlb3004.tlg b/testfiles/tlb3004.tlg
index 4647208..5a511f3 100644
--- a/testfiles/tlb3004.tlg
+++ b/testfiles/tlb3004.tlg
@@ -22,9 +22,9 @@ LaTeX Font Info:    External font `cmex10' loaded for size
 .\vbox(0.0+0.0)x0.0
 .\penalty -10001
 .\write1{\@writefile{toc}{\protect \contentsline {chapter}{\protect \numberline \ETC.}
-.\marks1{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \protect \ETC.}
+.\marks1{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \MakeUppercase  \ETC.}
 .\marks2{\prg_do_nothing: }
-.\mark{{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \protect \ETC.}
+.\mark{{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \MakeUppercase  \ETC.}
 .\write1{\@writefile{lof}{\protect \addvspace {10\p@ }}}
 .\write1{\@writefile{lot}{\protect \addvspace {10\p@ }}}
 .\rule(0.0+0.0)x*
@@ -121,9 +121,9 @@ LaTeX Font Info:    External font `cmex10' loaded for size
 ..\penalty 10000
 ..\glue(\parfillskip) 0.0 plus 1.0fil
 ..\glue(\rightskip) 0.0
-.\marks2{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \protect \ETC.}
-.\marks3{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \protect \ETC.}
-.\mark{{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \protect \ETC.}
+.\marks2{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \MakeUppercase  \ETC.}
+.\marks3{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \MakeUppercase  \ETC.}
+.\mark{{\protect \foreignlanguage {russian}{\protect \bbl at restore@actives \MakeUppercase  \ETC.}
 .etc.
 ! OK.
 l. ...}\showbox0
diff --git a/testfiles/tlb39ac.lvt b/testfiles/tlb39ac.lvt
index 9c56b68..aa85b57 100644
--- a/testfiles/tlb39ac.lvt
+++ b/testfiles/tlb39ac.lvt
@@ -32,16 +32,19 @@
 
 \Show\languagename
 
-\MakeUppercase{\gdef\noexpand\testuc{qa\aa}}
-\MakeLowercase{\gdef\noexpand\testlc{QA\OE}}
+\protected\def\setuc{\gdef\testuc}
+\protected\def\setlc{\gdef\testlc}
+
+\MakeUppercase{\setuc{qa\aa}}
+\MakeLowercase{\setlc{QA\OE}}
 
 \Show\testuc
 \Show\testlc
 
 \selectlanguage{german}
 
-\MakeUppercase{\gdef\noexpand\testuc{qa\aa}}
-\MakeLowercase{\gdef\noexpand\testlc{QA\OE}}
+\MakeUppercase{\setuc{qa\aa}}
+\MakeLowercase{\setlc{QA\OE}}
 
 \Show\testuc
 \Show\testlc