openwferu 0.9.11 → 0.9.12

data/test/ft_58_ejournal.rb

@@ -0,0 +1,119 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Fri Jun 29 23:12:53 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+require 'openwfe/engine/file_persisted_engine'
+require 'openwfe/expool/errorjournal'
+
+
+
+class FlowTest58 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            participant :alpha
+            participant :nada
+            participant :bravo
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        ejournal = @engine.get_error_journal
+
+        @engine.register_participant(:alpha) do |wi|
+            @tracer << "alpha\n"
+        end
+
+        #fei = dotest(Test0, "alpha", 0.500, true)
+        li = LaunchItem.new Test0
+        fei = @engine.launch li
+
+        sleep 0.500
+
+        assert File.exist?("work/ejournal/#{fei.parent_wfid}.ejournal") \
+            if @engine.is_a?(FilePersistedEngine)
+
+        errors = ejournal.get_error_log fei
+
+        #require 'pp'; pp ejournal
+
+        assert_equal errors.length, 1
+
+        first_error = errors[0]
+
+        assert ejournal.has_errors?(fei)
+        assert ejournal.has_errors?(fei.wfid)
+
+        # let's look at how errors do stack
+
+        ejournal.replay_at_last_error fei.wfid
+
+        sleep 0.500
+
+        errors = ejournal.get_error_log fei
+
+        assert_equal errors.length, 2
+
+        second_error = errors[1]
+
+        assert second_error.date > first_error.date
+
+        # let's clean the log (we have the error as 'second_error')
+
+        ejournal.remove_error_log fei.wfid
+
+        errors = ejournal.get_error_log fei
+
+        assert_equal errors.length, 0
+        assert ( ! ejournal.has_errors?(fei))
+
+        # OK, let's fix the root and replay
+
+        @engine.register_participant(:nada) do |wi|
+            @tracer << "nada\n"
+        end
+        @engine.register_participant(:bravo) do |wi|
+            @tracer << "bravo\n"
+        end
+
+        # fix done
+
+        assert_equal @tracer.to_s, "alpha"
+
+        ejournal.replay_at_error second_error
+
+        sleep 0.300
+
+        assert_equal @tracer.to_s, "alpha\nnada\nbravo"
+
+        errors = ejournal.get_error_log fei
+
+        assert_equal errors.length, 0
+
+        assert ( ! ejournal.has_errors?(fei))
+    end
+
+end
+

data/test/ft_59_ps.rb

@@ -0,0 +1,118 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sat Jul  7 22:44:00 JST 2007 (tanabata)
+#
+
+require 'openwfe/def'
+require 'openwfe/worklist/storeparticipant'
+
+require 'flowtestbase'
+
+
+class FlowTest59 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # TEST 0
+
+    class Def59 < ProcessDefinition
+        concurrence do
+            store_a
+            store_b
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        sa = @engine.register_participant("store_a", OpenWFE::HashParticipant)
+        sb = @engine.register_participant("store_b", OpenWFE::HashParticipant)
+
+        fei = @engine.launch Def59
+
+        sleep 0.500
+
+        ps = @engine.get_process_status
+        #puts ps
+
+        assert_equal ps[fei.wfid].expressions.size, 2
+        assert_equal ps[fei.wfid].errors.size, 0
+
+        @engine.cancel_process fei
+    end
+
+    #
+    # TEST 0b
+
+    class Def59b < ProcessDefinition
+        sequence do
+            alpha
+            bravo
+        end
+    end
+
+    #def xxxx_0b
+    def test_0b
+
+        a = @engine.register_participant(:alpha, OpenWFE::HashParticipant)
+        b = @engine.register_participant(:bravo, OpenWFE::HashParticipant)
+
+        fei = @engine.launch Def59b
+
+        sleep 0.500
+
+        ps = @engine.get_process_status
+        #puts ps
+
+        assert_equal ps[fei.wfid].expressions.size, 1
+        assert_equal ps[fei.wfid].errors.size, 0
+
+        @engine.cancel_process fei
+    end
+
+    #
+    # TEST 1
+
+    class Def59_1 < ProcessDefinition
+        sequence do
+            nada59_1
+            alpha
+        end
+    end
+
+    #def xxxx_1
+    def test_1
+
+        alpha = @engine.register_participant :alpha do
+            # nothing
+        end
+
+        fei = @engine.launch Def59_1
+
+        sleep 0.500
+
+        ps = @engine.get_process_status
+        #puts ps
+        #puts ps[fei.wfid].errors
+
+        assert_equal ps[fei.wfid].expressions.size, 1
+        assert_equal ps[fei.wfid].errors.size, 1
+
+        #puts
+        #puts ps.to_s
+
+        @engine.cancel_process fei.wfid
+    end
+
+end
+

