#
# Testing OpenWFEru
#
# John Mettraux at openwfe.org
#
# Mon Dec 25 14:27:48 JST 2006
#

require 'flowtestbase'


class FlowTest7 < FlowTestBase

    #def setup
    #end

    #def teardown
    #end

    def test_test_name
        dotest(\
"""<process-definition name='#{test_name}' revision='0'>
    <print>#{test_name}</print>
</process-definition>""", "test_test_name")
    end

    #def test_lose_0
    def xxxx_lose_0
        dotest(\
'<process-definition name="'+test_name+'''" revision="0">
    <sequence>

        <concurrence count="1">
            <lose>
                <sequence>
                    <sleep for="2s" />
                    <print>I should not be printed</print>
                </sequence>
            </lose>
            <sequence>
                <print>ok</print>
            </sequence>
        </concurrence>

        <print>- - -</print>

        <concurrence count="1">
            <lose>
                <sequence>
                    <print>ok too</print>
                    <set variable="v0" value="true" />
                </sequence>
            </lose>
            <sequence>
                <sleep for="252" />
                    <!-- 250 or less is bad : the default scheduler precision
                         is 1/4 of second -->
                <print>ok</print>
            </sequence>
        </concurrence>

        <print>v0 : ${v0}</print>
        <if>
            <equals field-value="v0" other-value="true" />
            <print>ok</print>
        </if>

        <print>- - -</print>

        <concurrence count="1">
            <lose>
                <sequence>
                    <sleep for="252" />
                    <print>ok too</print>
                    <set variable="v1" value="true" />
                </sequence>
            </lose>
            <sequence>
                <print>ok</print>
            </sequence>
        </concurrence>

        <print>v1 : ${v1}</print>
        <if>
            <equals field-value="v1" other-value="true" />
            <print>ok</print>
        </if>

        <print>done.</print>

    </sequence>
</process-definition>''', """ok
- - -
ok too
ok
v0 : true
ok
- - -
ok
v1 : 
done.""", 9)
    end

    def test_lose_1
    #def xxxx_lose_1
        dotest(\
'<process-definition name="'+test_name+'''" revision="0">
    <concurrence
        count="1"
    >
        <lose>
            <print>a</print>
        </lose>
        <print>b</print>
    </concurrence>
</process-definition>''', 
[ "a", "b" ], 
0.1 )
    end

end