<?xml version="1.0" encoding="iso-8859-1"?>
<xcl:active-sheet
    xmlns:xcl="http://ns.inria.org/active-tags/xcl"
    xmlns:io="http://ns.inria.org/active-tags/io"
    xmlns:sys="http://ns.inria.org/active-tags/sys"
    xmlns:xunit="http://reflex.gforge.inria.fr/xunit.html"
    xmlns:wunit="http://reflex.gforge.inria.fr/wunit.html">

    <!--start to discuss with the servlet emulator-->
    <wunit:conversation application="../webapp/WEB-INF/web.xml" uri="http://www.example.com/">
        <!-- *********************
                    XML Test
             ********************* -->
        <xunit:test-case name="report/4a-gallery-delete-ajax" label="[Web] Delete page : AJAX">
            <!--store directly some objects in the current session server-side-->
            <xcl:attribute name="item2" value="{ io:file( '../img/xml2006-logo.png' ) }"
 referent="{ $wunit:session }"/>
            <xcl:attribute name="item1" value="{ io:file( '../img/xml-10.png' ) }"
 referent="{ $wunit:session }"/>
            <xcl:attribute name="another" value="{ io:file( '../img/xml2006-logo.png' ) }"
 referent="{ $wunit:session }"/>

            <!--get the autocompleter : we'll get the objects which name starts with "it" -->
            <wunit:GET url="http://www.example.com/images.xml?imageName=it"/>
            <xunit:assert-number-equals result="{ value( $wunit:frame/@wunit:response-code ) }" expected="200"/>
            <xunit:assert-string-equals result="{ string( $wunit:frame/@wunit:mime-type ) }" expected="application/xml"/>
            <!--create an inline HTML fragment of the result expected ;
                whitespaces are important !!!
                the result produced by the server doesn't contain whitespaces -->
            <xcl:document name="expected"><ul><li>item1</li><li>item2</li></ul></xcl:document>
            <!--compare the fragment get with those expected-->
            <xunit:assert-node-equals result="{ $wunit:document }" expected="{ $expected }"/>
        </xunit:test-case>

        <!-- *********************
                  Delete page
             ********************* -->
        <xunit:test-case name="report/4b-gallery-delete-form" label="[Web] Delete page : form">
            <!--get the delete page-->
            <wunit:GET url="http://www.example.com/delete.html"/>
            <xunit:assert-number-equals result="{ value( $wunit:frame/@wunit:response-code ) }" expected="200"/>
            <xunit:assert-string-equals result="{ string( $wunit:frame/@wunit:mime-type ) }" expected="text/html"/>
            <!--fill the HTML form and submit it to the server-->
            <wunit:fill-form form="{ $wunit:document//form[@name='delete'] }">
                <!--the text input is a string-->
                <xcl:param name="imageName" value="item1"/>
            </wunit:fill-form>
            <!--write an HTML trace to sysout-->
            <xcl:transform source="{ $wunit:document }" output="{ $sys:out }"/>
            <!--check the message in the response page sent by the server-->
            <xunit:assert-string-equals result="{ normalize-space( $wunit:document//body/div[1] ) }"
 expected="xml-10.png deleted."/>
            <!--check that the session object was deleted,
                and that other session objects were preserved-->
            <xunit:assert-false result="{ name( value( $wunit:session/@item1 ) ) }"/>
            <xunit:assert-string-equals result="{ name( value( $wunit:session/@item2 ) ) }" expected="xml2006-logo.png"/>
            <xunit:assert-string-equals result="{ name( value( $wunit:session/@another ) ) }"
 expected="xml2006-logo.png"/>
        </xunit:test-case>

        <!-- *********************
                  Javascript
             (Autocompleter Test)
             ********************* -->
        <xunit:test-case name="report/4c-gallery-delete-js" label="[Web] Delete page : Javascript">
            <!--restore in the session the item that we have just deleted-->
            <xcl:attribute name="item1" value="{ io:file( '../img/xml-10.png' ) }"
 referent="{ $wunit:session }"/>
            <!--what we have so far :
                    -the delete page loaded
                    -3 items stored in the session server side
                we intend to send events that will involve the Javascript autocompleter-->
            <!--fill the HTML form WITHOUT submitting it to the server-->
            <wunit:fill-form form="{ $wunit:document//form[@name='delete'] }" submit="no">
                <!--fill partially the input text in order to get
                    from the server the image names that start with "it"
                    "item1" and "item2" will be candidate-->
                <xcl:param name="imageName" value="it"/>
            </wunit:fill-form>
            <!--let the client having enough time to display the result sent by the server
                (the autocompleter accept a delay parameter to set with Javascript)
                we are waiting 1000 ms-->
            <xcl:sleep value="1000"/>
            <!--click on the second item of the list-->
            <wunit:click target="{ $wunit:document//div[@id='list']/ul/li[2] }"/>
            <!--submit the form as-is :
                as we have clicked on the 2nd <li>, the input field should
                have been its value set to "item2"-->
            <wunit:fill-form form="{ $wunit:document//form[@name='delete'] }"/>
            <!--check the message in the response page sent by the server-->
            <xunit:assert-string-equals result="{ normalize-space( $wunit:document//body/div[1] ) }"
 expected="xml2006-logo.png deleted."/>
            <!--check that the session object was deleted,
                and that other session objects were preserved-->
            <xunit:assert-false result="{ name( value( $wunit:session/@item2 ) ) }"/>
            <xunit:assert-string-equals result="{ name( value( $wunit:session/@item1 ) ) }" expected="xml-10.png"/>
            <xunit:assert-string-equals result="{ name( value( $wunit:session/@another ) ) }"
 expected="xml2006-logo.png"/>
        </xunit:test-case>
    </wunit:conversation>

</xcl:active-sheet>