openwferu 0.9.16 → 0.9.17

data/test/ft_tests.rb

@@ -19,14 +19,16 @@ require 'ft_2_concurrence'
 require 'ft_2b_concurrence'
 require 'ft_2c_concurrence'
 require 'ft_3_equals'
+require 'ft_3b_lookup_vf'
 require 'ft_4_misc'
 require 'ft_6_lambda'
 require 'ft_7_lose'
 require 'ft_7b_lose'
 require 'ft_8_forget'
 require 'ft_9_cursor'
+require 'ft_9b_cursor'
 require 'ft_10_loop'
-require 'ft_10b_loop2'
+require 'ft_10b_loop'
 require 'ft_11_ppd'
 require 'ft_11b_ppd'
 require 'ft_12_blockparticipant'
@@ -53,6 +55,7 @@ require 'ft_35_localdefs'
 require 'ft_36_subprocids'
 require 'ft_37_pnames'
 require 'ft_38_tag'
+require 'ft_38b_tag'
 require 'ft_39_reserve'
 require 'ft_39b_reserve'
 require 'ft_40_defined'
@@ -99,4 +102,14 @@ require 'ft_73_cancel_sub'
 require 'ft_74_block_and_workitem_dup'
 require 'ft_75_ruby_attributes'
 require 'ft_76_merge_isolate'
+require 'ft_77_segments'
+require 'ft_78_eval'
+require 'ft_79_tticket'
+require 'ft_80_spname'
+require 'ft_81_exp'
+
+require 'back_0916_test'
+
+require 'ft_82_trecu'
+require 'ft_84_updateexp'
 

data/test/hash_test.rb

@@ -42,7 +42,7 @@ class HashTest < Test::Unit::TestCase
         wi0.fei = new_fei
 
         h = wi0.to_h
-        #require 'pp'; pp h
+        #p h
 
         wi1 = OpenWFE::InFlowWorkItem.from_h(h)
 
@@ -57,19 +57,19 @@ class HashTest < Test::Unit::TestCase
 
     def test_any_from_h
 
-        li = OpenWFE::LaunchItem.new()
+        li = OpenWFE::LaunchItem.new
         li.workflow_definition_url = "http://www.openwfe.org/nada"
         li.price = "USD 12"
         li.customer = "Captain Nemo"
 
         h = li.to_h
-        #require 'pp'; pp h
+        #p h
 
-        li1 = OpenWFE::workitem_from_h(h)
+        li1 = OpenWFE::workitem_from_h h
 
-        assert li1.is_a?(OpenWFE::LaunchItem)
-        assert_equal li1.price, "USD 12"
-        assert_equal li1.attributes.size, 3
+        assert_kind_of OpenWFE::LaunchItem, li1
+        assert_equal "USD 12", li1.price
+        assert_equal 3, li1.attributes.size
     end
 
 end

data/test/hparticipant_test.rb

@@ -13,7 +13,7 @@ require 'test/unit'
 #require 'openwfe/workitem'
 require 'openwfe/flowexpressionid'
 require 'openwfe/engine/engine'
-require 'openwfe/expressions/raw_prog'
+require 'openwfe/def'
 require 'openwfe/worklist/storeparticipant'
 
 include OpenWFE
@@ -80,7 +80,7 @@ class HParticipantTest < Test::Unit::TestCase
         #puts "alice count : #{@hpAlice.size}"
         #puts "bob count :   #{@hpBob.size}"
 
-        sleep 0.200
+        sleep 0.300
 
         assert_equal @hpBob.size, 0
         assert_equal @hpAlice.size, 1
@@ -95,7 +95,7 @@ class HParticipantTest < Test::Unit::TestCase
 
         @hpAlice.forward(wi)
 
-        sleep 0.200
+        sleep 0.300
 
         assert_equal @hpAlice.size, 0
         assert_equal @hpBob.size, 1
@@ -106,7 +106,7 @@ class HParticipantTest < Test::Unit::TestCase
 
         @hpBob.proceed(wi)
 
-        sleep 0.200
+        sleep 0.300
 
         assert_equal @hpAlice.size, 0
         assert_equal @hpBob.size, 0

data/test/lookup_vf_test.rb

