openwferu 0.9.15 → 0.9.16

data/test/ft_75_ruby_attributes.rb

@@ -0,0 +1,87 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Nov  1 15:21:34 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest75 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            set :field => "f0", :value => [ 'my', 'array' ]
+            set :field => :f1, :value => [ 'my', 'array' ]
+            _print "${f:f0.0}"
+            _print "${f:f1.1}"
+        end
+    end
+
+    def test_0
+
+        dotest Test0, "my\narray"
+    end
+
+    #
+    # TEST 1
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            set :field => "f0", :value => true
+            _print "${r:workitem.f0.class.name}"
+        end
+    end
+
+    def test_1
+
+        dotest Test1, "TrueClass"
+    end
+
+    #
+    # TEST 2
+
+    class Test2 < OpenWFE::ProcessDefinition
+        sequence do
+            set :variable => "v0", :value => "alpha"
+            set :variable => :v0, :value => "bravo"
+            _print "${v0}"
+            set :field => "f0", :value => "alpha"
+            set :field => :f0, :value => "bravo"
+            _print "${f:f0}"
+        end
+    end
+
+    def test_2
+
+        dotest Test2, "bravo\nbravo"
+    end
+
+    #
+    # TEST 3
+
+    #class Test3 < OpenWFE::ProcessDefinition
+    #    sequence do
+    #    end
+    #end
+    #def test_3
+    #    dotest Test3, "6"
+    #end
+
+end
+

data/test/ft_76_merge_isolate.rb

@@ -0,0 +1,90 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+#require 'openwfe/worklist/storeparticipant'
+
+include OpenWFE
+
+
+class FlowTest76 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class Test0 < ProcessDefinition
+        sequence do
+            concurrence :merge_type => :isolate do
+                set :field => "y", :value => "y0"
+                set :field => "y", :value => "y1"
+                set :field => "y", :value => "y2"
+            end
+            catcher
+        end
+    end
+
+    def test_0
+        do_the_test Test0
+    end
+
+    #
+    # Test 1
+    #
+
+    class Test1 < ProcessDefinition
+        sequence do
+            concurrent_iterator(
+                :on_value => "0, 1, 2", 
+                :to_field => "f", 
+                :merge_type => :isolate
+            ) do
+                set :field => "y", :value => "y${f:f}"
+            end
+            catcher
+        end
+    end
+
+    def test_1
+        do_the_test Test1
+    end
+
+    protected
+
+        def do_the_test (definition)
+
+            #log_level_to_debug
+            
+            workitem = nil
+
+            engine.register_participant :catcher do |wi|
+                workitem = wi
+            end
+
+            dotest definition, ""
+
+            #puts
+            #puts workitem.to_s
+
+            3.times do |i|
+                assert_equal "y#{i}", workitem.lookup_attribute("#{i}.y")
+            end
+                #
+                # 3 lines replaced by 3 lines :)
+        end
+
+end
+

data/test/ft_7_lose.rb

