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

require 'flowtestbase'


class FlowTest16 < Test::Unit::TestCase
    include FlowTestBase

    #def setup
    #end

    #def teardown
    #end

    def test_fqv_0
        dotest(
'''<process-definition name="n" revision="0">
    <sequence>
        <set variable="x"><q>y</q></set>
        <print>x is "${x}"</print>
    </sequence>
</process-definition>''', 
'x is "y"')
    end

    def test_fqv_1
        dotest(
'''<process-definition name="n" revision="0">
    <sequence>
        <set variable="x0"><q>y0</q></set>
        <set variable="x1"><v>x0</v></set>
        <print>x1 is "${x1}"</print>
    </sequence>
</process-definition>''', 
'x1 is "y0"')
    end

    def test_fqv_2
        dotest(
'''<process-definition name="n" revision="0">
    <sequence>
        <set field="x0"><q>y0</q></set>
        <set variable="x1"><f>x0</f></set>
        <print>x1 is "${x1}"</print>
    </sequence>
</process-definition>''', 
'x1 is "y0"')
    end

    class Fqv3 < OpenWFE::ProcessDefinition
        sequence do
            _set :f => "x0" do
                _q "y0"
            end
            _set :v => "x1" do
                _f "x0"
            end
            _print "x1 is \"${x1}\""
        end
    end
    def test_fqv_3
        dotest(Fqv3, 'x1 is "y0"')
    end

end