openwferu 0.9.16 → 0.9.17

data/test/restart_paused_test.rb

@@ -0,0 +1,100 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Feb  7 15:26:57 JST 2008
+#
+
+require 'test/unit'
+
+require 'openwfe/workitem'
+require 'openwfe/engine/file_persisted_engine'
+require 'openwfe/def'
+
+require 'rutest_utils'
+
+include OpenWFE
+
+
+class RestartPauseTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # sleep tests
+
+    class SleepDef < ProcessDefinition
+        _sleep :for => "1M"
+    end
+
+    def test_restart_0
+        dotest FilePersistedEngine, SleepDef
+    end
+    def test_restart_1
+        dotest CachedFilePersistedEngine, SleepDef
+    end
+
+    protected
+
+        def dotest (engine_class, def_class)
+
+            #require 'fileutils'
+            #FileUtils.remove_dir "work" if File.exist? "work"
+
+            engine = new_engine engine_class
+
+            #$OWFE_LOG.level = Logger::DEBUG
+
+            li = LaunchItem.new def_class
+
+            fei = engine.launch li
+
+            sleep 0.350
+
+            engine.pause_process fei.wfid
+
+            sleep 0.350
+
+            engine.stop
+
+            $OWFE_LOG.warn "stopped the engine"
+
+            old_engine = engine
+            engine = new_engine engine_class
+
+            #$OWFE_LOG.level = Logger::DEBUG
+
+            $OWFE_LOG.warn "started the new engine"
+
+            sleep 0.350
+
+            assert_equal(
+                true, engine.get_expression_pool.paused_instances[fei.wfid])
+
+            engine.stop
+
+            sleep 0.350
+        end
+
+        def new_engine (engine_class)
+
+            engine = engine_class.new()
+
+            tracer = Tracer.new
+            engine.application_context["__tracer"] = tracer
+
+            #engine.register_participant :nemo, NullParticipant
+
+            #engine.reschedule
+            engine.reload
+
+            engine
+        end
+
+end
+

data/test/restart_sleep_test.rb

@@ -12,7 +12,7 @@ require 'test/unit'
 
 require 'openwfe/workitem'
 require 'openwfe/engine/file_persisted_engine'
-require 'openwfe/expressions/raw_prog'
+require 'openwfe/def'
 
 require 'rutest_utils'
 

data/test/restart_tests.rb

@@ -12,4 +12,5 @@
 require 'restart_sleep_test'
 require 'restart_cron_test'
 require 'restart_when_test'
+require 'restart_paused_test'
 

data/test/restart_when_test.rb

@@ -12,7 +12,7 @@ require 'test/unit'
 
 require 'openwfe/workitem'
 require 'openwfe/engine/file_persisted_engine'
-require 'openwfe/expressions/raw_prog'
+require 'openwfe/def'
 
 require 'rutest_utils'
 
@@ -29,22 +29,21 @@ class RestartWhenTest < Test::Unit::TestCase
     #end
 
     class RestartWhenDefinition0 < ProcessDefinition
-        def make
-            concurrence do
-                _when :test => "${v:done} == true", :frequency => "1s" do
-                #_when :test => "${v:done} == true" do
-                    _print "when triggered"
-                end
-                sequence do
-                    _sleep "2s"
-                    _set :variable => "done", :value => "true"
-                    _print "done"
-                end
+        concurrence do
+            _when :test => "${v:done} == true", :frequency => "1s" do
+            #_when :test => "${v:done} == true" do
+                _print "when triggered"
+            end
+            sequence do
+                _sleep "2s"
+                _set :variable => "done", :value => "true"
+                _print "done"
             end
         end
     end
 
     def test_restart_0
+
         dotest FilePersistedEngine
     end
 
@@ -56,24 +55,27 @@ class RestartWhenTest < Test::Unit::TestCase
 
         def dotest (engine_class)
 
-            engine = new_engine(engine_class)
+            engine = new_engine engine_class
 
-            li = LaunchItem.new(RestartWhenDefinition0)
+            li = LaunchItem.new RestartWhenDefinition0
 
-            engine.launch(li)
+            engine.launch li
 
-            sleep(1)
+            sleep 1
 
