openwferu 0.9.13 → 0.9.14

data/test/ft_63_pause.rb

@@ -0,0 +1,122 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/worklist/storeparticipant'
+
+include OpenWFE
+
+
+class FlowTest63 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < ProcessDefinition
+        sequence do
+            participant :alpha
+            _print "done."
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        #log_level_to_debug
+
+        sa = @engine.register_participant :alpha, OpenWFE::HashParticipant
+
+        fei = @engine.launch Test0
+
+        sleep 0.200
+
+        assert_equal(
+            @engine.process_status(fei.wfid).expressions[0].fei.wfid, 
+            fei.wfid)
+        #puts @engine.process_status(fei.wfid)
+        #puts @engine.list_process_status
+
+        assert ! @engine.process_status(fei.wfid).paused?
+
+        @engine.pause_process fei.workflow_instance_id
+
+        assert @engine.process_status(fei.wfid).paused?
+
+        hp = @engine.get_participant :alpha
+        wi = hp.first_workitem
+        hp.forward wi
+
+        sleep 0.200
+
+        assert_equal @engine.process_status(fei.wfid).errors.size, 1
+        assert_equal @tracer.to_s, ""
+
+        @engine.resume_process fei.workflow_instance_id
+
+        ps = @engine.process_status fei.wfid
+        #puts ps
+        assert_equal ps.errors.size, 0
+        assert ! ps.paused?
+
+        sleep 0.200
+
+        assert_nil @engine.process_status(fei.wfid)
+        assert_equal @tracer.to_s, "done."
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class Test1 < ProcessDefinition
+        sequence do
+            participant :alpha
+            _print "done."
+        end
+    end
+
+    #def xxxx_1
+    def test_1
+
+        #log_level_to_debug
+
+        sa = @engine.register_participant :alpha, OpenWFE::NullParticipant
+
+        fei = @engine.launch Test1
+
+        sleep 0.200
+
+        assert ! @engine.process_status(fei.wfid).paused?
+
+        @engine.pause_process fei.wfid
+
+        sleep 0.200
+
+        assert @engine.process_status(fei.wfid).paused?
+
+        @engine.resume_process fei.wfid
+
+        assert ! @engine.process_status(fei.wfid).paused?
+
+        @engine.cancel_process fei.wfid
+
+        sleep 0.200
+    end
+
+end
+

data/test/ft_64_alias.rb

@@ -0,0 +1,102 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest64a < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            participant :bravo
+            participant :abracadabra
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        @engine.register_participant "a.*" do |workitem|
+            @tracer << workitem.participant_name
+            @tracer << "\n"
+        end
+
+        @engine.register_participant :bravo, AliasParticipant.new("alpha")
+
+        dotest(Test0, "alpha\nabracadabra")
+    end
+
+
+    #
+    # TEST 1
+
+    class Test1 < ProcessDefinition
+        sequence do
+            set :v => "toto", :val => "elvis"
+            toto
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        @engine.register_participant "elvis" do
+            @tracer << "sivle"
+        end
+
+        dotest(Test1, "sivle")
+    end
+
+
+    #
+    # TEST 2
+
+    class Test2 < ProcessDefinition
+
+        #
+        # some aliases
+
+        set :v => "alice", :val => "elvis"
+        set :v => "bob", :val => "elvis"
+
+        #
+        # the body of the process
+
+        sequence do
+            alice
+            bob
+        end
+    end
+
+    def test_2
+
+        #log_level_to_debug
+
+        @engine.register_participant "elvis" do |workitem|
+            @tracer << workitem.fei.expression_id
+            @tracer << "\n"
+        end
+
+        dotest(Test2, "0.2.0\n0.2.1")
+    end
+
+end
+

data/test/ft_64_clone.rb

@@ -0,0 +1,69 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest64 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Box
+
+        attr_reader :content
+
+        def initialize (content)
+            @content = content
+        end
+    end
+
+    class Test0 < ProcessDefinition
+        sequence do
+            participant :alpha
+            participant :bravo
+            _print "ok"
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        box1 = nil
+
+        @engine.register_participant :alpha do |workitem|
+            # nothing
+        end
+
+        @engine.register_participant :bravo do |workitem|
+
+            box1 = OpenWFE::fulldup(workitem.box)
+        end
+
+        box0 = Box.new("books")
+
+        li = LaunchItem.new(Test0)
+        li.box = box0
+
+        dotest(li, "ok")
+
+        assert_equal box1.content, "books"
+        assert_not_equal box1.object_id, box0.object_id
+    end
+
+end
+

data/test/ft_65_stringlaunch.rb