@@ -95,7 +95,8 @@ ok 3
 ok 5
 v1 : 
 done.""", 
-            1.8,
+            #1.8,
+            2.700,
             true)
     end
 

data/test/ft_tests.rb

@@ -12,6 +12,7 @@ require 'ft_0'
 require 'ft_0b_sequence'
 require 'ft_0c_testname'
 require 'ft_0d_participant'
+require 'ft_0e_multibody'
 require 'ft_1_unset'
 require 'ft_1b_unset'
 require 'ft_2_concurrence'
@@ -32,6 +33,7 @@ require 'ft_12_blockparticipant'
 require 'ft_14_subprocess'
 require 'ft_14b_subprocess'
 require 'ft_15_iterator'
+require 'ft_15b_iterator'
 require 'ft_16_fqv'
 require 'ft_17_condition'
 require 'ft_18_pname'
@@ -69,6 +71,7 @@ require 'ft_50_xml_attribute'
 require 'ft_52_obs_participant'
 require 'ft_53_null_noop_participant'
 require 'ft_54_listen'
+require 'ft_54b_listen'
 require 'ft_55_ptimeout'
 require 'ft_56_timeout'
 require 'ft_57_a'
@@ -90,4 +93,10 @@ require 'ft_66_subforget'
 require 'ft_68_ifparticipant'
 require 'ft_69_cancelmissing'
 require 'ft_70_lookupvar'
+require 'ft_71_log'
+require 'ft_72_lookup_processes'
+require 'ft_73_cancel_sub'
+require 'ft_74_block_and_workitem_dup'
+require 'ft_75_ruby_attributes'
+require 'ft_76_merge_isolate'
 

data/test/lookup_att_test.rb

@@ -0,0 +1,90 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+
+require 'test/unit'
+require 'openwfe/utils'
+
+
+class LookupAttTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_0
+
+        l0 = [
+            {"name"=>"companyA","DunsNr" => "JGE4753"},
+            {"name"=>"companyB","DunsNr" => "ZUTE8555"},
+            {"name"=>"companyC","DunsNr" => "GTI6775"},
+            {"name"=>"companyD","DunsNr" => "XUE6755"}
+        ]
+        h0 = { "supplierList" => l0 }
+
+        do_lookup_test(
+            h0, "supplierList", l0)
+        do_lookup_test(
+            h0, "supplierList.1", {"name"=>"companyB","DunsNr" => "ZUTE8555"})
+        do_lookup_test(
+            h0, "supplierList.1.DunsNr", "ZUTE8555")
+
+        do_has_attribute_test(
+            h0, "supplierList.1.DunsNr", true)
+        do_has_attribute_test(
+            h0, "supplierList.1.Whatever", false)
+        do_has_attribute_test(
+            h0, "supplierList.whatever", false)
+        do_has_attribute_test(
+            h0, "whatever", false)
+
+        h1 = { "supplierList" => l0.to_s }
+        do_lookup_test(
+            h1, "supplierList.1.DunsNr", nil)
+
+        do_has_attribute_test(
+            nil, "whatever", false)
+        do_has_attribute_test(
+            {}, "whatever", false)
+        do_has_attribute_test(
+            [], "whatever", false)
+        do_has_attribute_test(
+            "string",  "whatever", false)
+
+        do_has_attribute_test(
+            [ nil, nil ], "1.name", false)
+    end
+
+    def test_1
+
+        h = { "0" => [ "a", "A" ], "1" => { "b" => "B"} }
+
+        do_lookup_test(h, "0", [ "a", "A" ])
+        do_lookup_test(h, "1.b", "B")
+        do_has_attribute_test(h, "0", true)
+        do_has_attribute_test(h, "1.b", true)
+    end
+
+    protected
+
+        def do_lookup_test (container, expression, expected_value)
+
+            assert_equal(
+                expected_value, 
+                OpenWFE::lookup_attribute(container, expression))
+        end
+
+        def do_has_attribute_test (container, expression, expected_boolean)
+
+            assert_equal(
+                expected_boolean, 
+                OpenWFE::has_attribute?(container, expression))
+        end
+
+end
+

data/test/misc_test.rb

@@ -8,7 +8,6 @@
 #
 
 require 'test/unit'
-require 'rexml/document'
 
 require 'openwfe/utils'
 require 'openwfe/expressions/fe_define'
@@ -27,58 +26,39 @@ class MiscTest < Test::Unit::TestCase
     #end
 
     def test_starts_with
-        assert \
-            OpenWFE::starts_with("//a", "//")
-        assert \
-            (not OpenWFE::starts_with("/a", "//"))
+
+        assert OpenWFE::starts_with("//a", "//")
+        assert (not OpenWFE::starts_with("/a", "//"))
     end
 
     def test_ends_with
-        assert \
-            OpenWFE::ends_with("c'est la fin", "fin")
+
+        assert OpenWFE::ends_with("c'est la fin", "fin")
     end
 
     def test_ensure_for_filename
 
-        assert OpenWFE::ensure_for_filename("abc") == "abc"
-        assert OpenWFE::ensure_for_filename("a/c") == "a_c"
-        assert OpenWFE::ensure_for_filename("a\\c") == "a_c"
-        assert OpenWFE::ensure_for_filename("a*c") == "a_c"
-        assert OpenWFE::ensure_for_filename("a+?") == "a__"
-        assert OpenWFE::ensure_for_filename("a b") == "a_b"
+        assert_equal OpenWFE::ensure_for_filename("abc"), "abc"
+        assert_equal OpenWFE::ensure_for_filename("a/c"), "a_c"
+        assert_equal OpenWFE::ensure_for_filename("a\\c"), "a_c"
+        assert_equal OpenWFE::ensure_for_filename("a*c"), "a_c"
+        assert_equal OpenWFE::ensure_for_filename("a+?"), "a__"
+        assert_equal OpenWFE::ensure_for_filename("a b"), "a_b"
     end
 
     def test_clean_path
 
-        assert OpenWFE::clean_path("my//file/path") == "my/file/path"
-        assert OpenWFE::clean_path("my//file//path") == "my/file/path"
+        assert_equal OpenWFE::clean_path("my//file/path"), "my/file/path"
+        assert_equal OpenWFE::clean_path("my//file//path"), "my/file/path"
     end
 
     def test_stu
-        assert_equal "a_b_c", OpenWFE::stu("a b c")
-    end
 
-    def test_dup
-        a0 = A.new
-        a0.a = 1
-        a0.b = 2
-        a1 = OpenWFE::fulldup(a0)
-
-        #puts a0
-        #puts a1
-        
-        assert \
-            a0.equals(a1),
-            "dup() utility not working"
-    end
-
-    def test_dup_1
-        d = REXML::Document.new("<document/>")
-        d1 = OpenWFE::fulldup(d)
-        assert d.object_id != d1.object_id
+        assert_equal "a_b_c", OpenWFE::stu("a b c")
     end
 
     def test_grep_0
+
         assert OpenWFE::grep("sputnik", "Rakefile").empty?
         assert_equal OpenWFE::grep("Mettraux", "Rakefile").size, 5
 
@@ -87,19 +67,22 @@ class MiscTest < Test::Unit::TestCase
         end
     end
 
-    private
-    
-        class A
-            attr_accessor :a, :b
-
-            def equals (other)
-                return false if not other.kind_of?(A)
-                return (self.a == other.a and self.b == other.b)
-            end
-
-            def to_s
-                "A : a='#{a}', b='#{b}'"
-            end
-        end
-
+    def test_expmap_get_classes
+
+        em = OpenWFE::ExpressionMap.new
+
+        assert_equal \
+            em.get_expression_classes(OpenWFE::Schedulable),
+            [
+                OpenWFE::ParticipantExpression,
+                OpenWFE::SleepExpression,
+                OpenWFE::CronExpression,
+                OpenWFE::WhenExpression,
+                OpenWFE::WaitExpression,
+                OpenWFE::ReserveExpression,
+                OpenWFE::ListenExpression,
+                OpenWFE::TimeoutExpression,
+                OpenWFE::Environment
+            ]
+    end
 end

data/test/orest_test.rb

@@ -10,7 +10,7 @@ require 'fileutils'
 require 'webrick'
 
 require 'rutest_utils'
-require 'openwfe/rest/worklistclient'
+require 'openwfe/orest/worklistclient'
 require 'openwfe/engine/engine'
 require 'openwfe/worklist/oldrest'
 require 'openwfe/worklist/storelocks'

data/test/participant_test.rb

@@ -18,22 +18,46 @@ require 'openwfe/participants/participants'
 
 class ParticipantTest < Test::Unit::TestCase
 
-    #def setup
-    #end
+    def setup
+        @engine = OpenWFE::Engine.new
+    end
 
-    #def teardown
-    #end
+    def teardown
+        @engine.stop
+    end
 
     def test_lookup_participant
 
-        engine = OpenWFE::Engine.new
-        engine.register_participant :toto, NullParticipant
+        @engine.register_participant :toto, NullParticipant
 
-        p = engine.get_participant "toto"
+        p = @engine.get_participant "toto"
         assert_kind_of NullParticipant, p
 
-        p = engine.get_participant :toto
+        p = @engine.get_participant :toto
         assert_kind_of NullParticipant, p
+
+        assert_equal 1, @engine.get_participant_map.size
+    end
+
+    def test_unregister_participant
+
+        assert ( ! @engine.unregister_participant(:nada))
+
+        @engine.register_participant :toto, NullParticipant
+
+        assert_equal 1, @engine.get_participant_map.size
+
+        assert @engine.unregister_participant(:toto)
+
+        assert_equal 0, @engine.get_participant_map.size
+
+        @engine.register_participant "user_.*", NullParticipant
+
+        assert_equal 1, @engine.get_participant_map.size
+
+        assert @engine.unregister_participant("user_.*")
+
+        assert_equal 0, @engine.get_participant_map.size
     end
 
 end

data/test/pending.rb

@@ -3,22 +3,21 @@
 # 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)
+        cname = @engine.class.name
+
+        min_jobs = if cname == 'OpenWFE::CachedFilePersistedEngine'
+            1
+        elsif cname == 'OpenWFE::Extras::CachedDbPersistedEngine'
             1
-        #elsif @engine.is_a?(OpenWFE::FilePersistedEngine)
-        #    0
         else
             0
         end
 
-        assert_equal @engine.get_scheduler.pending_job_count, min_jobs
+        assert_equal min_jobs, @engine.get_scheduler.pending_job_count
     end
 end
 

data/test/rake_ltest.rb

@@ -11,8 +11,11 @@
 #
 # the tests that take lots of time...
 #
+
 require 'ft_5_time'
+
 require 'scheduler_test'
+require 'scheduler_1_test'
 require 'cron_test'
 
 require 'restart_tests'

data/test/rake_qtest.rb

@@ -9,6 +9,7 @@
 require 'fei_test'
 require 'wfid_test'
 require 'wi_test'
+require 'lookup_att_test'
 require 'filter_test'
 require 'dollar_test'
 require 'misc_test'
@@ -23,12 +24,14 @@ require 'kotoba_test'
 require 'expmap_test'
 require 'obs_test'
 require 'clone_test'
+require 'fe_lookup_att_test'
 
 require 'sec_test'
 require 'param_test'
 
 require 'file_persisted_engine_test'
 require 'ruby_procdef_test'
+require 'description_test'
 
 require 'ft_tests'
     #
@@ -43,5 +46,5 @@ require 'timeout_test'
 require 'slock_test'
 require 'orest_test.rb'
 
-#require 'extras/atom_test.rb'
+#require 'extras/atomfeedp_test.rb'
 

data/test/raw_prog_test.rb

@@ -364,7 +364,7 @@ end""".strip
         "process-definition",
         {"name"=>"TestDefinitionSeven", "revision"=>"0"},
         [
-            ["participant", {"ref"=>"toto"}, []]
+            ["participant", {"ref"=>:toto}, []]
         ]
     ]
 

