From 96e6234a1b59baaf73938230137df50f8ce73a76 Mon Sep 17 00:00:00 2001
From: xml-project <achim.berndzen@xml-project.com>
Date: Fri, 15 Dec 2023 15:41:12 +0100
Subject: [PATCH] Additional tests

---
 test-suite/tests/ab-choose-073.xml | 59 ++++++++++++++++++++++++++++++
 test-suite/tests/ab-choose-074.xml | 58 +++++++++++++++++++++++++++++
 test-suite/tests/ab-choose-075.xml | 53 +++++++++++++++++++++++++++
 test-suite/tests/ab-choose-076.xml | 53 +++++++++++++++++++++++++++
 test-suite/tests/ab-if-034.xml     | 55 ++++++++++++++++++++++++++++
 test-suite/tests/ab-if-035.xml     | 56 ++++++++++++++++++++++++++++
 test-suite/tests/ab-if-036.xml     | 51 ++++++++++++++++++++++++++
 test-suite/tests/ab-if-037.xml     | 51 ++++++++++++++++++++++++++
 8 files changed, 436 insertions(+)
 create mode 100644 test-suite/tests/ab-choose-073.xml
 create mode 100644 test-suite/tests/ab-choose-074.xml
 create mode 100644 test-suite/tests/ab-choose-075.xml
 create mode 100644 test-suite/tests/ab-choose-076.xml
 create mode 100644 test-suite/tests/ab-if-034.xml
 create mode 100644 test-suite/tests/ab-if-035.xml
 create mode 100644 test-suite/tests/ab-if-036.xml
 create mode 100644 test-suite/tests/ab-if-037.xml