@@ -0,0 +1,94 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Mar 11 13:44:11 JST 2008
+#
+
+require 'test/unit'
+
+require 'rubygems'
+require 'openwfe/workitem'
+require 'openwfe/expressions/expressionmap'
+
+
+class LookupVfTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    def test_0
+
+        fexp = new_exp({
+            "on-value" => "toto"
+        })
+        wi = new_wi({
+            "toto" => "whatever"
+        })
+
+        assert_equal(
+            "toto", 
+            fexp.lookup_vf_attribute(wi, "value", :prefix => "on"))
+
+        fexp = new_exp({ "on-variable-value" => "toto" }, { "toto" => "surf" })
+
+        assert_equal(
+            "surf", 
+            fexp.lookup_vf_attribute(wi, "value", :prefix => "on"))
+
+        fexp = new_exp({ "on-field-value" => "toto" })
+
+        assert_equal(
+            "whatever", 
+            fexp.lookup_vf_attribute(wi, "value", :prefix => "on"))
+    end
+
+    def test_1
+
+        fexp = new_exp({
+            "on" => "surf"
+        })
+        wi = new_wi
+
+        assert_equal(
+            "surf", 
+            fexp.lookup_vf_attribute(wi, "", :prefix => "on"))
+
+        assert_equal(
+            "surf", 
+            fexp.lookup_vf_attribute(wi, "", :prefix => :on))
+    end
+
+    protected
+
+        def new_exp (atts, vars={})
+
+            fexp = OpenWFE::ParticipantExpression.new
+            fexp.attributes = atts
+
+            fexp.instance_variable_set :@vars, vars
+
+            class << fexp
+                def lookup_variable (var_name)
+                    @vars[var_name]
+                end
+            end
+
+            fexp
+        end
+
+        def new_wi (atts={})
+
+            wi = OpenWFE::InFlowWorkItem.new
+            wi.attributes = atts
+            wi
+        end
+
+end
+

data/test/misc_test.rb

@@ -10,6 +10,8 @@
 require 'test/unit'
 
 require 'openwfe/utils'
+require 'openwfe/expressions/raw'
+#require 'openwfe/def'
 require 'openwfe/expressions/fe_define'
 require 'openwfe/expressions/expressionmap'
 
@@ -60,7 +62,7 @@ class MiscTest < Test::Unit::TestCase
     def test_grep_0
 
         assert OpenWFE::grep("sputnik", "Rakefile").empty?
-        assert_equal OpenWFE::grep("Mettraux", "Rakefile").size, 5
+        assert_equal 2, OpenWFE::grep("Mettraux", "Rakefile").size
 
         OpenWFE::grep "Mettraux", "Rakefile" do |line|
             assert_match "Mettraux", line
@@ -72,14 +74,14 @@ class MiscTest < Test::Unit::TestCase
         em = OpenWFE::ExpressionMap.new
 
         assert_equal \
