Tests that a variable defined as a function can be evaluated later on.
Test issue-160-001.xml is expected to pass.
<p:declare-step xmlns:cx="http://xmlcalabash.com/ns/extensions" xmlns:ex="https://xmlcalabash.com/ns/examples" xmlns:p="http://www.w3.org/ns/xproc" xmlns:xs="http://www.w3.org/2001/XMLSchema" exclude-inline-prefixes="ex xs cx" name="main" version="3.0">
<p:import href="https://xmlcalabash.com/ext/library/pipeline-messages.xpl"/>
<p:output port="result"/>
<p:variable name="ex:document-info" as="function(*)" select="function($d as item()) as xs:string { p:document-property($d, 'content-type') || ' at ' || p:document-property($d, 'base-uri') }"/>
<p:identity>
<p:with-input>
<doc/>
</p:with-input>
</p:identity>
<p:identity name="id" message="Seeing { $ex:document-info(.) }"/>
<cx:pipeline-messages p:depends="id" level="info" clear="true"/>
</p:declare-step>
<s:schema xmlns:s="http://purl.oclc.org/dsdl/schematron" queryBinding="xslt2">
<s:ns prefix="cx" uri="http://xmlcalabash.com/ns/extensions"/>
<s:pattern>
<s:rule context="/">
<s:assert test="cx:messages">The document root is not correct.</s:assert>
</s:rule>
</s:pattern>
<s:pattern>
<s:rule context="/cx:messages">
<s:assert test="cx:message[@level='INFO' and contains(@message, 'Seeing application/xml')]">Did not find user message.</s:assert>
</s:rule>
</s:pattern>
</s:schema>
Fixed typo in the test title.
Created test.