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

require 'flowtestbase'


class FlowTest0 < Test::Unit::TestCase
    include 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_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_empty_pool
        dotest(\
'''<process-definition name="n" revision="0">
    <print>ok</print>
    <print>nok</print>
</process-definition>''', "ok")
    end

end