[latex3-commits] [git/LaTeX3-latex3-latex3] main: Add test for \text_csae_switch:nnnn (f28e19eb3)

[Joseph Wright]

Repository : https://github.com/latex3/latex3
On branch  : main
Link       : https://github.com/latex3/latex3/commit/f28e19eb342519c00c80a279d50ac6a332f7bfa5

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

commit f28e19eb342519c00c80a279d50ac6a332f7bfa5
Author: Joseph Wright <joseph.wright at morningstar2.co.uk>
Date:   Thu Jul 14 10:14:20 2022 +0100

    Add test for \text_csae_switch:nnnn


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

f28e19eb342519c00c80a279d50ac6a332f7bfa5
 l3kernel/testfiles/m3text001.lvt | 12 ++++++++++++
 l3kernel/testfiles/m3text001.tlg | 19 +++++++++++++++++--
 2 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/l3kernel/testfiles/m3text001.lvt b/l3kernel/testfiles/m3text001.lvt
index 2e7c391a1..adccfb8e5 100644
--- a/l3kernel/testfiles/m3text001.lvt
+++ b/l3kernel/testfiles/m3text001.lvt
@@ -83,6 +83,18 @@
       { \text_expand:n { \tl_map_tokens:nn { { \NoCaseChange { c } } } { tokens } } }
   }
 
+\TEST { Excluding~case~switch }
+  {
+    \tl_show:x
+      { \text_expand:n { \text_case_switch:nnnn { A } { B } { C } { D } } }
+    \cs_new_eq:NN \DemoA \text_case_switch:nnnn
+    \tl_show:x
+      { \text_expand:n { \DemoA { A } { B } { C } { D } } }
+    \cs_new:Npn \DemoB { \text_case_switch:nnnn }
+    \tl_show:x
+      { \text_expand:n { \DemoB { A } { B } { C } { D } } }
+  }
+
 \TEST { Expansion~noexpand }
   {
     \tl_show:x { \text_expand:n { \exp_not:n { ~ \abc \foo } } }
diff --git a/l3kernel/testfiles/m3text001.tlg b/l3kernel/testfiles/m3text001.tlg
index f38bbe0bd..4c996a389 100644
--- a/l3kernel/testfiles/m3text001.tlg
+++ b/l3kernel/testfiles/m3text001.tlg
@@ -52,7 +52,22 @@ l. ...  }
 l. ...  }
 ============================================================
 ============================================================
-TEST 8: Expansion noexpand
+TEST 8: Excluding case switch
+============================================================
+> \text_case_switch:nnnn {A}{B}{C}{D}.
+<recently read> }
+l. ...  }
+Defining \DemoA on line ...
+> \DemoA {A}{B}{C}{D}.
+<recently read> }
+l. ...  }
+Defining \DemoB on line ...
+> \text_case_switch:nnnn {A}{B}{C}{D}.
+<recently read> }
+l. ...  }
+============================================================
+============================================================
+TEST 9: Expansion noexpand
 ============================================================
 >  \abc \foo .
 <recently read> }
@@ -65,7 +80,7 @@ l. ...  }
 l. ...  }
 ============================================================
 ============================================================
-TEST 9: Dealing with \protect 
+TEST 10: Dealing with \protect 
 ============================================================
 > \protect \foo .
 <recently read> }