ruote 0.9.18

data/test/ft_79c_outcome.rb

@@ -0,0 +1,56 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Fri May  9 13:43:26 JST 2008
+#
+
+require 'flowtestbase'
+
+
+class FlowTest79c < Test::Unit::TestCase
+    include FlowTestBase
+
+    class Test0 < OpenWFE::ProcessDefinition
+
+        sequence do
+            step :a0, :outcomes => [ :a1, :a2 ], :default => :a2
+            _print "-"
+            step :a1, :outcomes => [ :a1, :a2 ], :default => :whatever
+            _print "-"
+            step :a2, :outcomes => [ :a1, :a2 ]
+        end
+
+        define "a0" do
+            sequence do
+                _print "a0"
+                #set :f => "outcome", :val => "a1"
+                set :f => "outcome", :val => "whatever"
+            end
+        end
+        define "a1" do
+            sequence do
+                _print "a1"
+                set :f => "outcome", :val => "a2"
+            end
+        end
+        define "a2" do
+            sequence do
+                _print "a2"
+            end
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        #@engine.register_participant :alpha do |wi|
+        #end
+
+        dotest Test0, %w{ a0 a2 - a1 a2 - a2 }.join("\n")
+    end
+end
+

data/test/ft_7_lose.rb

@@ -0,0 +1,104 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 25 14:27:48 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest7 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_lose_0
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+
+        <concurrence count="1">
+            <lose>
+                <sequence>
+                    <sleep for="2s" />
+                    <print>I should not be printed</print>
+                </sequence>
+            </lose>
+            <sequence>
+                <print>ok 0</print>
+            </sequence>
+        </concurrence>
+
+        <print>- - -</print>
+
+        <concurrence count="1">
+            <lose>
+                <sequence>
+                    <print>ok 1</print>
+                    <set variable="v0" value="true" />
+                </sequence>
+            </lose>
+            <sequence>
+                <sleep for="400" />
+                <print>ok 2</print>
+            </sequence>
+        </concurrence>
+
+        <print>v0 : ${v0}</print>
+        <if>
+            <equals variable-value="v0" other-value="true" />
+            <print>ok 3</print>
+        </if>
+
+        <print>- - -</print>
+
+        <concurrence count="1">
+            <lose>
+                <sequence>
+                    <sleep for="400" />
+                        <!-- more than the 250 ms precision -->
+                    <print>ok 4</print>
+                    <set variable="v1" value="true" />
+                </sequence>
+            </lose>
+            <sequence>
+                <print>ok 5</print>
+            </sequence>
+        </concurrence>
+
+        <print>v1 : ${v1}</print>
+        <if>
+            <equals field-value="v1" other-value="true" />
+            <print>ok 6</print>
+        </if>
+
+        <print>done.</print>
+
+    </sequence>
+</process-definition>''', 
+            """ok 0
+- - -
+ok 1
+ok 2
+v0 : true
+ok 3
+- - -
+ok 5
+v1 : 
+done.""", 
+            3.000,
+            true)
+    end
+
+end
+

data/test/ft_7b_lose.rb

@@ -0,0 +1,78 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 25 14:27:48 JST 2006
+#
+
+require 'rubygems'
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest7b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    def test_1
+
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <concurrence
+            count="1"
+        >
+            <lose>
+                <sequence>
+                    <sleep for="500" />
+                    <print>a</print>
+                </sequence>
+            </lose>
+            <print>b</print>
+        </concurrence>
+        <print>c</print>
+    </sequence>
+</process-definition>''', 
+            "b\nc")
+            #true,
+            #true)
+    end
+
+
+    #
+    # TEST 2
+
+    class Test2 < OpenWFE::ProcessDefinition
+        sequence do
+            _print "before"
+            concurrence :count => 1 do
+                lose do
+                    sequence do
+                        _sleep :for => 350
+                        _print "ok 4"
+                    end
+                end
+                sequence do 
+                    _print "ok 5"
+                end
+            end
+            _print "after"
+        end
+    end
+
+    def test_2
+
+        dotest Test2, [ 'before', 'ok 5', 'after' ].join("\n")
+    end
+
+end
+

