#
# Testing OpenWFE
#
# John Mettraux at openwfe.org
#
# Tue Jan  2 13:14:37 JST 2007
#

require 'flowtestbase'


class FlowTest10 < FlowTestBase

    #def setup
    #end

    #def teardown
    #end

    def test_loop_0

        s = ""
        0.upto(9) do |i|
            s << i.to_s
            s << "\n"
        end
        s = s.strip()

        dotest(\
'<process-definition name="'+test_name+'''" revision="0">
    <sequence>
        <reval>$i = 0</reval>
        <loop>
            <print>${r:$i}</print>
            <reval>$i = $i + 1</reval>
            <if>
                <equals value="${r:$i}" other-value="10" />
                <break/>
            </if>
        </loop>
    </sequence>
</process-definition>''', 
        s)
    end

end