openwferu 0.9.10.653 → 0.9.11

data/test/orest_test.rb

@@ -0,0 +1,224 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+
+require 'test/unit'
+require 'fileutils'
+require 'webrick'
+
+require 'rutest_utils'
+require 'openwfe/rest/worklistclient'
+require 'openwfe/engine/engine'
+require 'openwfe/worklist/oldrest'
+require 'openwfe/worklist/storelocks'
+require 'openwfe/worklist/storeparticipant'
+require 'openwfe/worklist/worklist'
+
+
+class OldRestTest < Test::Unit::TestCase
+
+    def setup
+
+        #$DEBUG = true
+
+        @engine = Engine.new
+
+        FileUtils.mkdir "logs" unless File.exist?("logs")
+
+        logger = WEBrick::Log.new "logs/orest_test.webrick.log"
+        logger.level = WEBrick::Log::DEBUG
+
+        @worklist = OpenWFE::Worklist.new(
+            @engine.application_context,
+            :auth_system => { "foo" => "bar" })
+            #:launchables => {})
+
+        @worklist.add_store(
+            "alpha", 
+            "alpha", 
+            OpenWFE::StoreWithLocks.new(OpenWFE::HashParticipant))
+        @worklist.add_store(
+            "bravo", 
+            "bravo", 
+            OpenWFE::StoreWithLocks.new(OpenWFE::HashParticipant))
+        
+        @engine.register_participant :alpha, @worklist
+        @engine.register_participant :bravo, @worklist
+
+        @server = WEBrick::HTTPServer.new(
+            :Port => 5080,
+            :BindAddress => "0.0.0.0",
+            :Logger => logger,
+            :AccessLog => [[ 
+                File.open("logs/orest_test.access.log", "w"), 
+                WEBrick::AccessLog::COMMON_LOG_FORMAT ]])
+
+        @server.mount(
+            "/worklist", 
+            OpenWFE::OldRestWorklistServlet, 
+            :AuthSystem => @worklist,
+            :Worklist => @worklist)
+
+        Thread.new do
+            @server.start
+        end
+    end
+
+    def get_servlet
+        servlet_class = @server.search_servlet("/worklist")[0]
+        servlet_class.get_instance(@server, {})
+    end
+
+    def teardown
+        @server.shutdown
+        @engine.stop
+    end
+
+
+    def test_0
+
+        #sleep 0.1
+        
+        assert_raise RuntimeError do
+            client = OpenWFE::WorklistClient.new(
+                "http://localhost:5080/worklist", "foo", "foo")
+        end
+
+        client = OpenWFE::WorklistClient.new(
+            "http://localhost:5080/worklist", "foo", "bar")
+
+        assert client.session_id > 0
+
+        assert_equal get_servlet.instance_variable_get(:@sessions).size, 1
+
+        l = client.list_stores
+        #l.each do |s|
+        #    require 'pp'; pp s
+        #end
+
+        assert_equal l.size, 2
+
+        store = l[0]
+
+        assert_equal store.name, "alpha"
+
+        assert_raise RuntimeError do
+            client.get_headers "nada"
+        end
+
+        actual_store = @worklist.get_store "alpha"
+        actual_store.consume(new_workitem())
+
+        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"
+
+        #
+        # launching a new process...
+
+        li = LaunchItem.new('''
+<process-definition name="orest" revision="1">
+    <sequence>
+        <participant ref="alpha" />
+        <participant ref="bravo" />
+    </sequence>
+</process-definition>
+        '''.strip)
+        li.myfield = "myvalue"
+
+        fei = client.launch_flow "any", li
+
+        assert_kind_of OpenWFE::FlowExpressionId, fei
+
+        sleep 0.7
+
+        headers = client.get_headers "alpha"
+
+        #require 'pp'; pp headers
+
+        assert_equal headers.size, 2
+
+        fei.expression_id = "0.0.0"
+        fei.expression_name = "participant"
+
+        wi = client.get_workitem "alpha", fei
+
+        assert_equal wi.myfield, "myvalue"
+
+        wi = client.get_and_lock_workitem "alpha", fei
+
+        assert_equal wi.myfield, "myvalue"
+
+        headers = client.get_headers "alpha"
+
+        h = nil
+        headers.each do |hh|
+            if hh.locked
+                h = hh
+                break
+            end
+        end
+
+        assert_equal h.fei, fei
+
+        feis = client.find_flow_instance "alpha", fei.wfid
+
+        assert_equal feis.size, 1
+
+        client.release_workitem wi
+
+        headers = client.get_headers "alpha"
+
+        assert (not (headers[0].locked or headers[1].locked))
+
+        assert_raise RuntimeError do
+            client.save_workitem wi
+        end
+
+        wi = client.get_and_lock_workitem "alpha", fei
+
+        wi.got_forwarded = true
+
+        client.forward_workitem wi
+
+        headers = client.get_headers "alpha"
+
+        assert_equal headers.size, 1
+
+        assert_nil headers[0].attributes['got_forwarded']
+            #
+            # still our old initial workitem, inserted manually
+
+        sleep 0.500
+
+        headers = client.get_headers "bravo"
+
+        assert_equal headers.size, 1
+
+        assert_equal headers[0].got_forwarded, true
+
+        #
+        # done
+
+        client.close
+
+        assert_equal get_servlet.instance_variable_get(:@sessions).size, 0
+    end
+
+    protected
+
+        def new_workitem ()
+            wi = OpenWFE::InFlowWorkItem.new
+            wi.fei = new_fei()
+            wi.attributes = { "nada" => "surf" }
+            wi
+        end
+
+end
+

