From 68e245b2c5d00977ef900689fa2933c03482c562 Mon Sep 17 00:00:00 2001
From: xml-project <achim.berndzen@xml-project.com>
Date: Sun, 2 Feb 2025 12:26:46 +0100
Subject: [PATCH] Additional tests for c:data decoding

---
 test-suite/tests/ab-cast-content-type-029.xml | 48 +++++++++++++++++++
 test-suite/tests/ab-cast-content-type-030.xml | 47 ++++++++++++++++++
 test-suite/tests/ab-cast-content-type-031.xml | 48 +++++++++++++++++++
 test-suite/tests/ab-cast-content-type-032.xml | 46 ++++++++++++++++++
 test-suite/tests/ab-cast-content-type-033.xml | 36 ++++++++++++++
 test-suite/tests/ab-cast-content-type-034.xml | 36 ++++++++++++++
 test-suite/tests/ab-cast-content-type-035.xml | 36 ++++++++++++++
 test-suite/tests/ab-cast-content-type-036.xml | 36 ++++++++++++++
 8 files changed, 333 insertions(+)
 create mode 100644 test-suite/tests/ab-cast-content-type-029.xml
 create mode 100644 test-suite/tests/ab-cast-content-type-030.xml
 create mode 100644 test-suite/tests/ab-cast-content-type-031.xml
 create mode 100644 test-suite/tests/ab-cast-content-type-032.xml
 create mode 100644 test-suite/tests/ab-cast-content-type-033.xml
 create mode 100644 test-suite/tests/ab-cast-content-type-034.xml
 create mode 100644 test-suite/tests/ab-cast-content-type-035.xml
 create mode 100644 test-suite/tests/ab-cast-content-type-036.xml

