test(xqSuite): add minimal test doc and check toc function

see #425

Author: duncdrum

src/main/xar-resources/modules/docbook.xql

@@ -67,7 +67,7 @@ declare %private function docbook:to-html($nodes as node()*) {
 (:== DB5 HANDLING: ==:)
 
 (: Will create the TOC for the DB5 document. Will only go two levels deep (deeper is not very useful for a TOC). :)
-declare %private function docbook:toc-db5($node as node()) as element(ul) {
+declare %public function docbook:toc-db5($node as node()) as element(ul) {
   element ul {
         attribute class {'toc'},
         for $l1 in $node//db5:sect1

src/main/xar-resources/modules/test-suite.xql

@@ -15,6 +15,35 @@ import module namespace diag = "http://exist-db.org/xquery/diagnostics" at "diag
 
 declare namespace db5 = "http://docbook.org/ns/docbook";
 
+(:~ Minimal article from the docs with inline element in next title
+ : @see  author-reference.xml :)
+declare variable $tests:article := document {
+<article xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" version="5.0">
+    <info>
+        <title>Document title</title>
+        <date>1Q18</date>
+    </info>
+    <para>Introductory paragraph(s)</para>
+    <sect1 xml:id="main-id">
+        <title>Title of first main section</title>
+        <para>Lorem ipsum main</para>
+        <sect2 xml:id="sub-id">
+            <title>Title of first sub-section</title>
+            <para>Lorem ipsum sub</para>
+            <sect3 xml:id="subsub-id">
+                <title>Title of first subsub-section</title>
+                <para>Lorem ipsum subsub</para>
+            </sect3>
+        </sect2>
+    </sect1>
+    <sect1 xml:id="next-id">
+        <title>Title of <tag>second</tag> main section</title>
+        <para>Lorem ipsum next</para>
+    </sect1>
+</article>
+
+};
+
 declare
 %test:name('section-headings')
 %test:assertEmpty
@@ -51,3 +80,24 @@ function tests:orphan-listing() {
         $l || ' is missing in ' || $l/ancestor::li/h3/code)
     else ()
 };
+
+declare
+%test:name('ToC rendering')
+%test:assertTrue
+function tests:toc-inline() {
+let $output := <ul class="toc">
+    <li>
+        <a href="#main-id">Title of first main section</a>
+        <ul>
+            <li>
+                <a href="#sub-id">Title of first sub-section</a>
+            </li>
+        </ul>
+    </li>
+    <li>
+        <a href="#next-id">Title of second main section</a>
+    </li>
+</ul>
+return
+    docbook:toc-db5($tests:article) eq $output
+};