data/test/ft_80_spname.rb

@@ -0,0 +1,91 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Fri Jan  4 15:00:26 JST 2008
+#
+# Fighting bug #16791
+# http://rubyforge.org/tracker/index.php?func=detail&aid=16791&group_id=2609&atid=10023
+#
+
+require 'flowtestbase'
+
+
+class FlowTest80 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Def0 < OpenWFE::ProcessDefinition
+        sequence do
+            subprocess :ref => "last_step"
+            last_step
+        end
+        process_definition :name => "last_step" do
+            _print "last_step"
+        end
+    end
+
+    def test_0
+        dotest Def0, ([ "last_step" ] * 2).join("\n")
+    end
+
+    TEST0B = %{
+        <process-definition name="def" revision="0b">
+            <sequence>
+                <subprocess ref="last_step" />
+                <last_step />
+            </sequence>
+            <process-definition name="last_step">
+                <print>last_step</print>
+            </process-definition>
+        </process-definition>
+    }.strip
+
+    def test_0b
+        dotest TEST0B, ([ "last_step" ] * 2).join("\n")
+    end
+
+    #
+    # Test 1
+    #
+    # Checking with participants
+    #
+
+    class Def1 < OpenWFE::ProcessDefinition
+        sequence do
+            mister_alpha
+            participant :ref => :mister_alpha
+            participant :ref => "mister_alpha"
+            #participant :ref => "mister-alpha"
+            mister_bravo
+            #participant :ref => :mister_bravo
+            #participant :ref => "mister_bravo"
+            participant :ref => "mister-bravo"
+        end
+    end
+
+    def test_1
+
+        @engine.register_participant :mister_alpha do
+            @tracer << "alpha\n"
+        end
+        @engine.register_participant "mister-bravo" do
+            @tracer << "bravo\n"
+        end
+
+        dotest Def1, ([ "alpha" ] * 3 + [ "bravo" ] * 2).join("\n")
+    end
+
+end
+

data/test/ft_81_exp.rb

@@ -0,0 +1,60 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Sat Jan  5 22:57:53 JST 2008
+#
+
+require 'flowtestbase'
+
+
+class FlowTest81 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Def0 < OpenWFE::ProcessDefinition
+
+        sequence do
+
+            exp :name => "p0"
+            exp :name => "sub0"
+
+            exp :name => "sequence" do
+                p0
+                sub0
+            end
+
+            set :var => "a", :value => { "ref" => "p0" }
+            exp :name => "participant", :variable_attributes => "a"
+
+            exp :default => "p0"
+            exp :name => " ", :default => "p0"
+        end
+
+        process_definition :name => "sub0" do
+            _print "sub0"
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant :p0 do
+            @tracer << "p0\n"
+        end
+
+        dotest Def0, %w{ p0 sub0 p0 sub0 p0 p0 p0 }.join("\n")
+    end
+
+end
+

data/test/ft_82_trecu.rb

@@ -0,0 +1,46 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Sat Feb 16 19:07:42 JST 2008
+#
+
+require 'flowtestbase'
+
+
+class FlowTest82 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            #_print "${r:fei.wfname}"
+            _print do
+                reval "$i += 1"
+            end
+            subprocess :ref => "Test", :unless => "${r:$i} == 3"
+        end
+    end
+
+    def test_0
+
+        log_level_to_debug
+
+        $i = 0
+
+        dotest Test0, "1\n2\n3"
+    end
+
+end
+

data/test/ft_83_badpause.rb

@@ -0,0 +1,58 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Sat Feb 16 19:07:42 JST 2008
+#
+
+require 'flowtestbase'
+
+
+class FlowTest83 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        concurrence do
+            _loop do
+                alpha
+            end
+            _loop do
+                alpha
+            end
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant :alpha do
+            sleep 0.002
+        end
+
+        fei = launch Test0
+
+        sleep 0.350
+
+        1000.times do |i|
+            print "."
+            ps = @engine.process_status fei
+            assert ( ! ps.paused?)
+            #p ps.expressions.size
+        end
+
+        #dotest Test0, "1\n2\n3"
+    end
+
+end
+