#
# Testing OpenWFEru
#
# John Mettraux at openwfe.org
#
# Mon Oct  9 22:19:44 JST 2006
#

require 'flowtestbase'


class FlowTest0 < FlowTestBase

    #def setup
    #end

    #def teardown
    #end

    def test_print
        dotest(\
'''<process-definition name="n" revision="0">
    <print>ok</print>
</process-definition>''', "ok")
    end

    def test_participant
        dotest(\
'''<process-definition name="n" revision="0">
    <participant ref="test-alpha" />
</process-definition>''', "test-alpha")
    end

    def test_sequence
        dotest(\
'''<process-definition name="n" revision="0">
    <sequence>
        <print>a</print>
        <print>b</print>
    </sequence>
</process-definition>''', '''a
b''')
    end

    def test_dollar_notation_0
        dotest(\
'''<process-definition name="n" revision="0">
    <sequence>
        <set variable="x" value="y" />
        <print>${x} ${v:x}</print>
    </sequence>
</process-definition>''', 'y y')
    end

    def test_dollar_notation_1
        dotest(\
'''<process-definition name="n" revision="0">
    <sequence>
        <set field="x" value="y" />
        <print>${f:x} ${field:x}</print>
    </sequence>
</process-definition>''', 'y y')
    end

    def test_dollar_notation_2
        dotest(\
'''<process-definition name="n" revision="0">
    <sequence>
        <print>${f:x}X${field:x}</print>
    </sequence>
</process-definition>''', 'X')
    end

    def test_subprocess_ref_0
        dotest(\
'''<process-definition name="subtest0" revision="0">

    <subprocess ref="sub0" />

    <process-definition name="sub0">
        <print>ok</print>
    </process-definition>

</process-definition>''', 'ok')
    end

    def test_subprocess_ref_1
        dotest(\
'''<process-definition name="subtest0" revision="0">

    <sequence>
        <subprocess ref="sub0" />
        <subprocess ref="sub0" />
    </sequence>

    <process-definition name="sub0">
        <print>ok</print>
    </process-definition>

</process-definition>''', '''ok
ok''')
    end

    def test_subprocess_ref_2
        dotest(\
'''<process-definition name="subtest0" revision="0">

    <sequence>
        <sub0 />
        <print>after</print>
    </sequence>

    <process-definition name="sub0">
        <print>ok</print>
    </process-definition>

</process-definition>''', '''ok
after''')
    end

    def test_subprocess_ref_3
        dotest(\
'''<process-definition name="subtest0" revision="0">

    <sequence>
        <set variable="v" value="out" />
        <sub0 />
        <print>after : ${v}</print>
    </sequence>

    <process-definition name="sub0">
        <sequence>
            <set variable="v" value="in" />
            <print>ok : ${v}</print>
        </sequence>
    </process-definition>

</process-definition>''', '''ok : in
after : out''')
    end

    def test_subprocess_ref_4
        dotest(\
'''<process-definition name="subtest0" revision="0">

    <sequence>
        <subprocess ref="sub0" a="A" b="B" c="C" />
        <sub0 a="A" b="B" c="C" />
    </sequence>

    <process-definition name="sub0">
        <print>${a}${b}${c}</print>
    </process-definition>

</process-definition>''', '''ABC
ABC''')
    end

end