openwferu 0.9.4 → 0.9.5

data/test/ft_19_csv.rb

@@ -13,7 +13,8 @@ include OpenWFE
 
 
 
-class FlowTest19 < FlowTestBase
+class FlowTest19 < Test::Unit::TestCase
+    include FlowTestBase
 
     CSV0 = \
 """

data/test/ft_1_unset.rb

@@ -10,7 +10,8 @@
 require 'flowtestbase'
 
 
-class FlowTest1 < FlowTestBase
+class FlowTest1 < Test::Unit::TestCase
+    include FlowTestBase
 
     #def setup
     #end
@@ -18,6 +19,7 @@ class FlowTest1 < FlowTestBase
     #def teardown
     #end
 
+    #def xxxx_unset_0
     def test_unset_0
         dotest(\
 '''<process-definition name="n" revision="0">
@@ -31,7 +33,8 @@ class FlowTest1 < FlowTestBase
 unset')
     end
 
-    def test_unset_1
+    #def xxxx_unset_1
+    def test_unset_2
         dotest(\
 '''<process-definition name="n" revision="0">
     <sequence>
@@ -44,6 +47,7 @@ unset')
 unset')
     end
 
+    #def xxxx_unset_2
     def test_unset_2
         dotest(\
 '''<process-definition name="n" revision="0">
@@ -57,6 +61,7 @@ unset')
 unset y')
     end
 
+    #def xxxx_unset_3
     def test_unset_3
         dotest(\
 '''<process-definition name="n" revision="0">
@@ -70,6 +75,7 @@ unset y')
 unset')
     end
 
+    #def xxxx_unset_4
     def test_unset_4
         dotest(\
 '''<process-definition name="n" revision="0">
@@ -83,6 +89,7 @@ unset')
 unset')
     end
 
+    #def xxxx_unset_5
     def test_unset_5
         dotest(\
 '''<process-definition name="n" revision="0">
@@ -98,22 +105,7 @@ unset')
 unset y')
     end
 
-    def test_unset_6
-        dotest(\
-'''<process-definition name="unset_6" revision="0">
-    <sequence>
-        <set variable="/x" value="y" />
-        <print>set ${x}</print>
-        <sub0/>
-        <print>unset ${x}</print>
-    </sequence>
-    <process-definition name="sub0">
-        <unset variable="/x" />
-    </process-definition>
-</process-definition>''', 'set y
-unset')
-    end
-
+    #def xxxx_set_a0
     def test_set_a0
         dotest(\
 '''<process-definition name="set_a0" revision="0">
@@ -124,6 +116,7 @@ unset')
 </process-definition>''', 'y')
     end
 
+    #def xxxx_set_a1
     def test_set_a1
         dotest(\
 '''<process-definition name="set_a1" revision="0">
@@ -136,6 +129,7 @@ unset')
 </process-definition>''', 'true')
     end
 
+    #def xxxx_set_a1f
     def test_set_a1f
         dotest(\
 '''<process-definition name="set_a1f" revision="0">
@@ -148,6 +142,7 @@ unset')
 </process-definition>''', 'false')
     end
 
+    #def xxxx_set_with_nested_string_0
     def test_set_with_nested_string_0
         dotest(\
 '''<process-definition name="set_a1f" revision="0">
@@ -160,6 +155,7 @@ unset')
 </process-definition>''', '4321')
     end
 
+    #def xxxx_set_with_nested_string_1
     def test_set_with_nested_string_1
         dotest(\
 '''<process-definition name="set_a1f" revision="0">

data/test/ft_1b_unset.rb

@@ -0,0 +1,39 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest1b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_unset_6
+        dotest(\
+'''<process-definition name="unset_6" revision="0">
+    <sequence>
+        <set variable="/x" value="y" />
+        <print>set ${x}</print>
+        <sub0/>
+        <print>unset ${x}</print>
+    </sequence>
+    <process-definition name="sub0">
+        <unset variable="/x" />
+    </process-definition>
+</process-definition>''', 'set y
+unset')
+    end
+
+end
+

data/test/ft_20_cron.rb

@@ -13,7 +13,8 @@ include OpenWFE
 
 
 
-class FlowTest20 < FlowTestBase
+class FlowTest20 < Test::Unit::TestCase
+    include FlowTestBase
 
     #def setup
     #end

data/test/ft_21_cron.rb

@@ -13,7 +13,8 @@ include OpenWFE
 
 
 
-class FlowTest21 < FlowTestBase
+class FlowTest21 < Test::Unit::TestCase
+    include FlowTestBase
 
     #def setup
     #end

data/test/ft_22_history.rb

@@ -14,7 +14,8 @@ require 'openwfe/expressions/raw_prog'
 include OpenWFE
 
 
-class FlowTest22 < FlowTestBase
+class FlowTest22 < Test::Unit::TestCase
+    include FlowTestBase
 
     #def setup
     #end
@@ -57,11 +58,12 @@ c""")
         #f.write(history.to_s)
         #f.close()
 
