Tutorial

<?xml version="1.0" encoding="iso-8859-1"?>
<xcl:active-sheet
	xmlns:sys="http://www.inria.fr/xml/active-tags/sys"
	xmlns:xcl="http://www.inria.fr/xml/active-tags/xcl"
	xmlns:web="http://www.inria.fr/xml/active-tags/web"
	xmlns:exp="http://www.inria.fr/xml/active-tags/exp">
			
<exp:unmarshal name="myWebapp" source="file:///path/to/hello-world.web"/>
<web:start service="{$myWebapp}">
</web:start>
<!-- the xcl params are "send" to the xcl:mapping matching the url -->			
<web:post name="reponse" url="/index.html" service="{ $myWebapp }">
	<xcl:param name="who" value="toto"/>
</web:post>
</xcl:active-sheet>

<?xml version="1.0" encoding="iso-8859-1"?>
<web:service
    xmlns:web="http://www.inria.fr/xml/active-tags/web"
    xmlns:xcl="http://www.inria.fr/xml/active-tags/xcl">
    <!--
        [webapp]/index.xml
     -->
    <web:mapping match="^/index\.xml$" mime-type="application/xml">
        <!--get the parameter from the query string :
            ...index.xml?who=John+Doe
        -->
        <xcl:set name="who" value="{ string( $web:request/who ) }"/>
        <!--set a default value if the parameter was missing-->
        <xcl:set xcl:if="{ not( $who ) }" name="who" value="world"/>
        <!--create an XML document-->
        <xcl:document name="xml">
            <!--the XML content as litterals-->
            <example>
                <!--{ $who } will be substituted by its value-->
                <title>Hello { $who } !</title>
                <para>This example shows how to create dynamically an XML document.</para>
                <a href="http://reflex.gforge.inria.fr">Powered by RefleX.</a>
            </example>
        </xcl:document>
        <!--serialize the XML document to the HTTP output stream ;
            as the transformation doesn't involve a stylesheet,
            a copy is performed-->
        <xcl:transform source="{ $xml }" output="{ value( $web:response/@web:output ) }"/>
    </web:mapping>

</web:service>

<!--...-->		
<exp:element name="test:all-web">
	<test:web-post-good name="report/report-post-good"
		output-expected="expected/output-expected-post-good.xml" 
      		label="WEB: envoi de requete POST qui doit marcher:"/>
	<xunit:merge-reports name="resume des tests xunit"
		source="{io:file('report/')}" 
      		output="{io:file('web-merge-err.xml')}"/>
</exp:element>

<exp:element name="test:web-post-good"">
<!-- building a new testcase -->
<xunit:test-case name="{ value( $exp:params/@name ) }" 
	label="{ value( $exp:params/@label ) }"">

	<exp:unmarshalname="myWebapp" source="file://{string($sys:env/applieweb)}
		/WEB-INF/general.web" />
		
       	<web:start service="{ $myWebapp }">
       		<xcl:param name="output-dir" value="{$applieweb}/"/>
       	</web:start>
	<!-- emulating a post request -->
       	<web:post name="reponse" url="/enregistrer.html" service="{ $myWebapp }">
        	<xcl:param name="fichier" value="file1"/>
        	<xcl:param name="nom" value="name1"/>
        	<xcl:param name="age" value="1"/>
        	<xcl:param name="mail" value="mail1"/>
	</web:post>
	
	<xcl:set name="numFile" value="{ string( value( $reponse/@web:body )
			//DIV[@name='fichier']/@id)}" />
	<xcl:parse name="resultat-attendu" 
			source="{ value( $exp:params/@output-expected ) }"/>
	<xcl:parse name="resultat-obtenu"  
			source="file://{string($sys:env/applieweb)}/build/{$numFile}.xml"/>
	<xunit:assert-node-equals result="{ $resultat-obtenu }"
			expected="{ $resultat-attendu }" recurse="true"/>
</xunit:test-case>
</exp:element>
<!--...-->