-            engine.stop()
+            engine.stop
 
-            $OWFE_LOG.warn "stopped the engine"
+            $OWFE_LOG.warn " === stopped the engine"
+            #display_pool :one
 
             old_engine = engine
-            engine = new_engine(engine_class)
+            engine = new_engine engine_class
 
-            $OWFE_LOG.warn "started the new engine"
+            $OWFE_LOG.warn " === started the new engine"
+            #display_pool :two
 
-            sleep(3)
+            sleep 3 
+            #display_pool :three
 
             s_old = old_engine.application_context["__tracer"].to_s
             s_now = engine.application_context["__tracer"].to_s
@@ -88,9 +90,18 @@ class RestartWhenTest < Test::Unit::TestCase
             engine.stop
         end
 
+        #def display_pool (msg)
+        #    puts 
+        #    puts ".... #{msg}"
+        #    puts `ls -R work`
+        #    puts 
+        #end
+
         def new_engine (engine_class)
 
-            engine = engine_class.new()
+            engine = engine_class.new
+
+            #$OWFE_LOG.level = Logger::DEBUG
 
             tracer = Tracer.new
             engine.application_context["__tracer"] = tracer

data/test/ruby_procdef_test.rb

@@ -50,21 +50,19 @@ class RubyProcDefTest < Test::Unit::TestCase
         fei1 = @engine.launch Test0
         sleep 0.200
 
-        stack0 = @engine.get_process_stack fei0.wfid
-        #puts stack0
-        stack1 = @engine.get_process_stack fei1.wfid
-        #puts stack1
+        stack0 = @engine.process_stack fei0.wfid
+        stack1 = @engine.process_stack fei1.wfid
 
-        assert_equal stack0.size, 3
-        assert_equal stack1.size, 3
+        assert_equal 3, stack0.size
+        assert_equal 3, stack1.size
 
-        assert_equal count_files(fei0.wfid), 4
-        assert_equal count_files(fei1.wfid), 4
+        assert_equal 4, count_files(fei0.wfid)
+        assert_equal 4, count_files(fei1.wfid)
 
         @engine.cancel_process(fei0.wfid)
         @engine.cancel_process(fei1.wfid)
 
-        sleep 0.100
+        sleep 0.350
     end
 
 
@@ -79,27 +77,30 @@ end
     def test_1
 
         fei0 = launch TEST1
-        sleep 0.200
+        sleep 0.100
         fei1 = launch TEST1
         sleep 0.200
 
-        assert_equal ProcessDefinition.extract_class(TEST1), Test1
+        #assert_equal ProcessDefinition.extract_class(TEST1), Test1
+        assert_equal(
+            OpenWFE::ProcessDefinition::Test1,
+            ProcessDefinition.extract_class(TEST1))
 
-        stack0 = @engine.get_process_stack fei0.wfid
+        stack0 = @engine.process_stack fei0.wfid
         #puts stack0
-        stack1 = @engine.get_process_stack fei1.wfid
+        stack1 = @engine.process_stack fei1.wfid
         #puts stack1
 
-        assert_equal stack0.size, 3
-        assert_equal stack1.size, 3
+        assert_equal 3, stack0.size
+        assert_equal 3, stack1.size
 
-        assert_equal count_files(fei0.wfid), 4
-        assert_equal count_files(fei1.wfid), 4
+        assert_equal 4, count_files(fei0.wfid)
+        assert_equal 4, count_files(fei1.wfid)
 
         @engine.cancel_process(fei0.wfid)
         @engine.cancel_process(fei1.wfid)
 
-        sleep 0.100
+        sleep 0.350
     end
 
     protected

data/test/sec_test.rb

@@ -47,28 +47,6 @@ class SecTest < Test::Unit::TestCase
                 "Insecure operation - initialize", 
                 "logs/openwferu.log").size > 0)
 