-            em.get_expression_classes(OpenWFE::Schedulable),
+            em.get_expression_classes(Rufus::Schedulable),
             [
                 OpenWFE::ParticipantExpression,
                 OpenWFE::SleepExpression,
                 OpenWFE::CronExpression,
                 OpenWFE::WhenExpression,
                 OpenWFE::WaitExpression,
-                OpenWFE::ReserveExpression,
+                #OpenWFE::ReserveExpression,
                 OpenWFE::ListenExpression,
                 OpenWFE::TimeoutExpression,
                 OpenWFE::Environment

data/test/orest_test.rb

@@ -129,10 +129,11 @@ class OldRestTest < Test::Unit::TestCase
         actual_store.consume(new_workitem())
 
         headers = client.get_headers "alpha"
+        #headers = client.get_headers "Store.alpha"
 
-        assert_equal headers.length, 1
-        assert_equal headers[0].attributes["nada"], "surf"
-        assert_equal headers[0].nada, "surf"
+        assert_equal 1, headers.length
+        assert_equal "surf", headers[0].attributes["nada"]
+        assert_equal "surf", headers[0].nada
 
         #
         # launching a new process...

data/test/param_test.rb

@@ -38,15 +38,13 @@ class ParameterTest < Test::Unit::TestCase
         e = nil
         
         begin
-            @engine.launch(li)
+            @engine.launch li
         rescue Exception => e
             #puts e
             #puts OpenWFE::exception_to_s(e)
         end
 
-        assert_equal \
-            e.to_s,
-            "field 'address' is missing"
+        assert_equal "field 'address' is missing", e.to_s
 
         # second round
 
@@ -67,7 +65,7 @@ class ParameterTest < Test::Unit::TestCase
 
         assert_nil e
 
-        sleep 0.200
+        sleep 0.350
             # let the flow terminate on its own
     end
 
@@ -96,9 +94,7 @@ class ParameterTest < Test::Unit::TestCase
             #puts OpenWFE::exception_to_s(e)
         end
 
-        assert_equal \
-            e.to_s,
-            "field 'customer' is missing"
+        assert_equal "field 'customer' is missing", e.to_s
 
         li = OpenWFE::LaunchItem.new(TestParam1)
         li.customer = "bauhaus"
@@ -143,10 +139,10 @@ class ParameterTest < Test::Unit::TestCase
             #puts OpenWFE::exception_to_s(e)
         end
 
-        sleep 0.200
+        sleep 0.350
 
         assert_nil e
-        assert_equal @tracer.to_s, "(unknown address)"
+        assert_equal "(unknown address)", @tracer.to_s
     end
 
 
@@ -177,12 +173,12 @@ class ParameterTest < Test::Unit::TestCase
             #puts OpenWFE::exception_to_s(e)
         end
 
-        sleep 0.200
+        sleep 0.350
 
         # well, I should maybe refactor the test into a method
 
         assert_nil e
-        assert_equal @tracer.to_s, "3"
+        assert_equal "3", @tracer.to_s
     end
 
 
@@ -211,7 +207,7 @@ class ParameterTest < Test::Unit::TestCase
         end
 
         assert_not_nil e
-        assert_equal e.to_s, 'invalid value for Integer: "Colorado"'
+        assert_equal 'invalid value for Integer: "Colorado"', e.to_s
     end
 
 
@@ -237,8 +233,8 @@ class ParameterTest < Test::Unit::TestCase
             #puts OpenWFE::exception_to_s(e)
         end
 
-        assert_equal e.to_s, "field 'phone' is missing"
-        assert_equal e.class, OpenWFE::ParameterException
+        assert_equal "field 'phone' is missing", e.to_s
+        assert_equal OpenWFE::ParameterException, e.class
 
         # second round
 
@@ -257,7 +253,7 @@ class ParameterTest < Test::Unit::TestCase
         end
 
         assert_not_nil e
-        assert_equal e.to_s, "value of field 'phone' doesn't match"
+        assert_equal "value of field 'phone' doesn't match", e.to_s
     end
 
 

data/test/participant_test.rb

@@ -60,4 +60,40 @@ class ParticipantTest < Test::Unit::TestCase
         assert_equal 0, @engine.get_participant_map.size
     end
 
+    def test_order
+
+        s = ""
+
+        @engine.register_participant "a.*", :astar
+        @engine.register_participant "alpha", :alpha
+
+        assert_equal :astar, @engine.get_participant("alpha")
+
+        clean_participants
+
+        @engine.register_participant "alpha", :alpha
+        @engine.register_participant "a.*", :astar
+
+        assert_equal :alpha, @engine.get_participant("alpha")
+
+        clean_participants
+
+        @engine.register_participant "a.*", :astar
+
+        assert_equal :astar, @engine.get_participant("alpha")
+
+        @engine.register_participant "alpha", { :participant => :alpha, :position => :first }
+
+        assert_equal :alpha, @engine.get_participant("alpha")
+        assert_equal :astar, @engine.get_participant("abricot")
+    end
+
+    protected
+
+        def clean_participants
+
+            @engine.get_participant_map.instance_variable_set(
+                :@participants, [])
+        end
+
 end

data/test/pending.rb

@@ -7,17 +7,17 @@ module PendingJobsMixin
 
     def assert_no_jobs_left
 
-        cname = @engine.class.name
+        #cname = @engine.class.name
+        #min_jobs = if cname == 'OpenWFE::CachedFilePersistedEngine'
+        #    1
+        #elsif cname == 'OpenWFE::Extras::CachedDbPersistedEngine'
+        #    1
+        #else
+        #    0
+        #end
+        #assert_equal min_jobs, @engine.get_scheduler.pending_job_count
 
-        min_jobs = if cname == 'OpenWFE::CachedFilePersistedEngine'
-            1
-        elsif cname == 'OpenWFE::Extras::CachedDbPersistedEngine'
-            1
-        else
-            0
-        end
-
-        assert_equal min_jobs, @engine.get_scheduler.pending_job_count
+        assert_equal 0, @engine.get_scheduler.at_job_count
     end
 end
 

data/test/rake_ltest.rb

@@ -6,7 +6,7 @@
 # Mon Oct  9 22:19:44 JST 2006
 #
 
-#require 'test/unit'
+require 'rubygems'
 
 #
 # the tests that take lots of time...
@@ -14,10 +14,6 @@
 
 require 'ft_5_time'
 
-require 'scheduler_test'
-require 'scheduler_1_test'
-require 'cron_test'
-
 require 'restart_tests'
 
 require 'ft_20_cron'
@@ -30,11 +26,6 @@ require 'ft_51_stack'
     #
     # shaky test...
 
-require 'extras/csv_test'
-    #
-    # this test taps the google docs servers, its duration is very
-    # variable, so it's been put here, with lengthy tests
-
 #
 # the quick tests
 #