@@ -0,0 +1,61 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest65 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    TEST0 = """
+    class Test0 < ProcessDefinition
+        _print 'ok.'
+    end
+    """.strip
+
+    #def xxxx_0
+    def test_0
+        @engine.launch(TEST0)
+        sleep 0.200
+        assert_equal @tracer.to_s, "ok."
+    end
+
+
+    #
+    # Test 1
+    #
+
+    TEST1 = """
+<process-definition name='65_1' revision='0.1'>
+    <print>ok.</print>
+</process-definition>
+    """.strip
+
+    #def xxxx_1
+    def test_1
+
+        @engine.launch(TEST1)
+        sleep 0.200
+        assert_equal @tracer.to_s, "ok."
+    end
+
+end
+

data/test/ft_66_subforget.rb

@@ -0,0 +1,70 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest66 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            subproc :forget => true
+            _print "main done."
+        end
+        process_definition :name => :subproc do
+            sequence do
+                _print "sub done."
+            end
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        dotest(Test0, "main done.\nsub done.", 0.600)
+    end
+
+
+    #
+    # TEST 1
+
+    class Test1 < ProcessDefinition
+        sequence do
+            subproc
+            _print "main done."
+        end
+        process_definition :name => :subproc do
+            sequence do
+                _print "sub done."
+            end
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        dotest(Test1, "sub done.\nmain done.")
+    end
+
+end
+

data/test/ft_67_schedlaunch.rb

@@ -0,0 +1,102 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Sep 11 08:48:18 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest67 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        _print "hell0"
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        @engine.launch(Test0, :in => "2s")
+
+        sleep 0.200
+
+        assert_equal @tracer.to_s, ""
+
+        sleep 2.500
+
+        assert_equal @tracer.to_s, "hell0"
+    end
+
+    #
+    # TEST 1
+
+    #def xxxx_1
+    def test_1
+
+        #log_level_to_debug
+
+        t = Time.now
+
+        @engine.launch(Test0, :at => (t + 2).to_s)
+
+        sleep 0.200
+
+        assert_equal @tracer.to_s, ""
+
+        sleep 2.500
+
+        assert_equal @tracer.to_s, "hell0"
+    end
+
+    #
+    # TEST 2
+
+    #def xxxx_2
+    def test_2
+
+        log_level_to_debug
+
+        @engine.launch(Test0, :cron => "* * * * *")
+
+        assert_equal @tracer.to_s, ""
+
+        sleep 130
+
+        assert_equal @tracer.to_s, "hell0\nhell0"
+    end
+
+    #
+    # TEST 3
+
+    #def xxxx_3
+    def test_3
+
+        log_level_to_debug
+
+        @engine.launch(Test0, :every => "2s")
+
+        assert_equal @tracer.to_s, ""
+
+        sleep 5
+
+        assert_equal @tracer.to_s, "hell0\nhell0"
+    end
+
+end
+

data/test/ft_68_ifparticipant.rb

@@ -0,0 +1,70 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Sep 11 21:32:10 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest68 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            alpha :id => 0
+            alpha :id => 1, :if => "${r:$count > 1}"
+            alpha :id => 2
+            alpha :id => 3, :if => "${r:$count > 1}"
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        $count = 0
+
+        @engine.register_participant :alpha do |workitem|
+            @tracer << "#{workitem.params["id"]} #{$count}\n"
+            $count += 1
+        end
+
+        dotest(Test0, "0 0\n2 1\n3 2")
+    end
+
+    #
+    # TEST 1
+
+    class Test1 < ProcessDefinition
+        sequence do
+            subp :id => 0
+            subp :id => 1, :unless => "true"
+            subp :id => 2
+        end
+        process_definition :name => "subp" do
+            _print "${id}"
+        end
+    end
+
+    def test_0
+
+        dotest(Test1, "0\n2")
+    end
+
+end
+

data/test/ft_69_cancelmissing.rb

@@ -0,0 +1,49 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Sep 13 09:50:29 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest69 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        #__bravo
+        participant :ref => "__bravo"
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        fei = @engine.launch(Test0)
+
+        sleep 0.200
+
+        assert @engine.process_status(fei.wfid).errors.size > 0
+
+        @engine.cancel_process fei
+
+        assert_nil @engine.process_status(fei.wfid)
+        assert_equal @engine.list_process_status, {}
+    end
+
+end
+

data/test/ft_6_lambda.rb

@@ -21,8 +21,8 @@ class FlowTest6 < Test::Unit::TestCase
     #end
 
     def test_lambda_0
-    #def xxxx_lambda_0
-        dotest(\
+
+        dotest(
 '''<process-definition name="lambda_0" revision="0">
     <sequence>
         <set variable="inside1">
@@ -35,7 +35,27 @@ class FlowTest6 < Test::Unit::TestCase
         <print>over</print>
     </sequence>
 </process-definition>''', """bonjour world
-over""", 3)
+over""")
+    end
+
+    #
+    # TEST 1
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            _set :v => "inside1" do
+                process_definition do
+                    _print "hello ${name}"
+                end
+            end
+            inside1 :name => "mundo"
+            _print "done."
+        end
+    end
+
+    def test_1
+
+        dotest(Test1, "hello mundo\ndone.")
     end
 
 end