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

require 'flowtestbase'


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

    #def setup
    #end

    #def teardown
    #end

    def test_equals_0
        dotest(\
'''<process-definition name="equals_0" revision="0">
    <sequence>
        <equals value="a" other-value="a" />
        <print>${field:__result__}</print>
    </sequence>
</process-definition>''', "true")
    end

    def test_equals_1
        dotest(\
'''<process-definition name="equals_1" revision="0">
    <sequence>
        <equals value="a" other-value="b" />
        <print>${field:__result__}</print>
    </sequence>
</process-definition>''', "false")
    end

    def test_if_0
        dotest(\
'''<process-definition name="if_0" revision="0">
    <if>
        <equals value="a" other-value="a" />
        <print>ok</print>
    </if>
</process-definition>''', "ok")
    end

    def test_if_1
        dotest(\
'''<process-definition name="if_1" revision="0">
    <if>
        <equals value="a" other-value="a" />
        <print>ok</print>
        <print>nok</print>
    </if>
</process-definition>''', "ok")
    end

    def test_if_2
        dotest(\
'''<process-definition name="if_2" revision="0">
    <if>
        <equals value="a" other-value="b" />
        <print>nok</print>
    </if>
</process-definition>''', "")
    end

    def test_if_3
        dotest(\
'''<process-definition name="if_3" revision="0">
    <if>
        <equals value="a" other-value="b" />
        <print>nok</print>
        <print>ok</print>
    </if>
</process-definition>''', "ok")
    end

    def test_equals_0
        dotest(\
'<process-definition name="'+name_of_test+'''" revision="0">
    <sequence>
        <set field="a" value="true" />
        <print>${f:a}</print>
        <if>
            <equals field-value="a" other-value="true" />
            <print>true</print>
            <print>bad test_equals_0</print>
        </if>
    </sequence>
</process-definition>''', 
"""true
true""")
    end

    def test_equals_1
        dotest(\
'<process-definition name="'+name_of_test+'''" revision="0">
    <sequence>
        <set variable="a" value="true" />
        <print>${a}</print>
        <if>
            <equals variable-value="a" other-value="true" />
            <print>true</print>
            <print>bad test_equals_1</print>
        </if>
    </sequence>
</process-definition>''', 
"""true
true""")
    end

end