[latex3-commits] [git/LaTeX3-latex3-latex3] scan-quark: Other tests for kernel quark function (2d7bcb43e)

[PhelypeOleinik]

Repository : https://github.com/latex3/latex3
On branch  : scan-quark
Link       : https://github.com/latex3/latex3/commit/2d7bcb43e372c5f1a9857b31681f9b01a4f0fec6

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

commit 2d7bcb43e372c5f1a9857b31681f9b01a4f0fec6
Author: PhelypeOleinik <tex.phelype at gmail.com>
Date:   Wed Mar 11 16:07:08 2020 -0300

    Other tests for kernel quark function


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

2d7bcb43e372c5f1a9857b31681f9b01a4f0fec6
 l3kernel/testfiles/m3quark002.lvt                  | 44 ++++++++++++++++++++++
 .../testfiles/m3quark002.tlg                       | 23 +++++++----
 2 files changed, 59 insertions(+), 8 deletions(-)

diff --git a/l3kernel/testfiles/m3quark002.lvt b/l3kernel/testfiles/m3quark002.lvt
new file mode 100644
index 000000000..456028d3d
--- /dev/null
+++ b/l3kernel/testfiles/m3quark002.lvt
@@ -0,0 +1,44 @@
+%
+% Copyright (C) 2020 The LaTeX3 project
+%
+
+\documentclass{minimal}
+\input{regression-test}
+\RequirePackage[enable-debug]{expl3}
+\ExplSyntaxOn
+\debug_on:n { check-declarations , deprecation , log-functions }
+\ExplSyntaxOff
+
+\begin{document}
+
+\START
+\AUTHOR{Phelype Oleinik}
+\ExplSyntaxOn
+
+\TEST{New~private~quark~functions}{
+  \quark_new:N \q__test_recursion_tail
+  \quark_new:N \q__test_recursion_stop
+  \__kernel_quark_new_recursion_tail_stop:n { __test }
+  \cs_log:N \__test_quark_if_recursion_tail_stop:n
+  \__kernel_quark_new_recursion_tail_stop_do:n { __test }
+  \cs_log:N \__test_quark_if_recursion_tail_stop_do:nn
+}
+
+\TESTEXP{Inside~recursions~(expect~nothing)}{
+  \__test_quark_if_recursion_tail_stop:n
+    {\q__test_recursion_tail} \ERROR \q__test_recursion_stop
+}
+
+\TESTEXP{Inside~recursions~(expect~`YESYES')}{
+  \__test_quark_if_recursion_tail_stop_do:nn
+    {\q__test_recursion_tail}\YES\q__test_recursion_stop
+  \__test_quark_if_recursion_tail_stop_do:nn
+    {\q__test_recursion_tail}\YES\NO\q__test_recursion_stop
+}
+
+\TESTEXP{Recursion~edge~cases~(expect~nothing)}{
+  \__test_quark_if_recursion_tail_stop:n {{{{a}}}}
+  \__test_quark_if_recursion_tail_stop:n {{ab\iffalse}\fi}
+}
+
+\END
diff --git a/l3experimental/l3cctab/testfiles/m3cctab001.tlg b/l3kernel/testfiles/m3quark002.tlg
similarity index 51%
copy from l3experimental/l3cctab/testfiles/m3cctab001.tlg
copy to l3kernel/testfiles/m3quark002.tlg
index 394de4fe7..002a8d95d 100644
--- a/l3experimental/l3cctab/testfiles/m3cctab001.tlg
+++ b/l3kernel/testfiles/m3quark002.tlg
@@ -2,22 +2,29 @@ This is a generated file for the LaTeX (2e + expl3) validation system.
 Don't change this file in any respect.
 Author: Phelype Oleinik
 ============================================================
-TEST 1: cctab_begin/code in iniTeX
+TEST 1: New private quark functions
 ============================================================
-OK
+Defining \q__test_recursion_tail on line ...
+Defining \q__test_recursion_stop on line ...
+Defining \__test_quark_if_recursion_tail_stop:n on line ...
+> \__test_quark_if_recursion_tail_stop:n=\long macro:#1->\tl_if_empty:oTF
+{\__test_quark_if_recursion_tail:w {}#1{}?!\q__test_recursion_tail
+??!}{\__test_use_none_delimit_by_q_recursion_stop:w }{}.
+Defining \__test_quark_if_recursion_tail_stop_do:nn on line ...
+> \__test_quark_if_recursion_tail_stop_do:nn=\long macro:#1->\tl_if_empty:oTF
+{\__test_quark_if_recursion_tail:w {}#1{}?!\q__test_recursion_tail
+??!}{\__test_use_i_delimit_by_q_recursion_stop:nw }{\use_none:n }.
 ============================================================
 ============================================================
-TEST 2: cctab_begin/iniTeX in code
+TEST 2: Inside recursions (expect nothing)
 ============================================================
-OK
 ============================================================
 ============================================================
-TEST 3: cctab_begin/str in document
+TEST 3: Inside recursions (expect `YESYES')
 ============================================================
-OK
+YESYES
 ============================================================
 ============================================================
-TEST 4: cctab_begin/document in str
+TEST 4: Recursion edge cases (expect nothing)
 ============================================================
-OK
 ============================================================