[latex3-commits] [git/LaTeX3-latex3-latex3] cctab: Test that various cctab bugs (in the LuaTeX case) are indeed fixed (cc88fc3dc)

[Bruno Le Floch]

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

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

commit cc88fc3dc870cabca57fe9959354cd384b6ff275
Author: Bruno Le Floch <bruno at le-floch.fr>
Date:   Thu Jul 2 16:46:47 2020 +0200

    Test that various cctab bugs (in the LuaTeX case) are indeed fixed


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

cc88fc3dc870cabca57fe9959354cd384b6ff275
 l3kernel/testfiles/m3cctab001.lvt | 52 +++++++++++++++++++++++++++++++++++++++
 l3kernel/testfiles/m3cctab001.tlg | 18 ++++++++++++++
 2 files changed, 70 insertions(+)

diff --git a/l3kernel/testfiles/m3cctab001.lvt b/l3kernel/testfiles/m3cctab001.lvt
index c21d3695d..c59d0c39a 100644
--- a/l3kernel/testfiles/m3cctab001.lvt
+++ b/l3kernel/testfiles/m3cctab001.lvt
@@ -204,6 +204,58 @@
     \tl_if_eq:NNTF \l_tmpa_tl \l_tmpb_tl { \TRUE } { \ERROR }
   }
 
+\TEST { cctab~not~affected~by~catcode~assignments }
+  {
+    \cctab_begin:N \c_document_cctab
+      \char_set_catcode_other:N \_
+      \cctab_select:N \c_str_cctab
+    \cctab_end:
+    \int_compare:nNnTF { \char_value_catcode:n { `_ } } = { 11 }
+      { \TRUE } { \ERROR }
+    \cctab_begin:N \c_document_cctab
+      \int_compare:nNnTF { \char_value_catcode:n { `_ } } = { 8 }
+        { \TRUE } { \ERROR }
+    \cctab_end:
+  }
+
+\TEST { restoring~cctab~after~group~end }
+  {
+    \char_set_catcode_space:N \_
+    \cctab_begin:N \c_document_cctab
+      \char_set_catcode_ignore:N \_
+      \group_begin:
+        \char_set_catcode_active:N \_
+        \cctab_begin:N \c_str_cctab
+        \char_set_catcode_active:N \_
+        \cctab_end:
+        \char_set_catcode_active:N \_
+      \group_end:
+      \int_compare:nNnTF { \char_value_catcode:n { `_ } } = { 9 }
+        { \TRUE } { \ERROR }
+    \cctab_end:
+    \int_compare:nNnTF { \char_value_catcode:n { `_ } } = { 10 }
+      { \TRUE } { \ERROR }
+  }
+
+\TEST { restoring~\cctab_select:N~after~group~end }
+  {
+    \char_set_catcode_space:N \_
+    \group_begin:
+      \cctab_select:N \c_document_cctab
+      \char_set_catcode_ignore:N \_
+      \group_begin:
+        \char_set_catcode_active:N \_
+        \cctab_select:N \c_str_cctab
+        \char_set_catcode_active:N \_
+      \group_end:
+      \int_compare:nNnTF { \char_value_catcode:n { `_ } } = { 9 }
+        { \TRUE } { \ERROR }
+    \group_end:
+    \int_compare:nNnTF { \char_value_catcode:n { `_ } } = { 10 }
+      { \TRUE } { \ERROR }
+  }
+
+
 \ExplSyntaxOff
 
 \END
diff --git a/l3kernel/testfiles/m3cctab001.tlg b/l3kernel/testfiles/m3cctab001.tlg
index ba2a44fec..9fa53ec74 100644
--- a/l3kernel/testfiles/m3cctab001.tlg
+++ b/l3kernel/testfiles/m3cctab001.tlg
@@ -43,3 +43,21 @@ TRUE
 FALSE
 TRUE
 ============================================================
+============================================================
+TEST 8: cctab not affected by catcode assignments
+============================================================
+TRUE
+TRUE
+============================================================
+============================================================
+TEST 9: restoring cctab after group end
+============================================================
+TRUE
+TRUE
+============================================================
+============================================================
+TEST 10: restoring \cctab_select:N after group end
+============================================================
+TRUE
+TRUE
+============================================================