ruote 0.9.18

data/test/ft_49_condition.rb

@@ -0,0 +1,126 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest49 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCondition49a0 < OpenWFE::ProcessDefinition
+        sequence do
+            _if :test => "false"
+            _print "0 ${f:__result__}"
+            _if :test => "true; false"
+            _print "1 ${f:__result__}"
+            _if :test => "false; true"
+            _print "2 ${f:__result__}"
+            #_if :test => "print ''; true"
+            _if :test => "''; true"
+            _print "3 ${f:__result__}"
+            #_if :test => "begin print ''; end; true"
+            _if :test => "begin ''; end; true"
+            _print "4 ${f:__result__}"
+
+            unset :field => "__result__"
+
+            _if :test => "true == "
+            _print "5 ${f:__result__}"
+            _if :test => " == true"
+            _print "6 ${f:__result__}"
+        end
+    end
+
+    def test_0
+
+        dotest(
+            TestCondition49a0,
+            [ "0 false",
+              "1 false",
+              "2 true",
+              "3 true",
+              "4 true",
+              "5 false",
+              "6 false" ].join("\n"))
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCondition49a1 < OpenWFE::ProcessDefinition
+        sequence do
+            _if :test => "true and false and false"
+            _print "0 ${f:__result__}"
+            _if :rtest => "true and true and true"
+            _print "1 ${f:__result__}"
+            _if :rtest => "false or false or true"
+            _print "2 ${f:__result__}"
+        end
+    end
+
+    def test_1
+
+        dotest(
+            TestCondition49a1,
+            [ "0 false", "1 true", "2 true" ].join("\n"))
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestCondition49a2 < OpenWFE::ProcessDefinition
+        sequence do
+            _if :test => "true"
+            _print "0 ${f:__result__}"
+            _if :not => "false"
+            _print "1 ${f:__result__}"
+            _if :rnot => "1 > 3"
+            _print "2 ${f:__result__}"
+
+            unset :field => "__result__"
+
+            _if :rnot => "1 > -1"
+            _print "3 ${f:__result__}"
+
+            _if :rtest => "workitem.is_a?(String)"
+            _print "4 ${f:__result__}"
+
+            _if :rtest => "wi.is_a?(InFlowWorkItem)"
+            _print "5 ${f:__result__}"
+        end
+    end
+
+    def test_2
+
+        dotest(
+            TestCondition49a2,
+            [ "0 true",
+              "1 true",
+              "2 true",
+              "3 false",
+              "4 false",
+              "5 true" ].join("\n"))
+    end
+
+end
+

data/test/ft_4_misc.rb

@@ -0,0 +1,237 @@
+
+#
+# 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
+
+    class TestPrint1 < OpenWFE::ProcessDefinition
+        sequence do
+            _set :v => "toto", :value => '0'
+            _print "${toto}"
+            _print "${toto}", :escape => false
+            _print "${toto}", :escape => true
+        end
+    end
+    def test_print_1
+        dotest TestPrint1, "0\n0\n${toto}"
+    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\n2", "hello\n1" ]
+    end
+
+    class Reval5 < OpenWFE::ProcessDefinition
+        sequence do
+            reval """
+                wi.customer_name = 'dubious'
+                'surf'
+            """
+            _print "${f:__result__}"
+            _print "${f:customer_name}"
+        end
+    end
+
+    def test_reval_5
+        dotest Reval5, "surf\ndubious"
+    end
+
+    class Reval6 < OpenWFE::ProcessDefinition
+        sequence do
+            set :field => "f0", :value => "3 + 2 + 2"
+            set :field => "f1" do
+                reval :field_code => "f0"
+            end
+            _print "${f:f1}"
+
+            set :variable => "v0", :value => "5 - 5"
+            set :variable => "v1" do
+                reval :variable_code => "v0"
+            end
+            _print "${v1}"
+        end
+    end
+
+    def test_reval_6
+        #log_level_to_debug
+        dotest Reval6, "7\n0"
+    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
+
+    class TestSetEscape0 < OpenWFE::ProcessDefinition
+        sequence do
+            _set :v => "t0" do
+                "This is ${my template}"
+            end
+            _set :v => "t1", :escape => true do
+                "This is ${my template}"
+            end
+            _set :v => "t2", :val => "This is ${my template}", :escape => "true"
+            peek
+            #_print { v "t0" }
+            #_print { v "t1" }
+        end
+    end
+    def test_set_escape_0
+        @engine.register_participant :peek do |fexp, wi|
+            @tracer << fexp.get_environment.variables['t0']
+            @tracer << "\n"
+            @tracer << fexp.get_environment.variables['t1']
+            @tracer << "\n"
+            @tracer << fexp.get_environment.variables['t2']
+            @tracer << "\n"
+        end
+        dotest(
+            TestSetEscape0, 
+            "This is \nThis is ${my template}\nThis is ${my template}")
+    end
+
+end
+

