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

require 'flowtestbase'


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

    #def setup
    #end

    #def teardown
    #end

    def test_print_0
        dotest(\
'''<process-definition name="print_0" revision="0">
    <sequence>
        <print escape="true">${f:xxx}</print>
    </sequence>
</process-definition>''', "${f:xxx}")
    end

    def test_reval_0
        dotest(\
'''<process-definition name="reval_0" revision="0">
    <sequence>
        <reval><![CDATA[
            workitem.attributes["from_ruby"] = "ok"
        ]]></reval>
        <print>${f:from_ruby}</print>
    </sequence>
</process-definition>''', "ok")
    end

    def test_reval_1
        dotest(\
'''<process-definition name="reval_1" revision="0">
    <sequence>
        <set variable="field-name" value="from_ruby" />
        <reval>
            workitem.attributes["${field-name}"] = "ok"
        </reval>
        <print>${f:${field-name}}</print>
    </sequence>
</process-definition>''', "ok")
    end

    def test_reval_2
        dotest(\
'''<process-definition name="reval_2" revision="0">
    <sequence>
        <set variable="field-value" value="ok" />
        <reval>
            workitem.attributes["from_ruby"] = "${field-value}"
        </reval>
        <print>${f:from_ruby}</print>
    </sequence>
</process-definition>''', "ok")
    end

    def test_reval_3
        dotest(\
'''<process-definition name="reval_3" revision="0">
    <sequence>
        <set variable="v">
            <reval code="1 == 2" />
        </set>
        <print>${v}</print>
    </sequence>
</process-definition>''', "false")
    end
    
    class Reval4 < OpenWFE::ProcessDefinition
        reval """
            tracer = self.application_context['__tracer']

            tracer << 'hello\n'

            tracer << workitem.attributes.length.to_s
        """
    end

    def test_reval_4
        dotest(Reval4, "hello\n1")
    end

    class Reval5 < OpenWFE::ProcessDefinition
        sequence do
            reval """
                wi.customer_name = 'dubious'
                'surf'
            """
            _print "${f:customer_name}"
            _print "${f:__result__}"
        end
    end

    def test_reval_5
        dotest Reval5, "dubious\nsurf"
    end

    #
    # DRU tests

    def test_dru_0
        dotest(\
'''<process-definition name="dru_0" revision="0">
    <sequence>
        <print>${r:1+2}</print>
    </sequence>
</process-definition>''', "3")
    end

    def test_dru_1
        dotest(\
'''<process-definition name="dru_1" revision="0">
    <sequence>
        <print>${r:"x"*3}</print>
    </sequence>
</process-definition>''', "xxx")
    end

    def test_dru_2
        dotest(\
'''<process-definition name="dru_2" revision="0">
    <sequence>
        <set 
            variable="v" 
            value="${r:5*2}"
        />
        <print>${v}</print>
    </sequence>
</process-definition>''', "10")
    end

    def test_dru_3
        dotest(\
'''<process-definition name="dru_3" revision="0">
    <sequence>
        <set variable="w" value="W" />
        <set variable="v">
            <!--
            <reval>self.lookup_variable("w") * 3</reval>
            <reval>lookup_variable("w") * 3</reval>
            -->
            <reval>"W" * 3</reval>
        </set>
        <print>${v}</print>
    </sequence>
</process-definition>''', "WWW")
    end

    def test_dru_4
        dotest(\
'''<process-definition name="dru_4" revision="0">
    <sequence>
        <set variable="v">
            <reval>fei.workflow_definition_name</reval>
        </set>
        <print>${v}</print>

        <print>${r:fei.workflow_definition_name}</print>
    </sequence>
</process-definition>''', """dru_4
dru_4""")
    end

end