openwferu 0.9.7 → 0.9.8

data/test/ft_23c_wait.rb

@@ -0,0 +1,87 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+
+class FlowTest23c < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Wait0c < ProcessDefinition
+        sequence do
+            concurrence do
+                sequence do
+                    wait :until => "${done} == true", :frequency => "2s"
+                    _print "after when"
+                end
+                sequence do
+                    _sleep "1s"
+                    _print "before done"
+                    _set :variable => "done", :value => "true"
+                end
+            end
+            _print "over"
+        end
+    end
+
+    def test_0
+        dotest(
+            Wait0c, 
+            """before done
+after when
+over""", 
+        true)
+    end
+
+    #
+    # Test 1
+    #
+
+    class Wait1c < ProcessDefinition
+        sequence do
+            concurrence do
+                sequence do
+                    wait :frequency => "2s" do
+                        equals :variable_value => "done", :other_value => "true"
+                    end
+                    _print "after when"
+                end
+                sequence do
+                    _sleep "1s"
+                    _print "before done"
+                    _set :variable => "done", :value => "true"
+                end
+            end
+            _print "over"
+        end
+    end
+
+    def test_1
+        dotest(
+            Wait1c, 
+            """before done
+after when
+over""", 
+        true)
+    end
+
+end
+

data/test/ft_2_concurrence.rb

@@ -37,7 +37,7 @@ class FlowTest2 < Test::Unit::TestCase
     </concurrence>
 </process-definition>''', 
             "a", 
-            0.03, 
+            true,
             false)
     end
 
@@ -53,7 +53,8 @@ class FlowTest2 < Test::Unit::TestCase
         <print>b</print>
     </concurrence>
 </process-definition>''', 
-            "b")
+            "b",
+            true)
     end
 
     #def xxxx_con_3
@@ -65,7 +66,8 @@ class FlowTest2 < Test::Unit::TestCase
         <set variable="over" value="true" />
     </concurrence>
 </process-definition>''', 
-            "a")
+            "a",
+            true)
     end
 
     #def xxxx_con_4
@@ -82,7 +84,7 @@ class FlowTest2 < Test::Unit::TestCase
 </process-definition>''', 
             """b
 a""", 
-            2)
+            true)
     end
 
     #def xxxx_con_5
@@ -99,26 +101,25 @@ a""",
 </process-definition>''', 
             """b
 a""", 
-            2)
+            true)
     end
 
     class TestDefinition6 < ProcessDefinition
-        def make
-            process_definition :name => "con", :revision => "6" do
-                concurrence :over_if => "1 == 1" do
-                    sequence do
-                        _sleep :for => "350"
-                        _print "a"
-                    end
-                    _print "b"
+        sequence do
+            concurrence :over_if => "1 == 1" do
+                sequence do
+                    _sleep :for => "350"
+                    _print "a"
                 end
+                _print "b"
             end
+            _print "c"
         end
     end
 
     #def xxxx_con_6
     def test_con_6
-        dotest(TestDefinition6, "b")
+        dotest(TestDefinition6, "b\nc")
     end
 
 end

data/test/ft_2b_concurrence.rb

@@ -101,7 +101,7 @@ class FlowTest2b < Test::Unit::TestCase
 true
 true
 true""", 
-            0.25)
+            true)
 
         dotest(
             TestDefinition1.new("highest", "mix"), 
@@ -109,7 +109,7 @@ true""",
 true
 true
 true""", 
-            0.25)
+            true)
 
         dotest(
             TestDefinition1.new("lowest", "override"), 
@@ -117,13 +117,13 @@ true""",
 
 
 true""", 
-            0.25)
+            true)
 
         dotest(
             TestDefinition1.new("highest", "override"), 
             """alpha
 true""", 
-            0.25)
+            true)
     end
 
     def test_rawprog

data/test/ft_32_journal.rb

@@ -28,15 +28,18 @@ class FlowTest32 < Test::Unit::TestCase
     # TEST 0
 
     class TestDefinition0 < ProcessDefinition
-        concurrence do
-        #sequence do
+        #concurrence do
+        sequence do
+            #set :variable => "//toto", :value => "nada"
             participant :alpha
             bravo
         end
     end
 
-    #def xxxx_flowname_0
-    def test_flowname_0
+    #def xxxx_journal_0
+    def test_journal_0
+
+        @engine.application_context[:keep_journals] = true
 
         @engine.init_service("journal", Journal)
 
@@ -51,9 +54,29 @@ class FlowTest32 < Test::Unit::TestCase
 
         journal_service = @engine.application_context["journal"]
 
-        fn = journal_service.workdir + "/" + fei.wfid + ".journal"
+        fn = journal_service.donedir + "/" + fei.wfid + ".journal"
+
+        #journal_service.analyze fn
+
+        #sleep(10)
+
+        assert_equal @engine.get_expression_storage.size, 1
+
+        journal_service.replay fn, 18
+            #
+            # replay at offset 18 without "refiring"
+            #
+            # flow waits
+
+        assert_equal @engine.get_expression_storage.size, 6
+
+        journal_service.replay fn, 18, true
+            #
+            # replay at offset 18 with "refiring"
+            #
+            # flow resumes
 
-        journal_service.replay fn
+        assert_equal @engine.get_expression_storage.size, 1
     end
 
 end

data/test/ft_32b_journal.rb