data/test/restart_cron_test.rb

@@ -27,13 +27,14 @@ class RestartCronTest < Test::Unit::TestCase
     #end
 
     class RestartDefinition0 < ProcessDefinition
-        def make
-            process_definition :name => "rs0", :revision => "0" do
+        #def make
+        #    process_definition :name => "rs0", :revision => "0" do
                 cron :tab => "* * * * *", :name => "//cron" do
-                    participant :cron_event_restart
+                    #participant :cron_event_restart
+                    cron_event_restart
                 end
-            end
-        end
+        #    end
+        #end
     end
 
     def test_restart_0
@@ -46,7 +47,6 @@ class RestartCronTest < Test::Unit::TestCase
             #puts "______________________ :cron_event_restart"
             count = count + 1
         end
-
         engine.register_participant(:cron_event_restart, &participant)
 
         engine.launch(RestartDefinition0)

data/test/restart_sleep_test.rb

@@ -86,29 +86,29 @@ class RestartSleepTest < Test::Unit::TestCase
             #require 'fileutils'
             #FileUtils.remove_dir "work" if File.exist? "work"
 
-            engine = new_engine(engine_class)
+            engine = new_engine engine_class
 
             #$OWFE_LOG.level = Logger::DEBUG
 
-            li = LaunchItem.new(def_class)
+            li = LaunchItem.new def_class
 