-        def1 =
-'''<process-definition name="" revision="0">
-    <sequence>
-        <reval>
-            class Object
-                def my_name
-                    "toto"
-                end
-            end
-            "stringobject".my_name
-        </reval>
-    </sequence>
-</process-definition>''' 
-
-        dotest engine, def1
-
-        assert_equal(
-            1, 
-            OpenWFE::grep(
-                "undefined method `my_name' for \"stringobject\":String", 
-                "logs/openwferu.log").size)
-
         def2 =
 '''<process-definition name="" revision="0">
     <sequence>
@@ -103,6 +81,50 @@ class SecTest < Test::Unit::TestCase
         engine.stop
     end
 
+    def test_sec_0b
+
+        engine = OpenWFE::Engine.new
+
+        engine.ac[:ruby_eval_allowed] = true
+
+        def1 =
+'''<process-definition name="" revision="0">
+    <sequence>
+        <reval>
+            class Object
+                def my_name
+                    "toto"
+                end
+            end
+            "stringobject".my_name
+        </reval>
+    </sequence>
+</process-definition>''' 
+
+        dotest engine, def1
+
+        assert_equal(
+            1, 
+            OpenWFE::grep(
+                "undefined method `my_name' for \"stringobject\":String", 
+                "logs/openwferu.log").size)
+        #assert_equal(
+        #    1, 
+        #    OpenWFE::grep(
+        #        "Insecure: can't set constant",
+        #        "logs/openwferu.log").size)
+            #
+            # level 4 is too much (can't modify hashes)...
+    end
+
+    XMLDEF =
+'''<process-definition name="" revision="0">
+    <sequence>
+        <set field="f" value="${ruby:5*7}" />
+        <toto/>
+    </sequence>
+</process-definition>''' 
+
     def test_sec_1
 
         value = nil
@@ -119,31 +141,48 @@ class SecTest < Test::Unit::TestCase
             value = "#{workitem.attributes.size}_#{workitem.f}"
         end
 
-        def0 =
-'''<process-definition name="" revision="0">
-    <sequence>
-        <set field="f" value="${ruby:5*7}" />
-        <toto/>
-    </sequence>
-</process-definition>''' 
-
-        engine.launch(OpenWFE::LaunchItem.new(def0))
+        engine.launch XMLDEF
 
-        sleep 0.200
+        sleep 0.350
 
         assert_equal "3_", value
 
+        engine.stop
+    end
+    
+    def test_sec_1b
+
+        value = nil
+
+        engine = OpenWFE::Engine.new
+
+        engine.register_participant(:toto) do |workitem|
+
+            workitem.attributes.delete("___map_type")
+                #
+                # if the xmlencoder was used in previous, this field
+                # might be set, removing it.
+
+            value = "#{workitem.attributes.size}_#{workitem.f}"
+        end
+
         engine.ac[:ruby_eval_allowed] = true
 
-        engine.launch(OpenWFE::LaunchItem.new(def0))
+        engine.launch XMLDEF
 
-        sleep 0.200
+        sleep 0.350
 
         assert_equal "3_35", value
 
         engine.stop
     end
 
+    def test_sec_2
+
+        assert_equal 35, Rufus::eval_safely("5*7", 4)
+        assert_equal 35, Rufus::eval_safely("5*7", 4, binding())
+    end
+
     protected
 
         def dotest (engine, def_or_li)
@@ -156,7 +195,7 @@ class SecTest < Test::Unit::TestCase
             
             engine.launch(li)
 
-            sleep 0.250
+            sleep 0.350
         end
 
 end

data/test/storage_test.rb

@@ -0,0 +1,44 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 10 18:02:59 JST 2007
+#
+
+require 'test/unit'
+
+require 'openwfe/expool/expstorage'
+
+
+class Vehicle
+end
+class Car < Vehicle
+end
+class Animal
+end
+
+class StorageTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_class_accepted
+
+        esb = Object.new
+        class << esb
+            include OpenWFE::ExpressionStorageBase
+        end
+
+        assert (esb.class_accepted?(Vehicle.new, nil, nil))
+        assert (esb.class_accepted?(Vehicle.new, [ Vehicle ], nil))
+        assert (not esb.class_accepted?(Vehicle.new, nil, [ Vehicle ]))
+
+        assert (esb.class_accepted?(Car.new, [ Vehicle ], nil))
+        assert (not esb.class_accepted?(Car.new, nil, [ Vehicle ]))
+    end
+end