From eae58388d2ec00a624ebc5537ad9a90811f5741a Mon Sep 17 00:00:00 2001
From: Norman Walsh <ndw@nwalsh.com>
Date: Sun, 12 May 2024 16:23:07 +0100
Subject: [PATCH] Tests for step-available

---
 test-suite/tests/nw-step-available-001.xml | 57 ++++++++++++++++++++
 test-suite/tests/nw-step-available-002.xml | 58 ++++++++++++++++++++
 test-suite/tests/nw-step-available-003.xml | 60 +++++++++++++++++++++
 test-suite/tests/nw-step-available-004.xml | 61 ++++++++++++++++++++++
 4 files changed, 236 insertions(+)
 create mode 100644 test-suite/tests/nw-step-available-001.xml
 create mode 100644 test-suite/tests/nw-step-available-002.xml
 create mode 100644 test-suite/tests/nw-step-available-003.xml
 create mode 100644 test-suite/tests/nw-step-available-004.xml

diff --git a/test-suite/tests/nw-step-available-001.xml b/test-suite/tests/nw-step-available-001.xml
new file mode 100644
index 00000000..8dbbcf58
--- /dev/null
+++ b/test-suite/tests/nw-step-available-001.xml
@@ -0,0 +1,57 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+   <t:info>
+      <t:title>Step available 001 (NW)</t:title>
+      <t:revision-history>
+         <t:revision>
+            <t:date>2024-04-01</t:date>
+            <t:author>
+               <t:name>Norm Tovey-Walsh</t:name>
+            </t:author>
+            <t:description xmlns="http://www.w3.org/1999/xhtml">
+               <p>Initial commit</p>
+            </t:description>
+         </t:revision>
+      </t:revision-history>
+   </t:info>
+   <t:description xmlns="http://www.w3.org/1999/xhtml">
+      <p>Test a user-defined step with a body that is conditionally present.</p>
+   </t:description>
+   <t:pipeline>
+      <p:declare-step name="main"
+                      version="3.0"
+                      xmlns:p="http://www.w3.org/ns/xproc"
+                      xmlns:ex="http://example.com/ns/xproc-extensions">
+         <p:output port="result"/>
+
+         <p:declare-step type="ex:step1">
+            <p:input port="source"/>
+            <p:output port="result"/>
+            <p:identity use-when="p:step-available('ex:step2')"/>
+         </p:declare-step>
+
+         <p:declare-step type="ex:step2">
+            <p:input port="source"/>
+            <p:output port="result"/>
+         </p:declare-step>
+
+         <p:identity>
+           <p:with-input>
+             <available>{p:step-available('ex:step1')}</available>
+           </p:with-input>
+         </p:identity>
+      </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="available = 'false'">The step should not be available.</s:assert>
+            </s:rule>
+         </s:pattern>
+      </s:schema>
+   </t:schematron>
+</t:test>
diff --git a/test-suite/tests/nw-step-available-002.xml b/test-suite/tests/nw-step-available-002.xml
new file mode 100644
index 00000000..d068914b
--- /dev/null
+++ b/test-suite/tests/nw-step-available-002.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>Step available 002 (NW)</t:title>
+      <t:revision-history>
+         <t:revision>
+            <t:date>2024-04-01</t:date>
+            <t:author>
+               <t:name>Norm Tovey-Walsh</t:name>
+            </t:author>
+            <t:description xmlns="http://www.w3.org/1999/xhtml">
+               <p>Initial commit</p>
+            </t:description>
+         </t:revision>
+      </t:revision-history>
+   </t:info>
+   <t:description xmlns="http://www.w3.org/1999/xhtml">
+      <p>Test a user-defined step with a body that is conditionally present.</p>
+   </t:description>
+   <t:pipeline>
+      <p:declare-step name="main"
+                      version="3.0"
+                      xmlns:p="http://www.w3.org/ns/xproc"
+                      xmlns:ex="http://example.com/ns/xproc-extensions">
+         <p:output port="result"/>
+
+         <p:declare-step type="ex:step1">
+            <p:input port="source"/>
+            <p:output port="result"/>
+            <p:identity use-when="p:step-available('ex:step2')"/>
+         </p:declare-step>
+
+         <p:declare-step type="ex:step2">
+            <p:input port="source"/>
+            <p:output port="result"/>
+            <p:identity/>
+         </p:declare-step>
+
+         <p:identity>
+           <p:with-input>
+             <available>{p:step-available('ex:step1')}</available>
+           </p:with-input>
+         </p:identity>
+      </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="available = 'true'">The step should be available.</s:assert>
+            </s:rule>
+         </s:pattern>
+      </s:schema>
+   </t:schematron>
+</t:test>
diff --git a/test-suite/tests/nw-step-available-003.xml b/test-suite/tests/nw-step-available-003.xml
new file mode 100644
index 00000000..fcb55136
--- /dev/null
+++ b/test-suite/tests/nw-step-available-003.xml
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+   <t:info>
+      <t:title>Step available 003 (NW)</t:title>
+      <t:revision-history>
+         <t:revision>
+            <t:date>2024-04-01</t:date>
+            <t:author>
+               <t:name>Norm Tovey-Walsh</t:name>
+            </t:author>
+            <t:description xmlns="http://www.w3.org/1999/xhtml">
+               <p>Initial commit</p>
+            </t:description>
+         </t:revision>
+      </t:revision-history>
+   </t:info>
+   <t:description xmlns="http://www.w3.org/1999/xhtml">
+      <p>Test a user-defined step with a body that is conditionally present.</p>
+   </t:description>
+   <t:pipeline>
+      <p:declare-step name="main"
+                      version="3.0"
+                      xmlns:p="http://www.w3.org/ns/xproc"
+                      xmlns:ex="http://example.com/ns/xproc-extensions">
+         <p:output port="result"/>
+
+         <p:declare-step type="ex:step1">
+            <p:input port="source"/>
+            <p:output port="result"/>
+            <p:identity use-when="p:step-available('ex:step2')"/>
+         </p:declare-step>
+
+         <p:declare-step type="ex:step2">
+            <p:input port="source"/>
+            <p:output port="result"/>
+         </p:declare-step>
+
+         <p:identity>
+           <p:with-input use-when="p:step-available('ex:step1')">
+             <available/>
+           </p:with-input>
+           <p:with-input use-when="not(p:step-available('ex:step1'))">
+             <not-available/>
+           </p:with-input>
+         </p:identity>
+      </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="not-available">The step should not be available.</s:assert>
+            </s:rule>
+         </s:pattern>
+      </s:schema>
+   </t:schematron>
+</t:test>
diff --git a/test-suite/tests/nw-step-available-004.xml b/test-suite/tests/nw-step-available-004.xml
new file mode 100644
index 00000000..edcc3adf
--- /dev/null
+++ b/test-suite/tests/nw-step-available-004.xml
@@ -0,0 +1,61 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+   <t:info>
+      <t:title>Step available 004 (NW)</t:title>
+      <t:revision-history>
+         <t:revision>
+            <t:date>2024-04-01</t:date>
+            <t:author>
+               <t:name>Norm Tovey-Walsh</t:name>
+            </t:author>
+            <t:description xmlns="http://www.w3.org/1999/xhtml">
+               <p>Initial commit</p>
+            </t:description>
+         </t:revision>
+      </t:revision-history>
+   </t:info>
+   <t:description xmlns="http://www.w3.org/1999/xhtml">
+      <p>Test a user-defined step with a body that is conditionally present.</p>
+   </t:description>
+   <t:pipeline>
+      <p:declare-step name="main"
+                      version="3.0"
+                      xmlns:p="http://www.w3.org/ns/xproc"
+                      xmlns:ex="http://example.com/ns/xproc-extensions">
+         <p:output port="result"/>
+
+         <p:declare-step type="ex:step1">
+            <p:input port="source"/>
+            <p:output port="result"/>
+            <p:identity use-when="p:step-available('ex:step2')"/>
+         </p:declare-step>
+
+         <p:declare-step type="ex:step2">
+            <p:input port="source"/>
+            <p:output port="result"/>
+            <p:identity/>
+         </p:declare-step>
+
+         <p:identity>
+           <p:with-input use-when="p:step-available('ex:step1')">
+             <available/>
+           </p:with-input>
+           <p:with-input use-when="not(p:step-available('ex:step1'))">
+             <not-available/>
+           </p:with-input>
+         </p:identity>
+      </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="available">The step should be available.</s:assert>
+            </s:rule>
+         </s:pattern>
+      </s:schema>
+   </t:schematron>
+</t:test>