data/test/pending.rb

@@ -0,0 +1,24 @@
+
+#
+# a method for checking the number of pending jobs left in the engine
+#
+
+require 'openwfe/engine/file_persisted_engine'
+
+
+module PendingJobsMixin
+
+    def assert_no_jobs_left
+
+        min_jobs = if @engine.is_a?(OpenWFE::CachedFilePersistedEngine)
+            1
+        #elsif @engine.is_a?(OpenWFE::FilePersistedEngine)
+        #    0
+        else
+            0
+        end
+
+        assert_equal @engine.get_scheduler.pending_job_count, min_jobs
+    end
+end
+

data/test/rake_qtest.rb

@@ -27,6 +27,7 @@ require 'csv_test'
 require 'safely_test'
 require 'kotoba_test'
 require 'expmap_test'
+require 'obs_test'
 
 require 'sec_test'
 require 'param_test'
@@ -35,8 +36,11 @@ require 'ft_tests'
     #
     # all the 'ft' tests are required in 'ft_tests.rb'
 
-require 'ft_30_socketlistener'
+#require 'ft_30_socketlistener'
 
 require 'hparticipant_test'
 require 'timeout_test'
 
+require 'slock_test'
+require 'orest_test.rb'
+

data/test/rake_test.rb

@@ -21,6 +21,10 @@ require 'ft_20_cron'
 require 'ft_21_cron'
 require 'ft_51_stack'
 
+require 'ft_30_socketlistener'
+    #
+    # shaky test...
+
 #
 # the quick tests
 #

data/test/scheduler_test.rb

@@ -30,7 +30,7 @@ class SchedulerTest < Test::Unit::TestCase
         scheduler = OpenWFE::Scheduler.new()
         scheduler.sstart
 
-        sid = scheduler.schedule_in('2s', TestSchedulable.new, nil)
+        sid = scheduler.schedule_in('2s', :schedulable => TestSchedulable.new)
 
         assert \
             sid,
@@ -144,7 +144,8 @@ class SchedulerTest < Test::Unit::TestCase
 
         es = EverySchedulable.new
 
-        job_id = scheduler.schedule_every("500", es, nil)
+        job_id = scheduler.schedule_every("500", es)
+        #job_id = scheduler.schedule_every("500", :schedulable => es)
         
         sleep(3.2)
 
@@ -182,6 +183,34 @@ class SchedulerTest < Test::Unit::TestCase
         scheduler.sstop
     end
 
+    #
+    # Testing to see if a second job with the same id discards the first one.
+    #
+    def test_scheduler_6
+
+        scheduler = OpenWFE::Scheduler.new()
+        scheduler.start
+
+        value = nil
+
+        scheduler.schedule_in "3s", :job_id => "job" do
+            value = 0
+        end
+        scheduler.schedule_in "2s", :job_id => "job" do
+            value = 1
+        end
+
+        sleep 2.5
+
+        assert_equal value, 1
+
+        sleep 4
+
+        assert_equal value, 1
+
+        scheduler.stop
+    end
+
     protected
 
         class TestSchedulable

