openwferu 0.9.2 → 0.9.3

data/test/file_persistence_test.rb

@@ -51,38 +51,44 @@ class FilePersistenceTest < Test::Unit::TestCase
     protected 
     
         def test_persistence (fes, fe=nil) 
+
             fei = new_fei()
-            fes.remove(fei,nil) if(fes.has_key?(fei))
+            fes.delete(fei) if (fes.has_key?(fei))
             
             raw = 
                   if fe == nil 
-                    RawExpression.new(fei, 'parent', 'env', nil, nil) 
+                      RawExpression.new(fei, 'parent', 'env', nil, nil) 
                   else
-                    fe
+                      fe
                   end
-            assert (not fes.has_key?(fei)), "they key is present in the file system. Maybe a previous test did not delete the "
+
+            assert \
+                (not fes.has_key?(fei)), 
+                "they key is present in the file system. "+
+                "Maybe a previous test did not delete the "
             
             fes[fei]=raw
             assert fes.has_key?(fei)
             
             loaded = fes[fei]
             
-            fes.remove(fei,nil)
+            fes.delete(fei)
             assert !(fes.has_key?(fei))
             return loaded
         end
         
         def new_fei (definition_name = nil)
+
             fei = OpenWFE::FlowExpressionId.new()
             fei.owfe_version = OPENWFE_VERSION
             fei.engine_id = 'this'
             fei.initial_engine_id = 'that'
             fei.workflow_definition_url = 'http://test/test.xml'
             fei.workflow_definition_name = if definition_name == nil 
-                                                                          'test' 
-                                                                        else
-                                                                           definition_name
-                                                                        end
+                'test' 
+            else
+                 definition_name
+            end
             fei.workflow_definition_revision = '1.0'
             fei.workflow_instance_id = '1234568'
             fei.expression_name = 'do-test'

data/test/flowtestbase.rb

@@ -1,4 +1,4 @@
-#
+#_
 # Testing OpenWFE
 #
 # John Mettraux at openwfe.org
@@ -40,8 +40,9 @@ class FlowTestBase < Test::Unit::TestCase
         @engine.application_context["__tracer"] = @tracer
     end
 
-    #def teardown
-    #end
+    def teardown
+        @engine.stop
+    end
 
     def default_test ()
         assert true
@@ -66,6 +67,10 @@ class FlowTestBase < Test::Unit::TestCase
                 @tracer << "\n"
             end
 
+            @engine.register_participant('p-toto') do |workitem|
+                @tracer << "toto"
+            end
+
 #            @engine.register_participant(
 #                'eno', 
 #                EmailNotificationParticipant.new(
@@ -113,8 +118,9 @@ class FlowTestBase < Test::Unit::TestCase
             end
 
 
-            exp_storage = \
-                engine.application_context[S_EXPRESSION_STORAGE]
+            #exp_storage = \
+            #    engine.application_context[S_EXPRESSION_STORAGE]
+            exp_storage = engine.get_expression_storage
 
             if allowRemainingExpressions
                 exp_storage.purge

data/test/ft_0.rb

@@ -61,5 +61,13 @@ class FlowTest0 < FlowTestBase
 </process-definition>''', 'X')
     end
 
+    def test_empty_pool
+        dotest(\
+'''<process-definition name="n" revision="0">
+    <print>ok</print>
+    <print>nok</print>
+</process-definition>''', "ok")
+    end
+
 end
 

data/test/ft_10_loop.rb

@@ -10,6 +10,14 @@
 require 'flowtestbase'
 
 
+$s = ""
+0.upto(9) do |i|
+    $s << i.to_s
+    $s << "\n"
+end
+$s = $s.strip()
+
+
 class FlowTest10 < FlowTestBase
 
     #def setup
@@ -19,15 +27,7 @@ class FlowTest10 < FlowTestBase
     #end
 
     def test_loop_0
-
-        s = ""
-        0.upto(9) do |i|
-            s << i.to_s
-            s << "\n"
-        end
-        s = s.strip()
-
-        dotest(\
+        dotest(
 '<process-definition name="'+test_name+'''" revision="0">
     <sequence>
         <reval>$i = 0</reval>
@@ -41,7 +41,69 @@ class FlowTest10 < FlowTestBase
         </loop>
     </sequence>
 </process-definition>''', 
-        s)
+        $s)
+    end
+
+    def test_loop_1
+        dotest(
+'<process-definition name="'+test_name+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <print>${r:$i}</print>
+            <reval>$i = $i + 1</reval>
+            <if rtest="$i == 10">
+                <break/>
+            </if>
+        </loop>
+    </sequence>
+</process-definition>''', 
+        $s)
+    end
+
+    def test_loop_2
+        dotest(
+'<process-definition name="'+test_name+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <print>${r:$i}</print>
+            <reval>$i = $i + 1</reval>
+            <break if="${r:$i} == 10" />
+        </loop>
+    </sequence>
+</process-definition>''', 
+        $s)
+    end
+
+    def test_loop_3
+        dotest(
+'<process-definition name="'+test_name+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <print>${r:$i}</print>
+            <reval>$i = $i + 1</reval>
+            <break if="${r:$i == 10}" />
+        </loop>
+    </sequence>
+</process-definition>''', 
+        $s)
+    end
+
+    def test_loop_4
+        dotest(
+'<process-definition name="'+test_name+'''" revision="0">
+    <sequence>
+        <reval>$i = 0</reval>
+        <loop>
+            <print>${r:$i}</print>
+            <reval>$i = $i + 1</reval>
+            <break rif="$i == 10" />
+        </loop>
+    </sequence>
+</process-definition>''', 
+        $s)
     end
 
 end

