[latex3-commits] [git/LaTeX3-latex3-latex3] cctab: Test \c_code_cctab matches the catcodes of the test setup (fa17fdeca)

[Bruno Le Floch]

Repository : https://github.com/latex3/latex3
On branch  : cctab
Link       : https://github.com/latex3/latex3/commit/fa17fdeca2ffe15956353e2daec9ea1724b336fb

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

commit fa17fdeca2ffe15956353e2daec9ea1724b336fb
Author: Bruno Le Floch <bruno at le-floch.fr>
Date:   Mon Jun 29 06:39:04 2020 +0200

    Test \c_code_cctab matches the catcodes of the test setup


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

fa17fdeca2ffe15956353e2daec9ea1724b336fb
 l3kernel/testfiles/m3cctab001.lvt | 10 ++++++++--
 l3kernel/testfiles/m3cctab001.tlg |  1 +
 2 files changed, 9 insertions(+), 2 deletions(-)

diff --git a/l3kernel/testfiles/m3cctab001.lvt b/l3kernel/testfiles/m3cctab001.lvt
index a5d1970f6..837e0b852 100644
--- a/l3kernel/testfiles/m3cctab001.lvt
+++ b/l3kernel/testfiles/m3cctab001.lvt
@@ -54,13 +54,19 @@
 \TEST { cctab_begin / code~in~iniTeX }
   {
     \errorstopmode
-    \cctab_begin:N \c_code_cctab
+    \group_begin:
+      \char_set_catcode_letter:N \@
       \SAVECATCODES \TESTintarrayA
+    \group_end:
+    \cctab_begin:N \c_code_cctab
+      \SAVECATCODES \TESTintarrayB
     \cctab_end:
+    \IntarrayIfEqTF \TESTintarrayA \TESTintarrayB
+      { \TYPE { OK } } { \TYPE { Sob~T_T~\l__test_tl } }
     %
     \cctab_begin:N \c_initex_cctab
       \cctab_begin:N \c_code_cctab
-        \SAVECATCODES \TESTintarrayB
+        \SAVECATCODES \TESTintarrayA
       \cctab_end:
     \cctab_end:
     \IntarrayIfEqTF \TESTintarrayA \TESTintarrayB
diff --git a/l3kernel/testfiles/m3cctab001.tlg b/l3kernel/testfiles/m3cctab001.tlg
index 926827550..535277779 100644
--- a/l3kernel/testfiles/m3cctab001.tlg
+++ b/l3kernel/testfiles/m3cctab001.tlg
@@ -5,6 +5,7 @@ Author: Phelype Oleinik
 TEST 1: cctab_begin/code in iniTeX
 ============================================================
 OK
+OK
 ============================================================
 ============================================================
 TEST 2: cctab_begin/iniTeX in code