openwferu 0.9.2 → 0.9.3

data/test/{misctest.rb → misc_test.rb}

@@ -52,7 +52,7 @@ class MiscTest < Test::Unit::TestCase
         a0 = A.new
         a0.a = 1
         a0.b = 2
-        a1 = OpenWFE::dup(a0)
+        a1 = OpenWFE::fulldup(a0)
 
         #puts a0
         #puts a1

data/test/rake_qtest.rb

@@ -11,12 +11,13 @@
 File.delete('engine.log') \
     if File.exist? 'engine.log'
 
-require 'feitest'
-require 'dollartest'
-require 'misctest'
-require 'timetest'
+require 'fei_test'
+require 'dollar_test'
+require 'misc_test'
+require 'time_test'
 require 'raw_prog_test'
 require 'file_persistence_test'
+require 'cronline_test'
 
 #require 'journal_persistence_test'
     #
@@ -40,4 +41,9 @@ require 'ft_14_subprocess'
 require 'ft_14b_subprocess'
 require 'ft_15_iterator'
 require 'ft_16_fqv'
+require 'ft_17_condition'
+require 'ft_18_pname'
+
+require 'hparticipant_test'
+require 'timeout_test'
 

data/test/rake_test.rb

@@ -8,7 +8,18 @@
 
 #require 'test/unit'
 
+#
+# the tests that take lots of time...
+#
 require 'ft_5_time'
-require 'timetest'
+require 'scheduler_test'
+require 'cron_test'
+
+require 'restart_test'
+require 'restart_cron_test'
+
+#
+# the quick tests
+#
 require 'rake_qtest'
 

data/test/raw_prog_test.rb

@@ -175,7 +175,7 @@ class RawProgTest < Test::Unit::TestCase
     CODE_DEF3 = """
 process_definition :name => 'test3', :revision => '0' do
     _if do
-        equals :field-value => 'nada', :other-value => 'surf'
+        equals :field_value => 'nada', :other_value => 'surf'
         participant :ref => 'b'
     end
 end""".strip

data/test/restart_cron_test.rb

@@ -0,0 +1,78 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 15:41:44 JST 2006
+#
+
+require 'test/unit'
+
+require 'openwfe/workitem'
+require 'openwfe/engine/file_persisted_engine'
+require 'openwfe/expressions/raw_prog'
+
+require 'rutest_utils'
+
+include OpenWFE
+
+
+class RestartTest < Test::Unit::TestCase
+
+    #def setup
+    #    @engine = $WORKFLOW_ENGINE_CLASS.new()
+    #end
+
+    #def teardown
+    #end
+
+    class RestartDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "rs0", :revision => "0" do
+                cron :tab => "* * * * *", :name => "//cron" do
+                    participant :cron_event
+                end
+            end
+        end
+    end
+
+    def test_restart_0
+
+        engine = FilePersistedEngine.new
+
+        count = 0
+
+        participant = lambda do
+            #puts "______________________ :cron_event"
+            count = count + 1
+        end
+
+        engine.register_participant(:cron_event, &participant)
+
+        engine.launch(RestartDefinition0)
+
+        sleep(60)
+
+        engine.stop()
+
+        #puts "___restarting to new engine"
+
+        old_engine = engine
+        engine = FilePersistedEngine.new
+
+        engine.register_participant(:cron_event, &participant)
+
+        sleep(60)
+
+        engine.stop()
+
+        #puts "_count : #{count}"
+
+        assert \
+            count == 2,
+            "the cron expression should have counted to 2, "+
+            "but it counted to #{count}"
+    end
+
+end
+

data/test/restart_test.rb

@@ -0,0 +1,79 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 15:41:44 JST 2006
+#
+# somewhere between Philippina and the Japan
+#
+
+require 'test/unit'
+
+require 'openwfe/workitem'
+require 'openwfe/engine/file_persisted_engine'
+require 'openwfe/expressions/raw_prog'
+
+require 'rutest_utils'
+
+include OpenWFE
+
+
+class RestartTest < Test::Unit::TestCase
+
+    #def setup
+    #    @engine = $WORKFLOW_ENGINE_CLASS.new()
+    #end
+
+    #def teardown
+    #end
+
+    class RestartDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "rs0", :revision => "0" do
+                sequence do
+                    _sleep :for => "10s"
+                    _print "after"
+                end
+            end
+        end
+    end
+
+    def test_restart_0
+        engine = new_engine
+
+        li = LaunchItem.new(RestartDefinition0)
+
+        engine.launch(li)
+
+        sleep(1)
+
+        engine.stop()
+
+        $OWFE_LOG.warn "stopped the engine"
+
+        old_engine = engine
+        engine = new_engine
+
+        $OWFE_LOG.warn "started the new engine"
+
+        sleep(11)
+        #sleep(21)
+
+        s_old = old_engine.application_context["__tracer"].to_s
+        s_now = engine.application_context["__tracer"].to_s
+
+        assert (s_old == "" and s_now == "after")
+    end
+
+    protected
+
+        def new_engine
+            engine = FilePersistedEngine.new()
+            tracer = Tracer.new
+            engine.application_context["__tracer"] = tracer
+            return engine
+        end
+
+end
+