-            engine.launch(li)
+            engine.launch li
 
-            sleep(1)
+            sleep 1
 
-            engine.stop()
+            engine.stop
 
             $OWFE_LOG.warn "stopped the engine"
 
             old_engine = engine
-            engine = new_engine(engine_class)
+            engine = new_engine engine_class
 
             #$OWFE_LOG.level = Logger::DEBUG
 
             $OWFE_LOG.warn "started the new engine"
 
-            sleep(11)
-            #sleep(21)
+            sleep 11
+            #sleep 21
 
             s_old = old_engine.application_context["__tracer"].to_s
             s_now = engine.application_context["__tracer"].to_s

data/test/ruby_procdef_test.rb

@@ -79,9 +79,9 @@ end
     def test_1
 
         fei0 = launch TEST1
-        sleep 0.100
+        sleep 0.200
         fei1 = launch TEST1
-        sleep 0.100
+        sleep 0.200
 
         assert_equal ProcessDefinition.extract_class(TEST1), Test1
 

data/test/rutest_utils.rb

@@ -34,17 +34,23 @@ class Tracer
     end
 end
 
-def new_fei ()
-    fei = OpenWFE::FlowExpressionId.new()
+#
+# Returns a new FlowExpressionId, for testing purposes
+#
+def new_fei
+
+    fei = OpenWFE::FlowExpressionId.new
+
     fei.owfe_version = OpenWFE::OPENWFERU_VERSION
     fei.engine_id = 'this'
-    fei.initial_engine_id = 'that'
+    #fei.initial_engine_id = 'that'
     fei.workflow_definition_url = 'http://test/test.xml'
     fei.workflow_definition_name = 'test'
     fei.workflow_definition_revision = '1.0'
     fei.workflow_instance_id = '123456'
     fei.expression_name = 'do-test'
     fei.expression_id = '0.0'
+
     fei
 end