+        #assert \
+        #    (history.entries.size == 36),
+        #    "invalid history count : #{history.entries.size}"
         assert \
-            (history.entries.size == 34 or history.entries.size == 37),
-            "History count is #{history.entries.size} should be 34 (or 37)"
-
-        # 37 in case of persisted engine (it's slower, so rescheduling kicks in)
+            (history.entries.size > 33 and history.entries.size < 39),
+            "invalid history count : #{history.entries.size}"
     end
 
 end

data/test/ft_23_when.rb

@@ -12,7 +12,8 @@ include OpenWFE
 
 
 
-class FlowTest23 < FlowTestBase
+class FlowTest23 < Test::Unit::TestCase
+    include FlowTestBase
 
     #def setup
     #end

data/test/ft_23b_when.rb

@@ -12,7 +12,8 @@ include OpenWFE
 
 
 
-class FlowTest23 < FlowTestBase
+class FlowTest23b < Test::Unit::TestCase
+    include FlowTestBase
 
     #def setup
     #end

data/test/ft_24_def.rb

@@ -19,7 +19,8 @@ include OpenWFE
 # shortcut
 #
 
-class FlowTest24 < FlowTestBase
+class FlowTest24 < Test::Unit::TestCase
+    include FlowTestBase
 
     #def setup
     #end

data/test/ft_25_cancel.rb

@@ -0,0 +1,79 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest25 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    def test_cancel_0
+        dotest(\
+'''<process-definition name="25_cancel" revision="0">
+    <sequence>
+        <print>before</print>
+        <cancel-process/>
+        <print>after</print>
+    </sequence>
+</process-definition>''', 
+"before")
+    end
+
+
+    #
+    # TEST 1
+
+    class TestDefinition1 < ProcessDefinition
+        def make
+            _process_definition :name => "25_cancel", :revision => "1" do
+                _sequence do
+                    _print "before"
+                    _cancel_process
+                    _print "after"
+                end
+            end
+        end
+    end
+
+    def test_cancel_1
+        dotest(TestDefinition1, "before")
+    end
+
+
+    #
+    # TEST 2
+
+    class TestDefinition2 < ProcessDefinition
+        def make
+            _process_definition :name => "25_cancel", :revision => "2" do
+                _sequence do
+                    _print "before"
+                    _cancel_process :if => "false"
+                    _print "after"
+                end
+            end
+        end
+    end
+
+    def test_cancel_2
+        dotest(TestDefinition2, "before\nafter")
+    end
+
+end
+

data/test/ft_26_load.rb