diff --git a/test-suite/tests/ab-choose-073.xml b/test-suite/tests/ab-choose-073.xml
new file mode 100644
index 00000000..87e22c33
--- /dev/null
+++ b/test-suite/tests/ab-choose-073.xml
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+   <t:info>
+      <t:title>AB choose-073</t:title>
+      <t:revision-history>     
+         <t:revision>
+            <t:date>2023-12-10</t:date>
+            <t:author>
+               <t:name>Achim Berndzen</t:name>
+            </t:author>
+            <t:description xmlns="http://www.w3.org/1999/xhtml">
+               <p>Additional tests for p:choose</p>
+            </t:description>
+         </t:revision>
+      </t:revision-history>
+   </t:info>
+   <t:description xmlns="http://www.w3.org/1999/xhtml">
+      <p>Tests p:choose inside p:if with test="false()"</p>
+   </t:description>
+   <t:pipeline>
+      <p:declare-step name="pipeline"
+                      version="3.0"
+                      xmlns:p="http://www.w3.org/ns/xproc">
+         <p:output port="result"/>
+         <p:identity>
+            <p:with-input>
+               <doc />
+            </p:with-input>
+         </p:identity>
+         
+         <p:if test="false()">
+            <p:choose>
+               <p:when test="/doc">
+                  <p:identity>
+                     <p:with-input><correct /></p:with-input>
+                  </p:identity>
+               </p:when>
+               <p:otherwise>
+                  <p:identity>
+                     <p:with-input><wrong /></p:with-input>
+                  </p:identity>
+               </p:otherwise>
+            </p:choose>
+         </p:if>
+      </p:declare-step>
+   </t:pipeline>
+   <t:schematron>
+      <s:schema queryBinding="xslt2"
+                xmlns:s="http://purl.oclc.org/dsdl/schematron"
+                xmlns="http://www.w3.org/1999/xhtml">
+         <s:pattern>
+            <s:rule context="/">
+               <s:assert test="doc">The root element is not 'doc'.</s:assert>
+            </s:rule>
+         </s:pattern>
+      </s:schema>
+   </t:schematron>
+</t:test>
\ No newline at end of file
diff --git a/test-suite/tests/ab-choose-074.xml b/test-suite/tests/ab-choose-074.xml
new file mode 100644
index 00000000..89c921ba
--- /dev/null
+++ b/test-suite/tests/ab-choose-074.xml
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+    xmlns:t="http://xproc.org/ns/testsuite/3.0">
+    <t:info>
+        <t:title>p:choose-074 (AB)</t:title>
+        <t:revision-history>
+            <t:revision>
+                <t:date>2023-12-10</t:date>
+                <t:author>
+                    <t:name>Achim Berndzen</t:name>
+                </t:author>
+                <t:description xmlns="http://www.w3.org/1999/xhtml">
+                    <p>New tests</p>
+                </t:description>
+            </t:revision>
+        </t:revision-history>
+    </t:info>
+    <t:description xmlns="http://www.w3.org/1999/xhtml">
+        <p>Test p:choose with a p:try child and test="false()" and no p:otherwise.</p>
+    </t:description>
+    <t:pipeline>
+        <p:declare-step version="3.0"
+            xmlns:p="http://www.w3.org/ns/xproc">
+            <p:output port="result"/>
+            <p:identity>
+                <p:with-input>
+                    <doc/>
+                </p:with-input>
+            </p:identity>
+            <p:choose>
+                <p:when test="false()">
+                    <p:try>
+                        <p:add-attribute match="/doc"
+                            attribute-name="a"
+                            attribute-value="42"/>
+                        <p:catch>
+                            <p:identity>
+                                <p:with-input><error /></p:with-input>
+                            </p:identity>
+                        </p:catch>
+                    </p:try>
+                </p:when>
+            </p:choose>
+        </p:declare-step>
+    </t:pipeline>
+    <t:schematron>
+        <s:schema queryBinding="xslt2"
+            xmlns:s="http://purl.oclc.org/dsdl/schematron"
+            xmlns="http://www.w3.org/1999/xhtml">
+            <s:pattern>
+                <s:rule context="/">
+                    <s:assert test="/doc">Root element is not 'doc'.</s:assert>
+                    <s:assert test="count(/result/@*)=0">Root should not have an attribute.</s:assert>
+                </s:rule>
+            </s:pattern>
+        </s:schema>
+    </t:schematron>
+</t:test>
\ No newline at end of file
diff --git a/test-suite/tests/ab-choose-075.xml b/test-suite/tests/ab-choose-075.xml
new file mode 100644
index 00000000..fab8ca7a
--- /dev/null
+++ b/test-suite/tests/ab-choose-075.xml
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+    xmlns:t="http://xproc.org/ns/testsuite/3.0">
+    <t:info>
+        <t:title>p:choose-075 (AB)</t:title>
+        <t:revision-history>
+            <t:revision>
+                <t:date>2023-12-10</t:date>
+                <t:author>
+                    <t:name>Achim Berndzen</t:name>
+                </t:author>
+                <t:description xmlns="http://www.w3.org/1999/xhtml">
+                    <p>New tests</p>
+                </t:description>
+            </t:revision>
+        </t:revision-history>
+    </t:info>
+    <t:description xmlns="http://www.w3.org/1999/xhtml">
+        <p>Test p:choose with a p:group child and test="false()" and no p:otherwise.</p>
+    </t:description>
+    <t:pipeline>
+        <p:declare-step version="3.0"
+            xmlns:p="http://www.w3.org/ns/xproc">
+            <p:output port="result"/>
+            <p:identity>
+                <p:with-input>
+                    <doc/>
+                </p:with-input>
+            </p:identity>
+            <p:choose>
+                <p:when test="false()">
+                   <p:group>
+                        <p:add-attribute match="/doc"
+                            attribute-name="a"
+                            attribute-value="42"/>
+                   </p:group>
+                </p:when>
+            </p:choose>
+        </p:declare-step>
+    </t:pipeline>
+    <t:schematron>
+        <s:schema queryBinding="xslt2"
+            xmlns:s="http://purl.oclc.org/dsdl/schematron"
+            xmlns="http://www.w3.org/1999/xhtml">
+            <s:pattern>
+                <s:rule context="/">
+                    <s:assert test="/doc">Root element is not 'doc'.</s:assert>
+                    <s:assert test="count(/result/@*)=0">Root should not have an attribute.</s:assert>
+                </s:rule>
+            </s:pattern>
+        </s:schema>
+    </t:schematron>
+</t:test>
\ No newline at end of file
diff --git a/test-suite/tests/ab-choose-076.xml b/test-suite/tests/ab-choose-076.xml
new file mode 100644
index 00000000..1fc3e846
--- /dev/null
+++ b/test-suite/tests/ab-choose-076.xml
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+    xmlns:t="http://xproc.org/ns/testsuite/3.0">
+    <t:info>
+        <t:title>p:choose-076 (AB)</t:title>
+        <t:revision-history>
+            <t:revision>
+                <t:date>2023-12-10</t:date>
+                <t:author>
+                    <t:name>Achim Berndzen</t:name>
+                </t:author>
+                <t:description xmlns="http://www.w3.org/1999/xhtml">
+                    <p>New tests</p>
+                </t:description>
+            </t:revision>
+        </t:revision-history>
+    </t:info>
+    <t:description xmlns="http://www.w3.org/1999/xhtml">
+        <p>Test p:choose with a p:for-each child and test="false()" and no p:otherwise.</p>
+    </t:description>
+    <t:pipeline>
+        <p:declare-step version="3.0"
+            xmlns:p="http://www.w3.org/ns/xproc">
+            <p:output port="result"/>
+            <p:identity>
+                <p:with-input>
+                    <doc/>
+                </p:with-input>
+            </p:identity>
+            <p:choose>
+                <p:when test="false()">
+                   <p:for-each>
+                        <p:add-attribute match="/doc"
+                            attribute-name="a"
+                            attribute-value="42"/>
+                   </p:for-each>
+                </p:when>
+            </p:choose>
+        </p:declare-step>
+    </t:pipeline>
+    <t:schematron>
+        <s:schema queryBinding="xslt2"
+            xmlns:s="http://purl.oclc.org/dsdl/schematron"
+            xmlns="http://www.w3.org/1999/xhtml">
+            <s:pattern>
+                <s:rule context="/">
+                    <s:assert test="/doc">Root element is not 'doc'.</s:assert>
+                    <s:assert test="count(/result/@*)=0">Root should not have an attribute.</s:assert>
+                </s:rule>
+            </s:pattern>
+        </s:schema>
+    </t:schematron>
+</t:test>
\ No newline at end of file
diff --git a/test-suite/tests/ab-if-034.xml b/test-suite/tests/ab-if-034.xml
new file mode 100644
index 00000000..b8f332b5
--- /dev/null
+++ b/test-suite/tests/ab-if-034.xml
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+    xmlns:t="http://xproc.org/ns/testsuite/3.0">
+    <t:info>
+        <t:title>p:if-034 (AB)</t:title>
+        <t:revision-history>
+            <t:revision>
+                <t:date>2023-12-10</t:date>
+                <t:author>
+                    <t:name>Achim Berndzen</t:name>
+                </t:author>
+                <t:description xmlns="http://www.w3.org/1999/xhtml">
+                    <p>New tests</p>
+                </t:description>
+            </t:revision>
+        </t:revision-history>
+    </t:info>
+    <t:description xmlns="http://www.w3.org/1999/xhtml">
+        <p>Test p:if with a sequence as DRP and test="false()".</p>
+    </t:description>
+    <t:pipeline>
+        <p:declare-step version="3.0"
+            xmlns:p="http://www.w3.org/ns/xproc">
+            <p:output port="result"/>
+            <p:identity>
+                <p:with-input>
+                    <doc/>
+                    <doc/>
+                </p:with-input>
+            </p:identity>
+            <p:if test="false()" name="if">
+                <p:for-each>
+                    <p:add-attribute match="/doc"
+                        attribute-name="a"
+                        attribute-value="{p:iteration-position()}"/>
+                </p:for-each>
+            </p:if>
+            <p:wrap-sequence wrapper="result"/>
+        </p:declare-step>
+    </t:pipeline>
+    <t:schematron>
+        <s:schema queryBinding="xslt2"
+            xmlns:s="http://purl.oclc.org/dsdl/schematron"
+            xmlns="http://www.w3.org/1999/xhtml">
+            <s:pattern>
+                <s:rule context="/">
+                    <s:assert test="/result">Root element is not 'result'.</s:assert>
+                    <s:assert test="count(/result/*)=2">Root should only have one child.</s:assert>
+                    <s:assert test="/result/*[1]/name()='doc'">First child of 'result' is not 'doc'.</s:assert>
+                    <s:assert test="/result/*[2]/name()='doc'">Second child of 'result' is not 'doc'.</s:assert>
+                </s:rule>
+            </s:pattern>
+        </s:schema>
+    </t:schematron>
+</t:test>
\ No newline at end of file
diff --git a/test-suite/tests/ab-if-035.xml b/test-suite/tests/ab-if-035.xml
new file mode 100644
index 00000000..f8acace7
--- /dev/null
+++ b/test-suite/tests/ab-if-035.xml
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+    xmlns:t="http://xproc.org/ns/testsuite/3.0">
+    <t:info>
+        <t:title>p:if-035 (AB)</t:title>
+        <t:revision-history>
+            <t:revision>
+                <t:date>2023-12-10</t:date>
+                <t:author>
+                    <t:name>Achim Berndzen</t:name>
+                </t:author>
+                <t:description xmlns="http://www.w3.org/1999/xhtml">
+                    <p>New tests</p>
+                </t:description>
+            </t:revision>
+        </t:revision-history>
+    </t:info>
+    <t:description xmlns="http://www.w3.org/1999/xhtml">
+        <p>Test p:if with a p:try child and test="false()".</p>
+    </t:description>
+    <t:pipeline>
+        <p:declare-step version="3.0"
+            xmlns:p="http://www.w3.org/ns/xproc">
+            <p:output port="result"/>
+            <p:identity>
+                <p:with-input>
+                    <doc/>
+                </p:with-input>
+            </p:identity>
+            <p:if test="false()">
+                <p:try>
+                    <p:add-attribute match="/doc"
+                        attribute-name="a"
+                        attribute-value="42"/>
+                    <p:catch>
+                        <p:identity>
+                            <p:with-input><error /></p:with-input>
+                        </p:identity>
+                    </p:catch>
+                </p:try>
+            </p:if>
+        </p:declare-step>
+    </t:pipeline>
+    <t:schematron>
+        <s:schema queryBinding="xslt2"
+            xmlns:s="http://purl.oclc.org/dsdl/schematron"
+            xmlns="http://www.w3.org/1999/xhtml">
+            <s:pattern>
+                <s:rule context="/">
+                    <s:assert test="/doc">Root element is not 'doc'.</s:assert>
+                    <s:assert test="count(/result/@*)=0">Root should not have an attribute.</s:assert>
+                </s:rule>
+            </s:pattern>
+        </s:schema>
+    </t:schematron>
+</t:test>
\ No newline at end of file
diff --git a/test-suite/tests/ab-if-036.xml b/test-suite/tests/ab-if-036.xml
new file mode 100644
index 00000000..74702ee2
--- /dev/null
+++ b/test-suite/tests/ab-if-036.xml
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+    xmlns:t="http://xproc.org/ns/testsuite/3.0">
+    <t:info>
+        <t:title>p:if-036 (AB)</t:title>
+        <t:revision-history>
+            <t:revision>
+                <t:date>2023-12-10</t:date>
+                <t:author>
+                    <t:name>Achim Berndzen</t:name>
+                </t:author>
+                <t:description xmlns="http://www.w3.org/1999/xhtml">
+                    <p>New tests</p>
+                </t:description>
+            </t:revision>
+        </t:revision-history>
+    </t:info>
+    <t:description xmlns="http://www.w3.org/1999/xhtml">
+        <p>Test p:if with a p:group child and test="false()".</p>
+    </t:description>
+    <t:pipeline>
+        <p:declare-step version="3.0"
+            xmlns:p="http://www.w3.org/ns/xproc">
+            <p:output port="result"/>
+            <p:identity>
+                <p:with-input>
+                    <doc/>
+                </p:with-input>
+            </p:identity>
+            <p:if test="false()">
+                <p:group>
+                    <p:add-attribute match="/doc"
+                        attribute-name="a"
+                        attribute-value="42"/>
+                </p:group>
+            </p:if>
+        </p:declare-step>
+    </t:pipeline>
+    <t:schematron>
+        <s:schema queryBinding="xslt2"
+            xmlns:s="http://purl.oclc.org/dsdl/schematron"
+            xmlns="http://www.w3.org/1999/xhtml">
+            <s:pattern>
+                <s:rule context="/">
+                    <s:assert test="/doc">Root element is not 'doc'.</s:assert>
+                    <s:assert test="count(/result/@*)=0">Root should not have an attribute.</s:assert>
+                </s:rule>
+            </s:pattern>
+        </s:schema>
+    </t:schematron>
+</t:test>
\ No newline at end of file
diff --git a/test-suite/tests/ab-if-037.xml b/test-suite/tests/ab-if-037.xml
new file mode 100644
index 00000000..0a784d3f
--- /dev/null
+++ b/test-suite/tests/ab-if-037.xml
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+    xmlns:t="http://xproc.org/ns/testsuite/3.0">
+    <t:info>
+        <t:title>p:if-037 (AB)</t:title>
+        <t:revision-history>
+            <t:revision>
+                <t:date>2023-12-10</t:date>
+                <t:author>
+                    <t:name>Achim Berndzen</t:name>
+                </t:author>
+                <t:description xmlns="http://www.w3.org/1999/xhtml">
+                    <p>New tests</p>
+                </t:description>
+            </t:revision>
+        </t:revision-history>
+    </t:info>
+    <t:description xmlns="http://www.w3.org/1999/xhtml">
+        <p>Test p:if with a p:for-each child and test="false()".</p>
+    </t:description>
+    <t:pipeline>
+        <p:declare-step version="3.0"
+            xmlns:p="http://www.w3.org/ns/xproc">
+            <p:output port="result"/>
+            <p:identity>
+                <p:with-input>
+                    <doc/>
+                </p:with-input>
+            </p:identity>
+            <p:if test="false()">
+                <p:for-each>
+                    <p:add-attribute match="/doc"
+                        attribute-name="a"
+                        attribute-value="42"/>
+                </p:for-each>
+            </p:if>
+        </p:declare-step>
+    </t:pipeline>
+    <t:schematron>
+        <s:schema queryBinding="xslt2"
+            xmlns:s="http://purl.oclc.org/dsdl/schematron"
+            xmlns="http://www.w3.org/1999/xhtml">
+            <s:pattern>
+                <s:rule context="/">
+                    <s:assert test="/doc">Root element is not 'doc'.</s:assert>
+                    <s:assert test="count(/result/@*)=0">Root should not have an attribute.</s:assert>
+                </s:rule>
+            </s:pattern>
+        </s:schema>
+    </t:schematron>
+</t:test>
\ No newline at end of file