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

require 'flowtestbase'


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

    #def setup
    #end

    #def teardown
    #end

    def test_cursor_0
        dotest(\
'<process-definition name="'+name_of_test+'''" revision="0">
    <cursor>
        <print>a</print>
        <print>b</print>
    </cursor>
</process-definition>''', 
"""a
b""")
    end

    def test_cursor_1
        dotest(\
'<process-definition name="'+name_of_test+'''" revision="0">
    <cursor>
        <print>a</print>
        <print>b</print>
        <cancel />
        <print>c</print>
    </cursor>
</process-definition>''', 
"""a
b""")
    end

    def test_cursor_2
        dotest(\
'<process-definition name="'+name_of_test+'''" revision="0">
    <cursor>
        <print>a</print>
        <print>b</print>
        <skip step="2" />
        <print>c</print>
    </cursor>
</process-definition>''', 
"""a
b""")
    end

    def test_cursor_2b
        #
        # ZigZag test
        #
        dotest(\
'<process-definition name="'+name_of_test+'''" revision="0">
    <cursor>
        <print>a</print>
        <skip step="3" />
        <print>b</print>
        <skip step="2" />
        <back step="2"/>
        <print>c</print>
    </cursor>
</process-definition>''', 
"""a
b
c""")
    end

    def test_cursor_3
        dotest(\
'<process-definition name="'+name_of_test+'''" revision="0">
    <cursor>
        <print>a</print>
        <skip step="2" />
        <print>b</print>
        <print>c</print>
    </cursor>
</process-definition>''', 
"""a
c""")
    end

    def test_cursor_4
        dotest(\
'<process-definition name="'+name_of_test+'''" revision="0">
    <sequence>
        <cursor>
            <print>a</print>
            <set field="__cursor_command__" value="skip 2" />
            <print>b</print>
            <print>c</print>
        </cursor>
        <print>d</print>
    </sequence>
</process-definition>''', 
"""a
c
d""")
    end

end