@@ -0,0 +1,76 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+require 'openwfe/expool/journal'
+
+
+
+class FlowTest32b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < ProcessDefinition
+        sequence do
+            participant :alpha
+            participant :bravo
+        end
+    end
+
+    #def xxxx_journal_0
+    def test_journal_0
+
+        #@engine.application_context[:keep_journals] = true
+
+        @engine.init_service "journal", Journal
+
+        @engine.register_participant(:alpha) do |wi|
+            @tracer << "alpha\n"
+            sleep(90)
+        end
+        @engine.register_participant(:bravo) do |wi|
+            @tracer << "bravo\n"
+        end
+
+        journal_service = @engine.application_context["journal"]
+
+        fei = dotest(TestDefinition0, "alpha\nbravo")
+
+        return
+
+        fn = journal_service.donedir + "/" + fei.wfid + ".journal"
+
+        #journal_service.analyze fn
+
+        #sleep(10)
+
+        assert_equal @engine.get_expression_storage.size, 1
+
+        journal_service.replay fn, 18
+
+        assert_equal @engine.get_expression_storage.size, 6
+
+        journal_service.replay fn, 18, true
+
+        assert_equal @engine.get_expression_storage.size, 1
+    end
+
+end
+

data/test/ft_36_subprocids.rb

@@ -0,0 +1,96 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest36 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestSubProcId0 < ProcessDefinition
+        concurrence do
+            subproc
+            subproc
+        end
+        process_definition :name => :subproc do
+            sequence do
+                #reval "puts fei"
+                check
+            end
+        end
+    end
+
+    class TestSubProcId1 < ProcessDefinition
+        concurrence do
+            subprocess :ref => "subproc"
+            subprocess :ref => :subproc
+        end
+        process_definition :name => :subproc do
+            sequence do
+                #reval "puts fei"
+                check
+            end
+        end
+    end
+
+    def test_subprocid_0
+
+        feis = {}
+
+        @engine.register_participant(:check) do |fexp, wi|
+            #puts fexp.fei.to_debug_s
+            feis[fexp.fei] = true
+        end
+
+        @engine.launch(TestSubProcId0)
+        @engine.launch(TestSubProcId1)
+
+        sleep 1
+
+        assert_equal feis.keys.size, 4
+    end
+
+
+    #
+    # TEST about Iterator
+
+    class TestIteratorSubId0 < ProcessDefinition
+        iterator :on_value => "a, b", :to_variable => "v" do
+            check
+        end
+    end
+
+    def test_iterator_subid_0
+
+        feis = {}
+
+        @engine.register_participant(:check) do |fexp, wi|
+            #puts fexp.fei.to_debug_s
+            feis[fexp.fei] = true
+        end
+
+        @engine.launch(TestIteratorSubId0)
+        #puts @tracer
+
+        assert_equal feis.keys.size, 2
+    end
+
+end
+

data/test/ft_37_pnames.rb

@@ -0,0 +1,55 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest37 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    DEF0 = '''
+<process-definition name="pnames" revision="0">
+    <sequence>
+        <participant ref="sps" />
+        <participant ref="sps_1" />
+    </sequence>
+</process-definition>
+'''.strip
+
+    class TestPnames1 < OpenWFE::ProcessDefinition
+        sequence do
+            participant :ref => "sps"
+            participant :ref => "sps_1"
+        end
+    end
+
+    def test_pnames
+
+        @engine.register_participant("sps") do |fexp, wi|
+            @tracer << "sps\n"
+        end
+        @engine.register_participant("sps_1") do |fexp, wi|
+            @tracer << "sps_1\n"
+        end
+
+        dotest(DEF0, "sps\nsps_1")
+
+        dotest(TestPnames1, "sps\nsps_1")
+    end
+
+end
+

data/test/ft_38_tag.rb

@@ -0,0 +1,128 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest38 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # test 0
+    #
+
+    class TestTag0 < OpenWFE::ProcessDefinition
+        concurrence do
+            sequence :tag => "seq0" do
+                _sleep "1s"
+                _print "hello"
+            end
+            _undo :ref => "seq0"
+            _print "blah"
+        end
+    end
+
+    def test_tag_0
+
+        dotest(TestTag0, "blah", true)
+    end
+
+
+    #
+    # test 1
+    #
+
+    class TestTag1 < OpenWFE::ProcessDefinition
+        concurrence do
+            sequence :tag => "seq0" do
+                count
+                _sleep "1s"
+                _print "hello"
+            end
+            _redo :ref => "seq0"
+            _print "blah"
+        end
+    end
+
+    #def xxxx_tag_1
+    def test_tag_1
+
+        count = 0
+
+        @engine.register_participant(:count) do
+            count += 1
+        end
+
+        dotest(TestTag1, "blah\nhello", true)
+
+        assert_equal count, 2
+    end
+
+
+    #
+    # test 2
+    #
+
+    class TestTag2 < OpenWFE::ProcessDefinition
+        sequence do
+            sequence :tag => "seq0" do
+                count
+                _print "hello"
+            end
+            _redo :ref => "seq0"
+            _print "blah"
+        end
+    end
+
+    #def xxxx_tag_2
+    def test_tag_2
+
+        count = 0
+
+        @engine.register_participant(:count) do
+            count += 1
+        end
+
+        dotest(TestTag2, "hello\nblah", true)
+
+        assert_equal count, 1
+    end
+
+
+    #
+    # test 3
+    #
+
+    class TestTag3 < OpenWFE::ProcessDefinition
+        sequence do
+            sequence :tag => "seq0" do
+                _print "1"
+                undo :ref => "seq0"
+                _print "2"
+            end
+            _print "3"
+        end
+    end
+
+    #def xxxx_tag_3
+    def test_tag_3
+
+        dotest TestTag3, "1\n3"
+    end
+
+end
+