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

require 'flowtestbase'


class FlowTest1 < 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>''', 'set y y
unset')
    end

    def test_unset_1
        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
unset')
    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
unset 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>''', 'set y
unset')
    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>''', 'set y
unset')
    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
unset y')
    end

    def test_unset_6
        dotest(\
'''<process-definition name="unset_6" revision="0">
    <sequence>
        <set variable="/x" value="y" />
        <print>set ${x}</print>
        <sub0/>
        <print>unset ${x}</print>
    </sequence>
    <process-definition name="sub0">
        <unset variable="/x" />
    </process-definition>
</process-definition>''', 'set y
unset')
    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