@@ -0,0 +1,197 @@
+
+#
+# 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 FlowTest26 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "test0", :revision => "0" do
+                sequence do
+                    count
+                    count
+                end
+            end
+        end
+    end
+
+    #def xxxx_load_0
+    def test_load_0
+
+        map = {}
+
+        @engine.register_participant("count") do |workitem|
+            count = map[workitem.flow_id]
+            count = unless count
+                1
+            else
+                count + 1
+            end
+            map[workitem.flow_id] = count
+        end
+
+        n = 100
+
+        n.times do |i|
+            li = LaunchItem.new(TestDefinition0)
+            li.flow_id = i
+            @engine.launch(li)
+        end
+
+        good = true
+
+        n.times do |i|
+            c = map[i]
+            if c == 2
+                print "."
+            else
+                print c
+                good = false
+            end
+        end
+
+        #puts "\n__good ? #{good}"
+        assert good, "missing count"
+
+        #     100 in    1s (in memory engine)
+        #   1'000 in   14s (in memory engine)
+        #  10'000 in  143s (in memory engine)
+        #   1'000 in   31s (cache engine)
+        #  10'000 in  321s (cache engine)
+        #   1'000 in  113s (persistence only engine)
+        #  10'000 in 1173s (persistence only engine)
+        #
+        #
+        # ruby 1.8.5 (2006-12-25 patchlevel 12) [i686-darwin8.8.3]
+        #
+        # Machine Name:             Mac
+        # Machine Model:            MacBook2,1
+        # Processor Name:           Intel Core 2 Duo
+        # Processor Speed:          2 GHz
+        # Number Of Processors:     1
+        # Total Number Of Cores:    2
+        # L2 Cache (per processor): 4 MB
+        # Memory:                   2 GB
+        # Bus Speed:                667 MHz
+    end
+
+
+    #
+    # TEST 1
+    #
+
+    def xxxx_load_1
+    #def test_load_1
+
+        map = {}
+
+        @engine.register_participant("count") do |workitem|
+            count = map[workitem.flow_id]
+            count = unless count
+                1
+            else
+                count + 1
+            end
+            map[workitem.flow_id] = count
+            #puts "(#{workitem.flow_id} => #{map[workitem.flow_id]})"
+        end
+
+        n = 100
+
+        n.times do |i|
+
+            #t = Thread.new do
+            #    begin
+            #        li = LaunchItem.new(TestDefinition0)
+            #        li.flow_id = i
+            #        @engine.launch(li)
+            #        #print "."
+            #    rescue Exception => e
+            #        print "e"
+            #        @engine.lwarn do 
+            #            "ft_26_test_1 exception...\n" + 
+            #            OpenWFE::exception_to_s(e)
+            #        end
+            #    end
+            #end
+
+            li = LaunchItem.new(TestDefinition0)
+            li.flow_id = i
+
+            fei, t = @engine.launch(li, true)
+                #
+                # async : true
+
+            t.join if i == n-1
+        end
+
+        sleep(1)
+        puts
+
+        good = true
+
+        n.times do |i|
+
+            c = map[i]
+
+            if c == 2
+                print "."
+            elsif c == nil
+                print "x"
+                good = false
+            else
+                print c
+                good = false
+            end
+        end
+
+        #puts "\n__good ? #{good}"
+
+        assert good, "missing count"
+
+        #     100 in    3s (in memory engine)
+        #   1'000 in   85s (in memory engine)
+        #  10'000 in     s (in memory engine)
+        #   1'000 in  551s (cache engine)
+        #  10'000 in     s (cache engine)
+        #   1'000 in     s (persistence only engine)
+        #  10'000 in     s (persistence only engine)
+        #
+        #
+        # ruby 1.8.5 (2006-12-25 patchlevel 12) [i686-darwin8.8.3]
+        #
+        # Machine Name:             Mac
+        # Machine Model:            MacBook2,1
+        # Processor Name:           Intel Core 2 Duo
+        # Processor Speed:          2 GHz
+        # Number Of Processors:     1
+        # Total Number Of Cores:    2
+        # L2 Cache (per processor): 4 MB
+        # Memory:                   2 GB
+        # Bus Speed:                667 MHz
+    end
+
+end
+

data/test/ft_2_concurrence.rb

@@ -7,10 +7,12 @@
 # Mon Oct  9 22:19:44 JST 2006
 #
 
+require 'openwfe/def'
 require 'flowtestbase'
 
 
-class FlowTest2 < FlowTestBase
+class FlowTest2 < Test::Unit::TestCase
+    include FlowTestBase
 
     #def setup
     #end
@@ -18,22 +20,11 @@ class FlowTest2 < FlowTestBase
     #def teardown
     #end
 
-    #def xxxx_con_0
-    def test_con_0
-        dotest(\
-'''<process-definition name="con" revision="0">
-    <concurrence>
-        <print>a</print>
-        <print>b</print>
-    </concurrence>
-</process-definition>''', [ '''a
-b''', '''b
-a''' ])
-    end
+    # test_con_0 got moved to ft_2c_concurrence.rb
 
     #def xxxx_con_1
     def test_con_1
-        dotest(\
+        dotest(
 '''<process-definition name="con" revision="1">
     <concurrence
         count="1"
@@ -44,7 +35,90 @@ a''' ])
             <print>b</print>
         </sequence>
     </concurrence>
-</process-definition>''', "a", 0.1, false )
+</process-definition>''', 
+            "a", 
+            0.03, 
+            false)
+    end
+
+    #def xxxx_con_2
+    def test_con_2
+        dotest(
+'''<process-definition name="con" revision="2">
+    <concurrence over-if="true">
+        <sequence>
+            <sleep for="1s"/>
+            <print>a</print>
+        </sequence>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', 
+            "b")
+    end
+
+    #def xxxx_con_3
+    def test_con_3
+        dotest(
+'''<process-definition name="con" revision="3">
+    <concurrence over-if="${over}">
+        <print>a</print>
+        <set variable="over" value="true" />
+    </concurrence>
+</process-definition>''', 
+            "a")
+    end
+
+    #def xxxx_con_4
+    def test_con_4
+        dotest(
+'''<process-definition name="con" revision="4">
+    <concurrence over-if="${nada}">
+        <sequence>
+            <sleep for="1s"/>
+            <print>a</print>
+        </sequence>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', 
+            """b
+a""", 
+            2)
+    end
+
+    #def xxxx_con_5
+    def test_con_5
+        dotest(
+'''<process-definition name="con" revision="5">
+    <concurrence over-if="false">
+        <sequence>
+            <sleep for="1s"/>
+            <print>a</print>
+        </sequence>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', 
+            """b
+a""", 
+            2)
+    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"
+                end
+            end
+        end
+    end
+
+    #def xxxx_con_6
+    def test_con_6
+        dotest(TestDefinition6, "b")
     end
 
 end