data/test/sec_test.rb

@@ -43,7 +43,9 @@ class SecTest < Test::Unit::TestCase
 
         dotest(engine, def0)
 
-        assert ((OpenWFE::grep "Insecure operation - initialize", "engine.log").size > 0)
+        assert((
+            OpenWFE::grep "Insecure operation - initialize", 
+            "logs/openwferu.log").size > 0)
 
         def1 = \
 '''<process-definition name="" revision="0">
@@ -61,7 +63,9 @@ class SecTest < Test::Unit::TestCase
 
         dotest(engine, def1)
 
-        assert ((OpenWFE::grep "undefined method `my_name' for \"stringobject\":String", "engine.log").size > 0)
+        assert((
+            OpenWFE::grep "undefined method `my_name' for \"stringobject\":String", 
+            "logs/openwferu.log").size > 0)
 
         def2 = \
 '''<process-definition name="" revision="0">
@@ -92,7 +96,7 @@ class SecTest < Test::Unit::TestCase
         dotest(engine, def3)
 
         assert OpenWFE::grep(
-            "evaluation of ruby code is not allowed", "engine.log")
+            "evaluation of ruby code is not allowed", "logs/openwferu.log")
 
         engine.stop
     end

data/test/slock_test.rb

@@ -0,0 +1,82 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+
+require 'test/unit'
+require 'openwfe/worklist/storelocks'
+require 'openwfe/worklist/storeparticipant'
+
+include OpenWFE
+
+
+class MockItem
+    attr_reader :fei
+    def initialize (fei)
+        @fei = fei
+    end
+    def flow_expression_id
+        @fei
+    end
+end
+
+class StoreLockTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_0
+
+        store = StoreWithLocks.new(HashParticipant)
+
+        wi0 = MockItem.new("fei")
+
+        store.store.push(wi0)
+
+        wi1 = store.get_and_lock("locker_a", "fei")
+
+        assert_not_nil wi1
+        assert_equal wi0.object_id, wi1.object_id
+
+        assert_raise RuntimeError do
+            wi2 = store.get_and_lock("locker_b", "fei")
+        end
+
+        assert_equal store.get_locker("fei"), "locker_a"
+
+        assert_raise RuntimeError do
+            store.release "locker_b", "fei"
+        end
+
+        store.release "locker_a", "fei"
+
+        assert_nil store.get_locker("fei")
+    end
+
+    def test_1
+
+        store = StoreWithLocks.new(
+            HashParticipant,
+            nil,
+            :lock_max_age => "100")
+
+        wi0 = MockItem.new("fei")
+
+        store.store.push(wi0)
+
+        wi1 = store.get_and_lock("locker_a", "fei")
+
+        assert_not_nil wi1
+
+        sleep 1
+
+        assert_nil store.get_locker("fei")
+    end
+
+end
+

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.0
 specification_version: 1
 name: openwferu
 version: !ruby/object:Gem::Version 
-  version: 0.9.10.653
-date: 2007-04-27 00:00:00 +09:00
+  version: 0.9.11
+date: 2007-06-06 00:00:00 +09:00
 summary: an open source ruby workflow and bpm engine
 require_paths: 
 - lib
@@ -80,6 +80,7 @@ files:
 - lib/openwfe/expressions/fe_fqv.rb
 - lib/openwfe/expressions/fe_if.rb
 - lib/openwfe/expressions/fe_iterator.rb
+- lib/openwfe/expressions/fe_listen.rb
 - lib/openwfe/expressions/fe_losfor.rb
 - lib/openwfe/expressions/fe_misc.rb
 - lib/openwfe/expressions/fe_participant.rb
@@ -89,6 +90,7 @@ files:
 - lib/openwfe/expressions/fe_sequence.rb
 - lib/openwfe/expressions/fe_sleep.rb
 - lib/openwfe/expressions/fe_subprocess.rb