diff --git a/test-suite/tests/ab-cast-content-type-029.xml b/test-suite/tests/ab-cast-content-type-029.xml
new file mode 100644
index 00000000..3bf11f8f
--- /dev/null
+++ b/test-suite/tests/ab-cast-content-type-029.xml
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+  <t:info>
+    <t:title>cast-content-type 029 (AB)</t:title>
+    <t:revision-history>
+      <t:revision>
+        <t:date>2025-02-02</t:date>
+        <t:author>
+          <t:name>Achim Berndzen</t:name>
+        </t:author>
+        <t:description xmlns="http://www.w3.org/1999/xhtml">
+          <p>Test casting from c:data to Text.</p>
+        </t:description>
+      </t:revision>
+    </t:revision-history>
+  </t:info>
+  <t:description xmlns="http://www.w3.org/1999/xhtml">
+    <p>Tests that a c:data document is decoded if cast to Text. Charset UTF-8</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:cast-content-type content-type="text/plain">
+        <p:with-input>
+          <c:data content-type="text/plain"
+            encoding="base64"
+            charset="UTF-8"
+            xmlns:c="http://www.w3.org/ns/xproc-step">Q29weSDCqQ==</c:data>
+        </p:with-input>
+      </p:cast-content-type>
+      <p:wrap-sequence wrapper="result" />
+    </p:declare-step>
+  </t:pipeline>
+  <t:schematron>
+    <s:schema queryBinding="xslt2"
+              xmlns:s="http://purl.oclc.org/dsdl/schematron">
+      <s:pattern>
+        <s:rule context="/">
+          <s:assert test="result">The root element is not 'result'.</s:assert>
+          <s:assert test="result/text()='Copy ©'">The text is not correctly decoded.</s:assert>
+        </s:rule>
+      </s:pattern>
+    </s:schema>
+  </t:schematron>
+</t:test>
diff --git a/test-suite/tests/ab-cast-content-type-030.xml b/test-suite/tests/ab-cast-content-type-030.xml
new file mode 100644
index 00000000..8df4f4a0
--- /dev/null
+++ b/test-suite/tests/ab-cast-content-type-030.xml
@@ -0,0 +1,47 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+  <t:info>
+    <t:title>cast-content-type 030 (AB)</t:title>
+    <t:revision-history>
+      <t:revision>
+        <t:date>2025-02-02</t:date>
+        <t:author>
+          <t:name>Achim Berndzen</t:name>
+        </t:author>
+        <t:description xmlns="http://www.w3.org/1999/xhtml">
+          <p>Test casting from c:data to Text.</p>
+        </t:description>
+      </t:revision>
+    </t:revision-history>
+  </t:info>
+  <t:description xmlns="http://www.w3.org/1999/xhtml">
+    <p>Tests that a c:data document is decoded if cast to Text. Implicit charset</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:cast-content-type content-type="text/plain">
+        <p:with-input>
+          <c:data content-type="text/plain"
+            encoding="base64"
+            xmlns:c="http://www.w3.org/ns/xproc-step">Q29weSDCqQ==</c:data>
+        </p:with-input>
+      </p:cast-content-type>
+      <p:wrap-sequence wrapper="result" />
+    </p:declare-step>
+  </t:pipeline>
+  <t:schematron>
+    <s:schema queryBinding="xslt2"
+              xmlns:s="http://purl.oclc.org/dsdl/schematron">
+      <s:pattern>
+        <s:rule context="/">
+          <s:assert test="result">The root element is not 'result'.</s:assert>
+          <s:assert test="result/text()='Copy ©'">The text is not correctly decoded.</s:assert>
+        </s:rule>
+      </s:pattern>
+    </s:schema>
+  </t:schematron>
+</t:test>
diff --git a/test-suite/tests/ab-cast-content-type-031.xml b/test-suite/tests/ab-cast-content-type-031.xml
new file mode 100644
index 00000000..b90bc95b
--- /dev/null
+++ b/test-suite/tests/ab-cast-content-type-031.xml
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+  <t:info>
+    <t:title>cast-content-type 031 (AB)</t:title>
+    <t:revision-history>
+      <t:revision>
+        <t:date>2025-02-02</t:date>
+        <t:author>
+          <t:name>Achim Berndzen</t:name>
+        </t:author>
+        <t:description xmlns="http://www.w3.org/1999/xhtml">
+          <p>Test casting from c:data to Text.</p>
+        </t:description>
+      </t:revision>
+    </t:revision-history>
+  </t:info>
+  <t:description xmlns="http://www.w3.org/1999/xhtml">
+    <p>Tests that a c:data document is decoded if cast to Text. ISO charset</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:cast-content-type content-type="text/plain">
+        <p:with-input>
+          <c:data content-type="text/plain"
+            encoding="base64"
+            charset="ISO-8859-1"
+            xmlns:c="http://www.w3.org/ns/xproc-step">Q29weSCp</c:data>
+        </p:with-input>
+      </p:cast-content-type>
+      <p:wrap-sequence wrapper="result" />
+    </p:declare-step>
+  </t:pipeline>
+  <t:schematron>
+    <s:schema queryBinding="xslt2"
+              xmlns:s="http://purl.oclc.org/dsdl/schematron">
+      <s:pattern>
+        <s:rule context="/">
+          <s:assert test="result">The root element is not 'result'.</s:assert>
+          <s:assert test="result/text()='Copy ©'">The text is not correctly decoded.</s:assert>
+        </s:rule>
+      </s:pattern>
+    </s:schema>
+  </t:schematron>
+</t:test>
diff --git a/test-suite/tests/ab-cast-content-type-032.xml b/test-suite/tests/ab-cast-content-type-032.xml
new file mode 100644
index 00000000..de68dd53
--- /dev/null
+++ b/test-suite/tests/ab-cast-content-type-032.xml
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="pass"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+  <t:info>
+    <t:title>cast-content-type 032 (AB)</t:title>
+    <t:revision-history>
+      <t:revision>
+        <t:date>2025-02-02</t:date>
+        <t:author>
+          <t:name>Achim Berndzen</t:name>
+        </t:author>
+        <t:description xmlns="http://www.w3.org/1999/xhtml">
+          <p>Test casting from c:data to Text.</p>
+        </t:description>
+      </t:revision>
+    </t:revision-history>
+  </t:info>
+  <t:description xmlns="http://www.w3.org/1999/xhtml">
+    <p>Tests that a c:data document is decoded if cast to Text, default encoding.</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:cast-content-type content-type="text/plain">
+        <p:with-input>
+          <c:data content-type="text/plain"
+            xmlns:c="http://www.w3.org/ns/xproc-step">Q29weSDCqQ==</c:data>
+        </p:with-input>
+      </p:cast-content-type>
+      <p:wrap-sequence wrapper="result" />
+    </p:declare-step>
+  </t:pipeline>
+  <t:schematron>
+    <s:schema queryBinding="xslt2"
+              xmlns:s="http://purl.oclc.org/dsdl/schematron">
+      <s:pattern>
+        <s:rule context="/">
+          <s:assert test="result">The root element is not 'result'.</s:assert>
+          <s:assert test="result/text()='Copy ©'">The text is not correctly decoded.</s:assert>
+        </s:rule>
+      </s:pattern>
+    </s:schema>
+  </t:schematron>
+</t:test>
diff --git a/test-suite/tests/ab-cast-content-type-033.xml b/test-suite/tests/ab-cast-content-type-033.xml
new file mode 100644
index 00000000..5d4486cf
--- /dev/null
+++ b/test-suite/tests/ab-cast-content-type-033.xml
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="fail" code="err:XC0074"
+        xmlns:err="http://www.w3.org/ns/xproc-error"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+  <t:info>
+    <t:title>cast-content-type 033 (AB)</t:title>
+    <t:revision-history>
+      <t:revision>
+        <t:date>2025-02-02</t:date>
+        <t:author>
+          <t:name>Achim Berndzen</t:name>
+        </t:author>
+        <t:description xmlns="http://www.w3.org/1999/xhtml">
+          <p>Test casting from c:data to Text.</p>
+        </t:description>
+      </t:revision>
+    </t:revision-history>
+  </t:info>
+  <t:description xmlns="http://www.w3.org/1999/xhtml">
+    <p>Tests that a c:data document decoding raises error, if content-types are not equal.</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:cast-content-type content-type="application/xml">
+        <p:with-input>
+          <c:data content-type="text/plain"
+            xmlns:c="http://www.w3.org/ns/xproc-step">Q29weSDCqQ==</c:data>
+        </p:with-input>
+      </p:cast-content-type>
+      <p:wrap-sequence wrapper="result" />
+    </p:declare-step>
+  </t:pipeline>
+</t:test>
diff --git a/test-suite/tests/ab-cast-content-type-034.xml b/test-suite/tests/ab-cast-content-type-034.xml
new file mode 100644
index 00000000..4920f80e
--- /dev/null
+++ b/test-suite/tests/ab-cast-content-type-034.xml
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="fail" code="err:XC0052"
+        xmlns:err="http://www.w3.org/ns/xproc-error"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+  <t:info>
+    <t:title>cast-content-type 034 (AB)</t:title>
+    <t:revision-history>
+      <t:revision>
+        <t:date>2025-02-02</t:date>
+        <t:author>
+          <t:name>Achim Berndzen</t:name>
+        </t:author>
+        <t:description xmlns="http://www.w3.org/1999/xhtml">
+          <p>Test casting from c:data to Text.</p>
+        </t:description>
+      </t:revision>
+    </t:revision-history>
+  </t:info>
+  <t:description xmlns="http://www.w3.org/1999/xhtml">
+    <p>Tests that a c:data document decoding raises error, if encoding is unsupported.</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:cast-content-type content-type="text/plain">
+        <p:with-input>
+          <c:data content-type="text/plain" encoding="not-supported"
+            xmlns:c="http://www.w3.org/ns/xproc-step">Q29weSDCqQ==</c:data>
+        </p:with-input>
+      </p:cast-content-type>
+      <p:wrap-sequence wrapper="result" />
+    </p:declare-step>
+  </t:pipeline>
+</t:test>
diff --git a/test-suite/tests/ab-cast-content-type-035.xml b/test-suite/tests/ab-cast-content-type-035.xml
new file mode 100644
index 00000000..a85f7172
--- /dev/null
+++ b/test-suite/tests/ab-cast-content-type-035.xml
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="fail" code="err:XC0071"
+        xmlns:err="http://www.w3.org/ns/xproc-error"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+  <t:info>
+    <t:title>cast-content-type 035 (AB)</t:title>
+    <t:revision-history>
+      <t:revision>
+        <t:date>2025-02-02</t:date>
+        <t:author>
+          <t:name>Achim Berndzen</t:name>
+        </t:author>
+        <t:description xmlns="http://www.w3.org/1999/xhtml">
+          <p>Test casting from c:data to Text.</p>
+        </t:description>
+      </t:revision>
+    </t:revision-history>
+  </t:info>
+  <t:description xmlns="http://www.w3.org/1999/xhtml">
+    <p>Tests that a c:data document decoding raises error, if charset is unsupported.</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:cast-content-type content-type="text/plain">
+        <p:with-input>
+          <c:data content-type="text/plain" charset="not-supported"
+            xmlns:c="http://www.w3.org/ns/xproc-step">Q29weSDCqQ==</c:data>
+        </p:with-input>
+      </p:cast-content-type>
+      <p:wrap-sequence wrapper="result" />
+    </p:declare-step>
+  </t:pipeline>
+</t:test>
diff --git a/test-suite/tests/ab-cast-content-type-036.xml b/test-suite/tests/ab-cast-content-type-036.xml
new file mode 100644
index 00000000..d3da4520
--- /dev/null
+++ b/test-suite/tests/ab-cast-content-type-036.xml
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<t:test expected="fail" code="err:XC0073"
+        xmlns:err="http://www.w3.org/ns/xproc-error"
+        xmlns:t="http://xproc.org/ns/testsuite/3.0">
+  <t:info>
+    <t:title>cast-content-type 036 (AB)</t:title>
+    <t:revision-history>
+      <t:revision>
+        <t:date>2025-02-02</t:date>
+        <t:author>
+          <t:name>Achim Berndzen</t:name>
+        </t:author>
+        <t:description xmlns="http://www.w3.org/1999/xhtml">
+          <p>Test casting from c:data to Text.</p>
+        </t:description>
+      </t:revision>
+    </t:revision-history>
+  </t:info>
+  <t:description xmlns="http://www.w3.org/1999/xhtml">
+    <p>Tests that a c:data document decoding raises error, no content-type on c:data.</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:cast-content-type content-type="text/plain">
+        <p:with-input>
+          <c:data 
+            xmlns:c="http://www.w3.org/ns/xproc-step">Q29weSDCqQ==</c:data>
+        </p:with-input>
+      </p:cast-content-type>
+      <p:wrap-sequence wrapper="result" />
+    </p:declare-step>
+  </t:pipeline>
+</t:test>