data/test/scheduler_test.rb

@@ -0,0 +1,92 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 16:18:25 JST 2006
+#
+
+require 'test/unit'
+#require 'openwfe/otime'
+require 'openwfe/util/scheduler'
+
+#
+# testing otime and the scheduler
+#
+
+class SchedulerTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_scheduler_0
+
+        $var = nil
+
+        scheduler = OpenWFE::Scheduler.new()
+        scheduler.start
+
+        sid = scheduler.schedule_in('2s', TestSchedulable.new, nil)
+
+        assert \
+            sid,
+            "scheduler_0 did not return a job id"
+
+        assert \
+            (not $var),
+            "scheduler_0 is blocking but should not"
+
+        sleep(2.5)
+        scheduler.do_stop
+
+        #puts ">#{$var}<"
+
+        assert \
+            ($var == "ok"),
+            "scheduler_0 didn't work"
+    end
+
+    def test_scheduler_1
+
+        $var = nil
+
+        scheduler = OpenWFE::Scheduler.new()
+        scheduler.start
+
+        sid = scheduler.schedule_in('1s') do
+            $var = "ok..1"
+        end
+
+        assert \
+            sid,
+            "scheduler_1 did not return a job id"
+
+        assert \
+            (not $var),
+            "scheduler_1 is blocking but should not"
+
+        sleep(2)
+        scheduler.do_stop
+
+        #puts ">#{$var}<"
+
+        assert \
+            ($var == "ok..1"),
+            "scheduler_1 didn't work"
+    end
+
+    protected
+
+        class TestSchedulable
+            include OpenWFE::Schedulable
+
+            def trigger (params)
+                $var = "ok"
+            end
+        end
+
+end

data/test/{timetest.rb → time_test.rb}

@@ -8,8 +8,8 @@
 #
 
 require 'test/unit'
-require 'openwfe/otime'
-require 'openwfe/util/scheduler'
+
+require 'openwfe/util/otime'
 
 #
 # testing otime and the scheduler
@@ -24,7 +24,7 @@ class TimeTest < Test::Unit::TestCase
     #end
 
     #def test_to_iso_date
-    def xxxx_to_iso_date
+    def XXXX_to_iso_date
         #
         # well... this test is not timezone friendly...
         # commented out thus...
@@ -72,43 +72,8 @@ class TimeTest < Test::Unit::TestCase
         pts("1h10s", 3610.0)
     end
 
-    def test_scheduler_0
-
-        $var = nil
-
-        scheduler = OpenWFE::Scheduler.new()
-        scheduler.start
-
-        sid = scheduler.schedule_in('2s', TestSchedulable.new, nil)
-
-        assert \
-            sid,
-            "scheduler did not return a job id"
-
-        assert \
-            (not $var),
-            "scheduler_0 is blocking but should not"
-
-        sleep(2.5)
-        scheduler.stop
-
-        #puts ">#{$var}<"
-
-        assert \
-            ($var == "ok"),
-            "scheduler_0 didn't work"
-    end
-
     protected
 
-        class TestSchedulable
-            include OpenWFE::Schedulable
-
-            def trigger (params)
-                $var = "ok"
-            end
-        end
-
         def pts (time_string, seconds)
 
             assert \

data/test/timeout_test.rb

@@ -0,0 +1,73 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 15:41:44 JST 2006
+#
+# somewhere between Philippina and the Japan
+#
+
+require 'test/unit'
+
+#require 'openwfe/workitem'
+require 'openwfe/engine/engine'
+require 'openwfe/expressions/raw_prog'
+require 'openwfe/worklist/storeparticipant'
+
+require 'rutest_utils'
+
+include OpenWFE
+
+
+class TimeoutTest < Test::Unit::TestCase
+
+    #def setup
+    #    @engine = $WORKFLOW_ENGINE_CLASS.new()
+    #end
+
+    #def teardown
+    #end
+
+    class TimeoutDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "to0", :revision => "0" do
+                sequence do
+                    participant :ref => "albert", :timeout => "500"
+                    _print "over"
+                end
+            end
+        end
+    end
+
+    def test_timeout_0
+
+        albert = HashParticipant.new
+
+        engine = Engine.new
+
+        engine.application_context["__tracer"] = Tracer.new
+
+        engine.register_participant(:albert, albert)
+
+        li = LaunchItem.new(TimeoutDefinition0)
+
+        engine.launch(li)
+
+        sleep(2)
+
+        s = engine.application_context["__tracer"].to_s
+
+        #puts "trace is >#{s}<"
+        #puts "albert.size is #{albert.size}"
+
+        assert \
+            albert.size == 0,
+            "workitem was not removed from workitem store"
+        assert \
+            s == "over",
+            "flow did not reacher 'over'"
+    end
+
+end
+