+- lib/openwfe/expressions/fe_timeout.rb
 - lib/openwfe/expressions/fe_value.rb
 - lib/openwfe/expressions/fe_wait.rb
 - lib/openwfe/expressions/fe_when.rb
@@ -117,6 +119,7 @@ files:
 - lib/openwfe/rest/controlclient.rb
 - lib/openwfe/rest/definitions.rb
 - lib/openwfe/rest/exception.rb
+- lib/openwfe/rest/oldrestservlet.rb
 - lib/openwfe/rest/osocket.rb
 - lib/openwfe/rest/restclient.rb
 - lib/openwfe/rest/worklistclient.rb
@@ -137,7 +140,10 @@ files:
 - lib/openwfe/util/schedulers.rb
 - lib/openwfe/util/sqs.rb
 - lib/openwfe/util/workqueue.rb
+- lib/openwfe/worklist/oldrest.rb
+- lib/openwfe/worklist/storelocks.rb
 - lib/openwfe/worklist/storeparticipant.rb
+- lib/openwfe/worklist/worklist.rb
 - test/atom_test.rb
 - test/console_test.rb
 - test/cron_test.rb
@@ -187,7 +193,8 @@ files:
 - test/ft_30_socketlistener.rb
 - test/ft_31_flowname.rb
 - test/ft_32_journal.rb
-- test/ft_32b_journal.rb
+- test/ft_32c_journal.rb
+- test/ft_32d_journal.rb
 - test/ft_33_description.rb
 - test/ft_34_cancelwfid.rb
 - test/ft_35_localdefs.rb
@@ -212,6 +219,11 @@ files:
 - test/ft_50_xml_attribute.rb
 - test/ft_51_stack.rb
 - test/ft_52_obs_participant.rb
+- test/ft_53_null_noop_participant.rb
+- test/ft_54_listen.rb
+- test/ft_55_ptimeout.rb
+- test/ft_56_timeout.rb
+- test/ft_57_a.rb
 - test/ft_5_time.rb
 - test/ft_6_lambda.rb
 - test/ft_7_lose.rb
@@ -225,7 +237,10 @@ files:
 - test/lru_test.rb
 - test/misc_test.rb
 - test/nut_0_irb.rb
+- test/obs_test.rb
+- test/orest_test.rb
 - test/param_test.rb
+- test/pending.rb
 - test/rake_qtest.rb
 - test/rake_test.rb
 - test/raw_prog_test.rb
@@ -239,6 +254,7 @@ files:
 - test/safely_test.rb
 - test/scheduler_test.rb
 - test/sec_test.rb
+- test/slock_test.rb
 - test/sqs_test.rb
 - test/time_test.rb
 - test/timeout_test.rb

data/test/ft_32b_journal.rb

@@ -1,76 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Mon Oct  9 22:19:44 JST 2006
-#
-
-require 'openwfe/def'
-
-require 'flowtestbase'
-
-require 'openwfe/expool/journal'
-
-
-
-class FlowTest32b < Test::Unit::TestCase
-    include FlowTestBase
-
-    #def teardown
-    #end
-
-    #def setup
-    #end
-
-    #
-    # TEST 0
-
-    class TestDefinition0 < ProcessDefinition
-        sequence do
-            participant :alpha
-            participant :bravo
-        end
-    end
-
-    #def xxxx_journal_0
-    def test_journal_0
-
-        #@engine.application_context[:keep_journals] = true
-
-        @engine.init_service "journal", Journal
-
-        @engine.register_participant(:alpha) do |wi|
-            @tracer << "alpha\n"
-            sleep(90)
-        end
-        @engine.register_participant(:bravo) do |wi|
-            @tracer << "bravo\n"
-        end
-
-        journal_service = @engine.application_context["journal"]
-
-        fei = dotest(TestDefinition0, "alpha\nbravo")
-
-        return
-
-        fn = journal_service.donedir + "/" + fei.wfid + ".journal"
-
-        #journal_service.analyze fn
-
-        #sleep(10)
-
-        assert_equal @engine.get_expression_storage.size, 1
-
-        journal_service.replay fn, 18
-
-        assert_equal @engine.get_expression_storage.size, 6
-
-        journal_service.replay fn, 18, true
-
-        assert_equal @engine.get_expression_storage.size, 1
-    end
-
-end
-