data/test/ft_50_xml_attribute.rb

@@ -0,0 +1,155 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+# Pat at geobliki.com
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/orest/xmlcodec'
+require 'rutest_utils'
+
+
+class FlowTest50 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # A Test by Pat Cappelaere
+    #
+
+    PAT_XML = <<END
+<?xml version="1.0" encoding="UTF-8"?>
+<sps:GetFeasibilityRequestResponse xmlns:gml="http://www.opengis.net/gml"
+xmlns:sps="http://www.opengis.net/sps" xmlns="">
+  <sps:Feasibility status="feasible" id="106">
+    <DOY>106</DOY>
+    <UTC>2007-04-16 09:20:00</UTC>
+    <SZA>27.41</SZA>
+    <TYPE>NADIR</TYPE>
+    <PATH>52</PATH>
+    <ROW>186</ROW>
+    <COST>2600.85</COST>
+    <![CDATA[
+        <blah/>boum
+    ]]>
+    <sps:LatestResponseTime>
+      <gml:TimeInstant>
+        <gml:timePosition>2007-04-16T09:20:00Z</gml:timePosition>
+      </gml:TimeInstant>
+    </sps:LatestResponseTime>
+  </sps:Feasibility>
+</sps:GetFeasibilityRequestResponse>
+END
+
+    class TestXmlAttribute50a0 < OpenWFE::ProcessDefinition
+        sequence do
+            geo_0
+            geo_1
+        end
+    end
+
+    def test_0
+
+        doc0 = nil
+        doc1 = nil
+    
+        @engine.register_participant :geo_0 do |fei, workitem|
+            doc0 = REXML::Document.new(PAT_XML)
+            workitem.attributes['xml'] = doc0
+            @tracer << "0\n"
+        end
+    
+        @engine.register_participant :geo_1 do |fei, workitem|
+            doc1 = workitem.attributes['xml']
+            @tracer << "1\n"
+        end
+
+        dotest(TestXmlAttribute50a0, "0\n1")
+
+        assert_equal doc0.to_s, doc1.to_s
+    end
+
+    def test_1
+
+        doc0 = REXML::Document.new PAT_XML
+        doc1 = OpenWFE::fulldup(doc0)
+
+        assert_not_equal doc0.object_id, doc1.object_id
+
+        assert_equal doc0.to_s, doc1.to_s
+    end
+
+    #
+    # Against bug #10150
+    #
+    #def test_2
+    #    workitem = OpenWFE::InFlowWorkItem.new
+    #    workitem.fei = new_fei
+    #    workitem.result = REXML::Document.new PAT_XML
+    #    s = OpenWFE::XmlCodec::encode workitem
+    #    #puts s
+    #    w = OpenWFE::XmlCodec::decode s
+    #    w.attributes.delete '___map_type'
+    #    #puts workitem.to_s
+    #    #puts
+    #    #puts w.to_s
+    #    assert_equal workitem.to_s, w.to_s
+    #end
+
+    def test_3
+
+        workitem = OpenWFE::InFlowWorkItem.new
+        workitem.fei = new_fei
+
+        workitem.result = REXML::Document.new(
+            PAT_XML, :compress_whitespace=>:all, :ignore_whitespace_nodes=>:all)
+
+        workitem.result = workitem.result.root
+
+        s = OpenWFE::XmlCodec::encode workitem
+
+        #puts s
+
+        w = OpenWFE::XmlCodec::decode s
+        w.attributes.delete '___map_type'
+
+        workitem.attributes.delete '___map_type'
+
+        #puts workitem.to_s
+        #puts
+        #puts w.to_s
+
+        assert_equal workitem.to_s, w.to_s
+    end
+
+   def test_4
+
+        doc0 = nil
+        doc1 = nil
+    
+        @engine.register_participant :geo_0 do |fei, workitem|
+            doc0 = REXML::Document.new(PAT_XML).root
+            workitem.attributes['xml'] = doc0
+            @tracer << "0\n"
+        end
+    
+        @engine.register_participant :geo_1 do |fei, workitem|
+            doc1 = workitem.attributes['xml']
+            @tracer << "1\n"
+        end
+
+        dotest(TestXmlAttribute50a0, "0\n1")
+
+        assert_equal doc0.to_s, doc1.to_s
+   end
+   
+end
+