data/test/ft_11_ppd.rb

@@ -288,5 +288,54 @@ b""")
 2""")
     end
 
+
+    #
+    # Test 7
+    #
+
+    class TestDefinition7 < ProcessDefinition
+        def make
+            _process_definition :name => "test7", :revision => "0" do
+                _sequence do
+                    _print "a"
+                    _print "b"
+                end
+            end
+        end
+    end
+
+    def test_ppd_7
+    #def xxxx_ppd_7
+
+        dotest(
+            TestDefinition7,
+            """a
+b""")
+    end
+
+
+    #
+    # Test 8
+    #
+
+    class TestDefinition8 < ProcessDefinition
+        def make
+            process_definition :name => "test8", :revision => "0" do
+                toto
+                process_definition :name => "toto" do
+                    _print "toto"
+                end
+            end
+        end
+    end
+
+    def test_ppd_8
+    #def xxxx_ppd_8
+
+        dotest(
+            TestDefinition8,
+            "toto")
+    end
+
 end
 

data/test/ft_17_condition.rb

@@ -0,0 +1,83 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest17 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_condition_0
+        dotest(\
+'''<process-definition name="con" revision="0">
+    <if test="a == a">
+        <print>ok</print>
+    </if>
+</process-definition>''', "ok")
+    end
+
+    def test_condition_1
+        dotest(\
+'''<process-definition name="con" revision="0">
+    <if test="a == b">
+        <print>ok</print>
+    </if>
+</process-definition>''', "")
+    end
+
+    def test_condition_2
+        dotest(\
+'''<process-definition name="con" revision="0">
+    <sequence>
+        <set field="toto" value="nada" />
+        <if test="${f:toto} == nada">
+            <print>ok</print>
+        </if>
+    </sequence>
+</process-definition>''', "ok")
+    end
+
+    def test_condition_3
+        dotest(\
+'''<process-definition name="con" revision="0">
+    <sequence>
+        <set field="toto" value="true" />
+        <if test="${f:toto}">
+            <print>ok</print>
+        </if>
+    </sequence>
+</process-definition>''', "ok")
+    end
+
+    def test_condition_4
+        dotest(\
+'''<process-definition name="con" revision="0">
+    <if rtest="1+2 == 3">
+        <print>ok</print>
+    </if>
+</process-definition>''', "ok")
+    end
+
+    def test_condition_5
+        dotest(\
+'''<process-definition name="con" revision="0">
+    <if test="1+2 == 3">
+        <print>ok</print>
+        <print>nok</print>
+    </if>
+</process-definition>''', "nok")
+    end
+
+end
+

data/test/ft_18_pname.rb

@@ -0,0 +1,59 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'flowtestbase'
+require 'openwfe/expressions/raw_prog'
+
+include OpenWFE
+
+
+class FlowTest18 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            _process_definition :name => "test0", :revision => "0" do
+                p_toto
+            end
+        end
+    end
+
+    def test_0
+    #def xxxx__0
+
+        dotest(
+            TestDefinition0,
+            "toto")
+    end
+
+
+    #
+    # Test 1
+    #
+
+    def test_1
+    #def xxxx_1
+
+        dotest(\
+"""<process-definition name='test1' revision='0'>
+    <p-toto/>
+</process-definition>""", "toto")
+    end
+
+end
+

data/test/hparticipant_test.rb

@@ -0,0 +1,96 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 15:41:44 JST 2006
+#
+# Kita Yokohama
+#
+
+require 'test/unit'
+
+#require 'openwfe/workitem'
+require 'openwfe/flowexpressionid'
+require 'openwfe/engine/engine'
+require 'openwfe/expressions/raw_prog'
+require 'openwfe/worklist/storeparticipant'
+
+include OpenWFE
+
+
+class HParticipantTest < Test::Unit::TestCase
+
+    def setup
+        @engine = Engine.new()
+    end
+
+    #def teardown
+    #end
+
+    class HpDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "hp0", :revision => "0" do
+                sequence do
+                    participant :alice
+                    participant :bob
+                end
+            end
+        end
+    end
+
+    def test_hp_0
+
+        hpAlice = HashParticipant.new
+        hpBob = HashParticipant.new
+
+        @engine.register_participant(:alice, hpAlice)
+        @engine.register_participant(:bob, hpBob)
+
+        id = @engine.launch(HpDefinition0)
+
+        assert \
+            (id.kind_of? FlowExpressionId),
+            "engine.launch() doesn't return an instance of FlowExpressionId "+
+            "but of #{id.class}"
+
+        #puts id.to_s
+
+        assert \
+            hpBob.size == 0
+        assert \
+            hpAlice.size == 1
+
+        wi = hpAlice.list_workitems(id.workflow_instance_id)[0]
+
+        assert \
+            wi != nil,
+            "didn't find wi for flow #{id.workflow_instance_id}"
+
+        wi.message = "Hello bob !"
+
+        hpAlice.forward(wi)
+
+        assert \
+            hpAlice.size == 0
+        assert \
+            hpBob.size == 1
+
+        wi = hpBob.list_workitems(id.workflow_instance_id)[0]
+
+        assert \
+            wi.message == "Hello bob !"
+
+        hpBob.proceed(wi)
+
+        assert \
+            hpAlice.size == 0
+        assert \
+            hpBob.size == 0
+
+        assert \
+            @engine.get_expression_storage.size == 1
+    end
+
+end
+