#!/usr/bin/perl -w
use strict;
use warnings;
use Carp;
$SIG{__DIE__} = \&confess;

use WWW::Webrobot::SelftestRunner qw(RunTestplan HttpdEcho Config);


my $test_plan = <<'EOF';
<?xml version="1.0" encoding="iso-8859-1"?>
<plan>

    <request>
        <method value='GET'/>
        <url value='${application}/method/any_directory'/>
        <assert>
            <WWW.Webrobot.Assert>
                <and>
                    <status value='200'/>
                    <regex value='^GET$'/>
                </and>
            </WWW.Webrobot.Assert>
        </assert>
    </request>

    <request>
        <method value='GET'/>
        <url value='${application}/method/any_directory'/>
        <assert>
            <WWW.Webrobot.Assert>
                <and>
                    <status value='200'/>
                    <or>
                        <regex value='^cannot-find-regex$'/>
                        <regex value='^GET$'/>
                    </or>
                    <regex value='^GET$'/>
                </and>
            </WWW.Webrobot.Assert>
        </assert>
    </request>

    <request>
        <method value='GET'/>
        <url value='${application}/method/any_directory'/>
        <assert>
            <WWW.Webrobot.Assert>
                <status value='200'/>
                <regex value='^GET$'/>
            </WWW.Webrobot.Assert>
        </assert>
    </request>

    <request>
        <method value='GET'/>
        <url value='${application}/method/any_directory'/>
        <assert>
            <WWW.Webrobot.Assert>
                <status value='200'/>
                <or>
                    <regex value='^cannot-find-regex$'/>
                    <regex value='^GET$'/>
                </or>
                <regex value='^GET$'/>
            </WWW.Webrobot.Assert>
        </assert>
    </request>

    <request>
        <method value='GET'/>
        <url value='${application}/method/any_directory'/>
        <assert>
            <status value='200'/>
            <regex value='^GET$'/>
        </assert>
    </request>

    <request>
        <method value='GET'/>
        <url value='${application}/method/any_directory'/>
        <recurse>
            <WWW.Webrobot.Recur.Browser>
                <and>
                    <url value="{application}"/>
                    <scheme value="http"/>
                </and>
            </WWW.Webrobot.Recur.Browser>
        </recurse>
    </request>

</plan>
EOF

MAIN: {
    exit RunTestplan(HttpdEcho, Config, $test_plan);
}