data/test/ft_60_ecancel.rb

@@ -0,0 +1,87 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Jul  9 10:25:18 JST 2007
+#
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest60 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class TestDefinition0 < ProcessDefinition
+        sequence do
+            _print "a"
+            sequence do
+                _print "b.0"
+                _sleep "1s"
+                _print "b.1"
+            end
+            _print "c"
+        end
+    end
+
+    def test_0
+
+        #$OWFE_LOG.level = Logger::DEBUG
+
+        fei = @engine.launch TestDefinition0
+        fei = fei.dup
+
+        sleep 0.500
+
+        #puts
+        #puts @engine.get_process_stack fei.wfid
+        #puts
+
+        fei.expression_id = "0.0.1"
+        fei.expression_name = "sequence"
+        @engine.cancel_expression fei
+
+        sleep 0.700
+
+        assert_equal @tracer.to_s, "a\nb.0\nc"
+
+        assert_equal @engine.get_process_stack(fei.wfid).size, 0
+
+        #$OWFE_LOG.level = Logger::INFO
+    end
+
+    def test_1
+
+        #$OWFE_LOG.level = Logger::DEBUG
+
+        fei = @engine.launch TestDefinition0
+        fei = fei.dup
+
+        sleep 0.500
+
+        fei.expression_id = "0.0.1.2"
+        fei.expression_name = "print"
+        @engine.cancel_expression fei
+
+        @engine.wait_for(fei.wfid)
+
+        assert_equal @tracer.to_s, "a\nb.0\nc"
+
+        assert_equal @engine.get_process_stack(fei.wfid).size, 0
+
+        #$OWFE_LOG.level = Logger::INFO
+    end
+
+end
+

data/test/ft_tests.rb

@@ -76,3 +76,7 @@ require 'ft_32_journal'
 require 'ft_32c_journal'
 require 'ft_32d_journal'
 
+require 'ft_58_ejournal'
+require 'ft_59_ps'
+require 'ft_60_ecancel'
+

data/test/hparticipant_test.rb

@@ -80,7 +80,7 @@ class HParticipantTest < Test::Unit::TestCase
         #puts "alice count : #{@hpAlice.size}"
         #puts "bob count :   #{@hpBob.size}"
 
-        sleep 0.200
+        sleep 0.500
 
         assert_equal @hpBob.size, 0
         assert_equal @hpAlice.size, 1

data/test/orest_test.rb

@@ -31,6 +31,9 @@ class OldRestTest < Test::Unit::TestCase
         logger = WEBrick::Log.new "logs/orest_test.webrick.log"
         logger.level = WEBrick::Log::DEBUG
 
+        #
+        # preparing a worklist
+
         @worklist = OpenWFE::Worklist.new(
             @engine.application_context,
             :auth_system => { "foo" => "bar" })
@@ -44,10 +47,17 @@ class OldRestTest < Test::Unit::TestCase
             "bravo", 
             "bravo", 
             OpenWFE::StoreWithLocks.new(OpenWFE::HashParticipant))
+
+        #
+        # registering the worklist (behind two participants)
         
         @engine.register_participant :alpha, @worklist
         @engine.register_participant :bravo, @worklist
 
