openwferu 0.9.16 → 0.9.17

data/test/ft_63_pause.rb

@@ -33,7 +33,6 @@ class FlowTest63 < Test::Unit::TestCase
         end
     end
 
-    #def xxxx_0
     def test_0
 
         #log_level_to_debug
@@ -42,7 +41,7 @@ class FlowTest63 < Test::Unit::TestCase
 
         fei = @engine.launch Test0
 
-        sleep 0.200
+        sleep 0.350
 
         assert_equal(
             @engine.process_status(fei.wfid).expressions[0].fei.wfid, 
@@ -51,16 +50,18 @@ class FlowTest63 < Test::Unit::TestCase
         #puts @engine.list_process_status
 
         assert ! @engine.process_status(fei.wfid).paused?
+        assert ! @engine.is_paused?(fei.wfid)
 
         @engine.pause_process fei.workflow_instance_id
 
         assert @engine.process_status(fei.wfid).paused?
+        assert @engine.is_paused?(fei.wfid)
 
         hp = @engine.get_participant :alpha
         wi = hp.first_workitem
         hp.forward wi
 
-        sleep 0.200
+        sleep 0.350
 
         assert_equal @engine.process_status(fei.wfid).errors.size, 1
         assert_equal @tracer.to_s, ""
@@ -72,7 +73,7 @@ class FlowTest63 < Test::Unit::TestCase
         assert_equal ps.errors.size, 0
         assert ! ps.paused?
 
-        sleep 0.200
+        sleep 0.350
 
         assert_nil @engine.process_status(fei.wfid)
         assert_equal @tracer.to_s, "done."
@@ -90,7 +91,6 @@ class FlowTest63 < Test::Unit::TestCase
         end
     end
 
-    #def xxxx_1
     def test_1
 
         #log_level_to_debug
@@ -99,13 +99,13 @@ class FlowTest63 < Test::Unit::TestCase
 
         fei = @engine.launch Test1
 
-        sleep 0.200
+        sleep 0.350
 
         assert ! @engine.process_status(fei.wfid).paused?
 
         @engine.pause_process fei.wfid
 
-        sleep 0.200
+        sleep 0.350
 
         assert @engine.process_status(fei.wfid).paused?
 
@@ -115,7 +115,7 @@ class FlowTest63 < Test::Unit::TestCase
 
         @engine.cancel_process fei.wfid
 
-        sleep 0.200
+        sleep 0.350
     end
 
 end

data/test/ft_65_stringlaunch.rb

@@ -31,10 +31,9 @@ class FlowTest65 < Test::Unit::TestCase
     end
     """.strip
 
-    #def xxxx_0
     def test_0
-        @engine.launch(TEST0)
-        sleep 0.200
+        @engine.launch TEST0
+        sleep 0.350
         assert_equal @tracer.to_s, "ok."
     end
 
@@ -49,11 +48,10 @@ class FlowTest65 < Test::Unit::TestCase
 </process-definition>
     """.strip
 
-    #def xxxx_1
     def test_1
 
-        @engine.launch(TEST1)
-        sleep 0.200
+        @engine.launch TEST1
+        sleep 0.350
         assert_equal @tracer.to_s, "ok."
     end
 

data/test/ft_67_schedlaunch.rb

@@ -34,7 +34,7 @@ class FlowTest67 < Test::Unit::TestCase
 
         @engine.launch Test0, :in => "2s"
 
-        sleep 0.200
+        sleep 0.400
 
         assert_equal(
             1, 
@@ -58,7 +58,7 @@ class FlowTest67 < Test::Unit::TestCase
 
         @engine.launch Test0, :at => (t + 2).to_s
 
-        sleep 0.200
+        sleep 0.400
 
         assert_equal(
             1, 
@@ -82,7 +82,7 @@ class FlowTest67 < Test::Unit::TestCase
 
         assert_trace ""
 
-        sleep 130
+        sleep 121
 
         assert_trace "hell0\nhell0"
 
@@ -96,7 +96,7 @@ class FlowTest67 < Test::Unit::TestCase
 
     def test_3
 
-        log_level_to_debug
+        #log_level_to_debug
 
         @engine.launch Test0, :every => "2s"
 

data/test/ft_69_cancelmissing.rb

@@ -35,14 +35,16 @@ class FlowTest69 < Test::Unit::TestCase
 
         fei = @engine.launch(Test0)
 
-        sleep 0.300
+        sleep 0.350
 
         assert @engine.process_status(fei.wfid).errors.size > 0
 
         @engine.cancel_process fei
 
+        sleep 0.100
+
         assert_nil @engine.process_status(fei.wfid)
-        assert_equal @engine.list_process_status, {}
+        assert_equal ({}), @engine.list_process_status
     end
 
 end

data/test/ft_70_lookupvar.rb

@@ -40,7 +40,7 @@ class FlowTest70 < Test::Unit::TestCase
 
         fei = @engine.launch(Test0)
 
-        sleep 0.200
+        sleep 0.350
 
         assert_equal @engine.lookup_variable("topvar"), "top"
         assert_equal @engine.lookup_variable("topvar", fei.wfid), "top"
@@ -48,7 +48,7 @@ class FlowTest70 < Test::Unit::TestCase
 
         @engine.cancel_process(fei.wfid)
 
-        sleep 0.200
+        sleep 0.350
     end
 
 end

data/test/ft_72_lookup_processes.rb

@@ -48,7 +48,7 @@ class FlowTest72 < Test::Unit::TestCase
         li.toto = 'toto_one'
         fei1 = @engine.launch li
 
-        sleep 0.300
+        sleep 0.350
 
         wfids = @engine.lookup_processes('nada')
         assert_equal 0, wfids.size
@@ -72,7 +72,7 @@ class FlowTest72 < Test::Unit::TestCase
         @engine.cancel_process fei0
         @engine.cancel_process fei1
 
-        sleep 0.300
+        sleep 0.350
     end
 
 end

data/test/ft_73_cancel_sub.rb

@@ -44,7 +44,7 @@ class FlowTest73 < Test::Unit::TestCase
         fei = @engine.launch Test0
         #puts "launched : " + fei.to_s
 
-        sleep 0.300
+        sleep 0.350
 
         assert_equal 1, p0.size
         #puts "in store : " + p0.first_workitem.fei.to_s
@@ -54,7 +54,7 @@ class FlowTest73 < Test::Unit::TestCase
 
         @engine.cancel_process fei
 
-        sleep 0.300
+        sleep 0.350
 
         assert_equal 0, p0.size
     end
@@ -84,7 +84,7 @@ class FlowTest73 < Test::Unit::TestCase
         #puts
         #puts "launched : " + fei.to_s
 
-        sleep 0.300
+        sleep 0.350
 
         assert_equal 1, p1.size
         #puts "in store : " + p1.first_workitem.fei.to_s
@@ -92,13 +92,13 @@ class FlowTest73 < Test::Unit::TestCase
         wi = p1.first_workitem
         assert_equal wi.fei.wfid, fei.wfid + ".0"
 
-        @engine.cancel_process fei
+        @engine.cancel_process(fei)
 
-        sleep 0.300
+        sleep 0.350
 
         assert_equal 1, p1.size
 
-        @engine.cancel_process p1.first_workitem.fei
+        @engine.cancel_process(p1.first_workitem.fei)
 
         sleep 0.400
 
@@ -135,9 +135,9 @@ class FlowTest73 < Test::Unit::TestCase
         assert_equal 1, p20.size
 
         @engine.cancel_process p20.first_workitem.fei
-        sleep 0.300
+        sleep 0.350
         @engine.cancel_process p2.first_workitem.fei
-        sleep 0.300
+        sleep 0.350
     end
 
 end

data/test/ft_77_segments.rb

@@ -0,0 +1,38 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+#require 'openwfe/def'
+#require 'openwfe/worklist/storeparticipant'
+
+include OpenWFE
+
+
+class FlowTest77 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    TEST0 = "<print>nada</print>"
+
+    def test_0
+        dotest TEST0, "nada"
+    end
+
+
+    TEST1 = "_print 'nada'"
+
+    def test_1
+        dotest TEST1, "nada"
+    end
+
+end
+

data/test/ft_78_eval.rb

@@ -0,0 +1,154 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Tue Nov 20 21:46:30 JST 2007
+#
+
+require 'flowtestbase'
+#require 'openwfe/def'
+#require 'openwfe/worklist/storeparticipant'
+
+include OpenWFE
+
+
+class FlowTest78 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # TEST 0
+    #
+
+    TEST0 = %{
+    <sequence>
+        <print>0</print>
+        <eval>
+            <![CDATA[
+            <print>1</print>
+            ]]>
+        </eval>
+        <print>2</print>
+    </sequence>
+    }.strip
+
+    def test_0
+
+        @engine.ac[:dynamic_eval_allowed] = true
+
+        dotest TEST0, "0\n1\n2"
+    end
+
+    #
+    # TEST 1
+    #
+
+    class Test1 < ProcessDefinition
+        sequence do
+
+            set :var => "v0", :val => "val0"
+
+            set :field => "code", :value => "<print>hello 0</print>"
+            _eval :field_def => "code"
+            set :field => "code", :value => "_print 'hello 1'"
+            _eval :field_def => "code"
+            set :variable => "code", :value => "_print 'hello 1'"
+            _eval :variable_def => "code"
+
+            set :field => "code", :value => "_print '${v0}'"
+            _eval :field_def => "code"
+
+            set :field => "code", :value => "_print '${v0}'", :escape => true
+            set :var => "v0", :val => "val0b"
+            _eval :field_def => "code"
+        end
+    end
+
+    def test_1
+
+        @engine.ac[:dynamic_eval_allowed] = true
+
+        dotest Test1, "hello 0\nhello 1\nhello 1\nval0\nval0b"
+    end
+
+
+    #
+    # TEST 2
+    #
+
+    class Test2 < ProcessDefinition
+        sequence do
+            _eval ""
+            _print "ok"
+        end
+    end
+
+    def test_2
+
+        @engine.ac[:dynamic_eval_allowed] = true
+
+        dotest Test2, "ok"
+    end
+
+
+    #
+    # TEST 3
+    #
+
+    class Test3 < ProcessDefinition
+        sequence do
+            _eval "launcher"
+            _print "ok"
+        end
+    end
+
+    def test_3
+
+        @engine.ac[:dynamic_eval_allowed] = true
+
+        @engine.register_participant :launcher do |fexp, wi|
+            @tracer << "launcher\n"
+            #puts fexp.get_expression_storage.to_s
+        end
+
+        dotest Test3, "launcher\nok"
+    end
+
+
+    #
+    # TEST 4
+    #
+
+    class Test4 < ProcessDefinition
+        _loop do
+            _print "before"
+            _eval :def => "launcher"
+            #launcher
+            _print "after"
+            _break
+        end
+    end
+
+    def test_4
+
+        @engine.ac[:dynamic_eval_allowed] = true
+
+        @engine.register_participant :launcher do |fexp, wi|
+            @tracer << "launcher\n"
+            #@tracer << "#{fexp.get_expression_storage.size}\n"
+            #puts fexp.get_expression_storage.to_s
+            #puts fexp.to_s
+        end
+
+        dotest Test4, "before\nlauncher\nafter"
+    end
+
+end
+

data/test/ft_79_tticket.rb

@@ -0,0 +1,185 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Thu Jan  3 23:05:37 JST 2008
+#
+
+require 'flowtestbase'
+
+
+#
+# The process definition under test
+#
+class TroubleTicket01 < OpenWFE::ProcessDefinition
+
+  #
+  # The root of the process
+  #
+  sequence do
+
+    #
+    # the first activity, customer support
+    #
+    cs :activity => "enter details"
+
+    #
+    # initiating the first step
+    #
+    step :part => "qa", :desc => "reproduce problem"
+  end
+
+  #
+  # At the core of the process,
+  # the 'step' subprocess
+  #
+  process_definition :name => "step" do
+    sequence do
+
+      # participant performs activity
+      participant(
+        :ref => "${part}", :activity => "${desc}")
+
+      # then, call next step (via a subprocess)
+      subprocess :ref => "${f:next}"
+
+    end
+  end
+
+  #
+  # The 'outputs' of the activities
+  #
+
+  # QA 'reproduce problem' outputs
+
+  process_definition :name => "out:cannot_reproduce" do
+    step :part => "cs", :desc => "correct report"
+  end
+  process_definition :name => "out:known_solution" do
+    finalsteps
+  end
+  process_definition :name => "out:duplicate" do
+    step :part => "qa", :desc => "verify"
+  end
+  process_definition :name => "out:reproduced" do
+    step :part => "dev", :desc => "resolution"
+  end
+
+  # Customer Support 'correct report' outputs
+
+  process_definition :name => "out:submit" do
+    step :part => "qa", :desc => "reproduce problem"
+  end
+  process_definition :name => "out:give_up" do
+    finalsteps
+  end
+
+  # QA 'verify' outputs
+
+  process_definition :name => "out:qa_fixed" do
+    finalsteps
+  end
+  process_definition :name => "out:not_fixed" do
+    step :part => "dev", :desc => "resolution"
+  end
+
+  # dev 'resolution' outputs
+
+  process_definition :name => "out:dev_fixed" do
+    step :part => "qa", :desc => "verify"
+  end
+
+  set :var => "out:not_a_bug", :variable_value => "out:dev_fixed"
+     # "not_a_bug" is an alias to "dev_fixed"
+
+  # the final steps
+
+  process_definition :name => "finalsteps" do
+    concurrence do
+      cs :activity => "communicate results"
+      qa :activity => "audit"
+    end
+  end
+
+end
+
+
+
+class FlowTest79 < Test::Unit::TestCase
+    include FlowTestBase
+
+    def test_0
+
+        dotest(
+            [ "", "known_solution" ], # path
+            [ "cs", "qa", "cs", "qa" ]) # expected trace
+    end
+
+    def test_1
+
+        dotest(
+            [ "", "cannot_reproduce", "give_up" ], # path
+            [ "cs", "qa", "cs", "cs", "qa" ]) # expected trace
+    end
+
+    def test_2
+
+        dotest(
+            [ "", "reproduced", "dev_fixed", "qa_fixed" ], # path
+            [ "cs", "qa", "dev", "qa", "cs", "qa" ]) # expected trace
+    end
+
+    def test_3
+
+        dotest(
+            [ "", "reproduced", "not_a_bug", "qa_fixed" ], # path
+            [ "cs", "qa", "dev", "qa", "cs", "qa" ]) # expected trace
+    end
+
+    class TestParticipant 
+        include LocalParticipant
+
+        attr_reader :trace
+
+        def initialize (path)
+
+            @path = path
+            @trace = []
+        end
+
+        def consume (workitem)
+
+            @trace << workitem.participant_name
+                # Kilroy was here
+
+            workitem.next = "out:#{@path.delete_at(0)}" if @path.size > 0
+                # stating what should happen next (activity conclusion)
+
+            reply_to_engine workitem
+                # handing back the workitem to the engine
+                # (please resume the process)
+        end
+    end
+
+    def dotest (path, expected_trace)
+
+        p = TestParticipant.new path
+
+        @engine.register_participant :cs, p
+        @engine.register_participant :qa, p
+        @engine.register_participant :dev, p
+
+        fei = @engine.launch TroubleTicket01
+
+        @engine.wait_for fei
+
+        assert_equal expected_trace, p.trace
+
+        assert(
+            (@engine.process_status(fei) == nil), 
+            "process not over, check the [error] log")
+    end
+end
+