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

require 'flowtestbase'


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

    #def setup
    #end

    #def teardown
    #end

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

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

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

    def test_unset_3
        dotest(
            '''
<process-definition name="n" revision="0">
    <sequence>
        <set variable="//x" value="y" />
        <print>set ${x}</print>
        <unset variable="//x" />
        <print>unset ${x}</print>
    </sequence>
</process-definition>
            '''.strip, 
            "set y\nunset")
            #true)
    end

    def test_unset_4
        dotest(
            '''
<process-definition name="n" revision="0">
    <sequence>
        <set variable="/x" value="y" />
        <print>set ${x}</print>
        <unset variable="x" />
        <print>unset ${x}</print>
    </sequence>
</process-definition>
            '''.strip, 
            "set y\nunset")
            #true)
    end

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

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

    def test_set_a1
        dotest(
'''<process-definition name="set_a1" revision="0">
    <sequence>
        <set variable="x">
            <equals value="a" other-value="a" />
        </set>
        <print>${x}</print>
    </sequence>
</process-definition>''', 
            'true')
    end

    def test_set_a1f
        dotest(
'''<process-definition name="set_a1f" revision="0">
    <sequence>
        <set variable="x">
            <equals value="a" other-value="${x}" />
        </set>
        <print>${x}</print>
    </sequence>
</process-definition>''', 
            'false')
    end

    def test_set_with_nested_string_0
        dotest(
'''<process-definition name="set_a1f" revision="0">
    <sequence>
        <set variable="x">
            ${r:"1234".reverse}
        </set>
        <print>${x}</print>
    </sequence>
</process-definition>''', 
            '4321')
    end

    def test_set_with_nested_string_1
        dotest(
'''<process-definition name="set_a1f" revision="0">
    <sequence>
        <set field="x">
            ${r:"1234".reverse}
        </set>
        <print>${f:x}</print>
    </sequence>
</process-definition>''', 
            '4321')
    end

end