+        #
+        # preparing and starting the webserver
+        # (it's a REST interface after all)
+
         @server = WEBrick::HTTPServer.new(
             :Port => 5080,
             :BindAddress => "0.0.0.0",
@@ -81,6 +91,9 @@ class OldRestTest < Test::Unit::TestCase
     def test_0
 
         #sleep 0.1
+
+        #
+        # just checking that we get bounced in case of wrong credentials
         
         assert_raise RuntimeError do
             client = OpenWFE::WorklistClient.new(
@@ -94,10 +107,10 @@ class OldRestTest < Test::Unit::TestCase
 
         assert_equal get_servlet.instance_variable_get(:@sessions).size, 1
 
+        #
+        # are there two stores in this worklist ?
+
         l = client.list_stores
-        #l.each do |s|
-        #    require 'pp'; pp s
-        #end
 
         assert_equal l.size, 2
 
@@ -105,6 +118,9 @@ class OldRestTest < Test::Unit::TestCase
 
         assert_equal store.name, "alpha"
 
+        #
+        # playing with a mock workitem
+
         assert_raise RuntimeError do
             client.get_headers "nada"
         end
@@ -114,7 +130,6 @@ class OldRestTest < Test::Unit::TestCase
 
         headers = client.get_headers "alpha"
 
-        #puts headers[0].fei
         assert_equal headers.length, 1
         assert_equal headers[0].attributes["nada"], "surf"
         assert_equal headers[0].nada, "surf"
@@ -144,6 +159,8 @@ class OldRestTest < Test::Unit::TestCase
 
         assert_equal headers.size, 2
 
+        # yes, the workitem of our newly launched process has arrived...
+
         fei.expression_id = "0.0.0"
         fei.expression_name = "participant"
 
@@ -153,6 +170,8 @@ class OldRestTest < Test::Unit::TestCase
 
         wi = client.get_and_lock_workitem "alpha", fei
 
+        # got the workitem and made sure others can't modify / forward it
+
         assert_equal wi.myfield, "myvalue"
 
         headers = client.get_headers "alpha"
@@ -171,6 +190,8 @@ class OldRestTest < Test::Unit::TestCase
 
         assert_equal feis.size, 1
 
+        # releasing the fish...
+
         client.release_workitem wi
 
         headers = client.get_headers "alpha"
@@ -181,6 +202,8 @@ class OldRestTest < Test::Unit::TestCase
             client.save_workitem wi
         end
 
+        # catching it again
+
         wi = client.get_and_lock_workitem "alpha", fei
 
         wi.got_forwarded = true

data/test/param_test.rb

@@ -55,16 +55,20 @@ class ParameterTest < Test::Unit::TestCase
 
         #require 'pp' ; pp li
 
+        fei = nil
         e = nil
         
         begin
-            @engine.launch(li)
+            fei = @engine.launch(li)
         rescue Exception => e
             #puts e
             #puts OpenWFE::exception_to_s(e)
         end
 
         assert_nil e
+
+        sleep 0.500
+            # let the flow terminate on its own
     end
 
 

data/test/participant_test.rb

@@ -0,0 +1,39 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 16:18:25 JST 2006
+#
+
+require 'test/unit'
+
+require 'openwfe/engine/engine'
+require 'openwfe/participants/participants'
+
+#
+# testing misc things
+#
+
+class ParticipantTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_lookup_participant
+
+        engine = OpenWFE::Engine.new
+        engine.register_participant :toto, NullParticipant
+
+        p = engine.get_participant "toto"
+        assert_kind_of NullParticipant, p
+
+        p = engine.get_participant :toto
+        assert_kind_of NullParticipant, p
+    end
+
+end

data/test/rake_qtest.rb

@@ -6,11 +6,6 @@
 # Mon Oct  9 22:19:44 JST 2006
 #
 
-#require 'test/unit'
-
-#File.delete('engine.log') \
-#    if File.exist? 'engine.log'
-
 require 'fei_test'
 require 'wfid_test'
 require 'wi_test'
@@ -38,9 +33,12 @@ require 'ft_tests'
 
 #require 'ft_30_socketlistener'
 
+require 'participant_test'
 require 'hparticipant_test'
 require 'timeout_test'
 
 require 'slock_test'
 require 'orest_test.rb'
 
+#require 'atom_test.rb'
+

data/test/rest_test.rb

@@ -167,8 +167,8 @@ class RestTest < Test::Unit::TestCase
         puts
 
         wfid = exps[-1].id.workflow_instance_id
-        puts "get_flow_position() for flow #{wfid}"
-        exps = client.get_flow_position(wfid)
+        puts "get_flow_stack() for flow #{wfid}"
+        exps = client.get_flow_stack(wfid)
         display_expressions(exps)
 
         client.close()

data/test/scheduler_test.rb

@@ -8,7 +8,6 @@
 #
 
 require 'test/unit'
-#require 'openwfe/otime'
 require 'openwfe/util/scheduler'
 
 #
@@ -27,7 +26,7 @@ class SchedulerTest < Test::Unit::TestCase
 
         $var = nil
 
-        scheduler = OpenWFE::Scheduler.new()
+        scheduler = OpenWFE::Scheduler.new
         scheduler.sstart
 
         sid = scheduler.schedule_in('2s', :schedulable => TestSchedulable.new)
@@ -40,21 +39,19 @@ class SchedulerTest < Test::Unit::TestCase
             (not $var),
             "scheduler_0 is blocking but should not"
 
-        sleep(2.5)
+        sleep 2.5
         scheduler.sstop
 
         #puts ">#{$var}<"
 
-        assert \
-            ($var == "ok"),
-            "scheduler_0 didn't work"
+        assert_equal "ok", $var
     end
 
     def test_scheduler_1
 
         $var = nil
 
-        scheduler = OpenWFE::Scheduler.new()
+        scheduler = OpenWFE::Scheduler.new
         scheduler.sstart
 
         sid = scheduler.schedule_in('1s') do
@@ -69,14 +66,12 @@ class SchedulerTest < Test::Unit::TestCase
             (not $var),
             "scheduler_1 is blocking but should not"
 
-        sleep(2)
+        sleep 2
         scheduler.sstop
 
         #puts ">#{$var}<"
 
-        assert \
-            ($var == "ok..1"),
-            "scheduler_1 didn't work"
+        assert "ok..1", $var
     end
 
     #
@@ -103,7 +98,7 @@ class SchedulerTest < Test::Unit::TestCase
 
         #puts text
 
-        assert text == "onetwo"
+        assert_equal text, "onetwo"
     end
 
 
@@ -147,7 +142,7 @@ class SchedulerTest < Test::Unit::TestCase
         job_id = scheduler.schedule_every("500", es)
         #job_id = scheduler.schedule_every("500", :schedulable => es)
         
-        sleep(3.2)
+        sleep(3.4)
 
         assert_equal es.count, 6
 
@@ -169,7 +164,7 @@ class SchedulerTest < Test::Unit::TestCase
     #
     def test_scheduler_5
 
-        scheduler = OpenWFE::Scheduler.new()
+        scheduler = OpenWFE::Scheduler.new
         scheduler.sstart
 
         touched = false
@@ -188,7 +183,7 @@ class SchedulerTest < Test::Unit::TestCase
     #
     def test_scheduler_6
 
-        scheduler = OpenWFE::Scheduler.new()
+        scheduler = OpenWFE::Scheduler.new
         scheduler.start
 
         value = nil

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.0
 specification_version: 1
 name: openwferu
 version: !ruby/object:Gem::Version 
-  version: 0.9.11
-date: 2007-06-06 00:00:00 +09:00
+  version: 0.9.12
+date: 2007-07-10 00:00:00 +09:00
 summary: an open source ruby workflow and bpm engine
 require_paths: 
 - lib
@@ -58,6 +58,7 @@ files:
 - lib/openwfe/worklist
 - lib/openwfe/engine/engine.rb
 - lib/openwfe/engine/file_persisted_engine.rb
+- lib/openwfe/expool/errorjournal.rb
 - lib/openwfe/expool/expressionpool.rb
 - lib/openwfe/expool/expstorage.rb
 - lib/openwfe/expool/history.rb
@@ -84,7 +85,6 @@ files:
 - lib/openwfe/expressions/fe_losfor.rb
 - lib/openwfe/expressions/fe_misc.rb
 - lib/openwfe/expressions/fe_participant.rb
-- lib/openwfe/expressions/fe_raw.rb
 - lib/openwfe/expressions/fe_reserve.rb
 - lib/openwfe/expressions/fe_save.rb
 - lib/openwfe/expressions/fe_sequence.rb
@@ -97,6 +97,7 @@ files:
 - lib/openwfe/expressions/filter.rb
 - lib/openwfe/expressions/flowexpression.rb
 - lib/openwfe/expressions/merge.rb
+- lib/openwfe/expressions/raw.rb
 - lib/openwfe/expressions/raw_prog.rb
 - lib/openwfe/expressions/raw_xml.rb
 - lib/openwfe/expressions/simplerep.rb
@@ -184,6 +185,8 @@ files:
 - test/ft_24_def.rb
 - test/ft_25_cancel.rb
 - test/ft_26_load.rb
+- test/ft_26b_load.rb
+- test/ft_26c_load.rb
 - test/ft_27_getflowpos.rb
 - test/ft_28_fileparticipant.rb
 - test/ft_29_httprb.rb
@@ -224,7 +227,10 @@ files:
 - test/ft_55_ptimeout.rb
 - test/ft_56_timeout.rb
 - test/ft_57_a.rb
+- test/ft_58_ejournal.rb
+- test/ft_59_ps.rb
 - test/ft_5_time.rb
+- test/ft_60_ecancel.rb
 - test/ft_6_lambda.rb
 - test/ft_7_lose.rb
 - test/ft_7b_lose.rb
@@ -240,6 +246,7 @@ files:
 - test/obs_test.rb
 - test/orest_test.rb
 - test/param_test.rb
+- test/participant_test.rb
 - test/pending.rb
 - test/rake_qtest.rb
 - test/rake_test.rb