[latex3-commits] [git/LaTeX3-latex3-latex3] master: add tests for #808 (9e37ae8c3)

[Bruno Le Floch]

Repository : https://github.com/latex3/latex3
On branch  : master
Link       : https://github.com/latex3/latex3/commit/9e37ae8c37d0ae94bce2dfe2e0a838fac047010d

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

commit 9e37ae8c37d0ae94bce2dfe2e0a838fac047010d
Author: Jonathan Spratte <jspratte at yahoo.de>
Date:   Sat Sep 19 22:15:18 2020 +0200

    add tests for #808


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

9e37ae8c37d0ae94bce2dfe2e0a838fac047010d
 l3kernel/testfiles/m3tl006.lvt | 2 ++
 l3kernel/testfiles/m3tl006.tlg | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/l3kernel/testfiles/m3tl006.lvt b/l3kernel/testfiles/m3tl006.lvt
index 7ac80bad5..3da895e9d 100644
--- a/l3kernel/testfiles/m3tl006.lvt
+++ b/l3kernel/testfiles/m3tl006.lvt
@@ -179,6 +179,7 @@
   \tl_if_head_eq_charcode:nNTF {~{ }~} \c_group_begin_token  ?F
   \tl_if_head_eq_charcode:nNTF { {A} } \c_group_begin_token  T?
   \tl_if_head_eq_charcode:nNTF { {A}~} A              ?F
+  \bool_if:nTF { \tl_if_head_eq_charcode_p:nN {} ? }  ?F
 }
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
@@ -202,6 +203,7 @@
   \tl_if_head_eq_charcode:fNTF {&~{ }~} \c_group_begin_token  T?
   \tl_if_head_eq_charcode:fNTF {& {A} } \c_group_begin_token  T?
   \tl_if_head_eq_charcode:fNTF {& {A}~} A              ?F
+  \bool_if:nTF { \tl_if_head_eq_charcode_p:fN {&} ? }  ?F
 }
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
diff --git a/l3kernel/testfiles/m3tl006.tlg b/l3kernel/testfiles/m3tl006.tlg
index 324545c7d..1e244e141 100644
--- a/l3kernel/testfiles/m3tl006.tlg
+++ b/l3kernel/testfiles/m3tl006.tlg
@@ -29,12 +29,12 @@ FFFFFTTTTTFTFTFFTF
 ============================================================
 TEST 6: tl_if_head_eq_charcode
 ============================================================
-FFFFFTTFTFFTFTFFTF
+FFFFFTTFTFFTFTFFTFF
 ============================================================
 ============================================================
 TEST 7: tl_if_head_eq_charcode
 ============================================================
-FFFFFTFTFTTFTTTTF
+FFFFFTFTFTTFTTTTFF
 ============================================================
 ============================================================
 TEST 8: str_head