ruote 0.9.18

data/test/ft_77_segments.rb

@@ -0,0 +1,35 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+#require 'openwfe/def'
+
+
+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,150 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Tue Nov 20 21:46:30 JST 2007
+#
+
+require 'flowtestbase'
+
+
+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 < OpenWFE::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 < OpenWFE::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 < OpenWFE::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 < OpenWFE::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,187 @@
+
+#
+# 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 OpenWFE::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 = launch TroubleTicket01
+
+        @engine.wait_for fei
+
+        assert_equal expected_trace, p.trace
+
+        sleep 0.350 # c tests reply too fast, have to wait a bit
+
+        assert(
+            (@engine.process_status(fei) == nil), 
+            "process not over, check the [error] log")
+    end
+end
+

data/test/ft_79b_tticket.rb

@@ -0,0 +1,172 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Thu Jan  3 23:05:37 JST 2008
+#
+
+require 'flowtestbase'
+
+
+#
+# The process definition under test
+#
+class TroubleTicket02 < OpenWFE::ProcessDefinition
+
+  #
+  # The root of the process
+  #
+  sequence do
+
+    #
+    # the first activity, customer support
+    #
+    cs :activity => "enter details"
+
+    #
+    # initiating the first step
+    #
+    step "qa", :desc => "reproduce problem"
+  end
+
+  #
+  # The 'outputs' of the activities
+  #
+
+  # QA 'reproduce problem' outputs
+
+  process_definition :name => "out:cannot_reproduce" do
+    step "cs", :desc => "correct report"
+  end
+  process_definition :name => "out:known_solution" do
+    finalsteps
+  end
+  process_definition :name => "out:duplicate" do
+    step "qa", :desc => "verify"
+  end
+  process_definition :name => "out:reproduced" do
+    step "dev", :desc => "resolution"
+  end
+
+  # Customer Support 'correct report' outputs
+
+  process_definition :name => "out:submit" do
+    step "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 "dev", :desc => "resolution"
+  end
+
+  # dev 'resolution' outputs
+
+  process_definition :name => "out:dev_fixed" do
+    step "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 FlowTest79b < 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 OpenWFE::LocalParticipant
+
+        attr_reader :trace
+
+        def initialize (path)
+
+            @path = path
+            @trace = []
+        end
+
+        def consume (workitem)
+
+            @trace << workitem.participant_name
+                # Kilroy was here
+
+            workitem.outcome = "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)
+
+        #log_level_to_debug
+
+        p = TestParticipant.new path
+
+        @engine.register_participant :cs, p
+        @engine.register_participant :qa, p
+        @engine.register_participant :dev, p
+
+        fei = launch TroubleTicket02
+
+        @engine.wait_for fei
+
+        assert_equal expected_trace, p.trace
+
+        sleep 0.400 # c tests reply too fast, have to wait a bit
+
+        assert(
+            (@engine.process_status(fei) == nil), 
+            "process not over, check the [error] log")
+    end
+end
+