openwferu 0.9.10.653 → 0.9.11

data/test/flowtestbase.rb

@@ -20,7 +20,6 @@ require 'rutest_utils'
 include OpenWFE
 
 
-#$SLEEP_TIME = 0.100
 $WORKFLOW_ENGINE_CLASS = Engine
 
 persistence = ENV["__persistence__"]
@@ -28,10 +27,8 @@ persistence = ENV["__persistence__"]
 require "openwfe/engine/file_persisted_engine" if persistence
 
 if persistence == "pure-persistence"
-    #$SLEEP_TIME = 0.999
     $WORKFLOW_ENGINE_CLASS = FilePersistedEngine
 elsif persistence == "cached-persistence"
-    #$SLEEP_TIME = 0.250
     $WORKFLOW_ENGINE_CLASS = CachedFilePersistedEngine
 end
     
@@ -47,7 +44,7 @@ module FlowTestBase
 
     def setup
 
-        @engine = $WORKFLOW_ENGINE_CLASS.new()
+        @engine = $WORKFLOW_ENGINE_CLASS.new
 
         @engine.application_context[:ruby_eval_allowed] = true
 
@@ -121,18 +118,6 @@ module FlowTestBase
 
             fei = @engine.launch(li)
 
-            #if join == true
-            #    @engine.get_scheduler.join_until_no_more_jobs
-            #elsif join.is_a?(Numeric)
-            #    sleep join
-            #end
-            #if join.is_a?(Numeric)
-            #    sleep join
-            #elsif join == true
-            #    @engine.wait_for_engine
-            #else
-            #    sleep $SLEEP_TIME
-            #end
             if join.is_a?(Numeric)
                 sleep join
             else
@@ -179,7 +164,7 @@ module FlowTestBase
                 engine.get_expression_storages.each do |storage|
                     storage.purge
                 end
-                return
+                return fei
             end
 
             exp_storage = engine.get_expression_storage
@@ -202,3 +187,27 @@ module FlowTestBase
 
 end
 
+#
+# A bunch of methods for testing the journal component
+#
+module JournalTestBase
+
+    def get_journal
+        @engine.get_journal
+    end
+
+    def get_error_count (wfid)
+
+        fn = get_journal.workdir + "/" + wfid + ".journal"
+
+        get_journal.flush_buckets
+
+        events = get_journal.load_events(fn)
+
+        error_count = 0
+        events.each { |evt| error_count += 1 if evt[0] == :error }
+
+        error_count
+    end
+end
+

data/test/ft_15_iterator.rb

@@ -93,5 +93,24 @@ class FlowTest15 < Test::Unit::TestCase
 2 -- z""")
     end
 
+
+    #
+    # Test 3
+    #
+
+    class TestDefinition3 < OpenWFE::ProcessDefinition
+        sequence do
+            iterator :on_value => "", :to_field => "f0" do
+                _print "${f:__ip__} -- ${f:f0}"
+            end
+            _print "done."
+        end
+    end
+
+    #def xxxx_iterator_3
+    def test_iterator_3
+        dotest(TestDefinition3, "done.")
+    end
+
 end
 

data/test/ft_23c_wait.rb

@@ -30,7 +30,7 @@ class FlowTest23c < Test::Unit::TestCase
             concurrence do
                 sequence do
                     wait :until => "${done} == true", :frequency => "2s"
-                    _print "after when"
+                    _print "after wait"
                 end
                 sequence do
                     _sleep "1s"
@@ -47,7 +47,7 @@ class FlowTest23c < Test::Unit::TestCase
             Wait0c, 
             """
 before done
-after when
+after wait
 over
             """.strip, 
             3)

data/test/ft_2b_concurrence.rb

@@ -60,8 +60,8 @@ class FlowTest2b < Test::Unit::TestCase
         <print>${f:key}</print>
     </sequence>
 </process-definition>''', 
-"charly", 
-0.25)
+"charly")
+#0.25)
     end
 
     #

data/test/ft_30_socketlistener.rb

@@ -116,11 +116,15 @@ class FlowTest30 < Test::Unit::TestCase
         socket.puts
         socket.close_write
 
+        assert (not socket.closed?)
+
+        sleep 0.100
+
         reply = socket.gets
         socket.close
 
         #puts ">>>#{reply}<<<"
-        assert (reply.match "^.fei .*0.$")
+        assert_not_nil reply.match("^.fei .*0.$")
 
         sleep 0.100
 

data/test/ft_32_journal.rb

@@ -83,7 +83,7 @@ class FlowTest32 < Test::Unit::TestCase
             #
             # flow resumes
 
-        sleep 0.500
+        sleep 0.700
 
         assert_equal @engine.get_expression_storage.size, 1
     end

data/test/ft_32c_journal.rb

@@ -0,0 +1,102 @@
+
+#
+# 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 FlowTest32c < Test::Unit::TestCase
+    include FlowTestBase
+    include JournalTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            participant :alpha
+            participant :nada
+            participant :bravo
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        @engine.application_context[:keep_journals] = true
+
+        @engine.init_service("journal", Journal)
+
+        @engine.register_participant(:alpha) do |wi|
+            @tracer << "alpha\n"
+        end
+
+        class << get_journal
+            public :flush_buckets
+        end
+
+        #fei = dotest(Test0, "alpha", 0.500, true)
+        li = LaunchItem.new Test0
+        fei = @engine.launch li
+        sleep 0.500
+
+        get_journal.flush_buckets
+
+        fn = get_journal.workdir + "/" + fei.wfid + ".journal"
+
+        #require 'pp'; pp get_journal.load_events(fn)[-1]
+
+        error_event = get_journal.load_events(fn)[-1]
+
+        assert_equal error_event[0], :error
+        assert_equal error_event[2].wfid, fei.wfid
+        assert_equal error_event[3], :do_apply
+
+        #
+        # replaying the error (should occur a second time)
+
+        get_journal.replay_at_error error_event
+
+        sleep 1.0
+
+        assert_equal get_error_count(fei.wfid), 2
+
+        #
+        # fixing the cause of the error and then replaying the error
+        # (should not occur)
+
+        @engine.register_participant(:nada) do |wi|
+            @tracer << "nada\n"
+        end
+        @engine.register_participant(:bravo) do |wi|
+            @tracer << "bravo\n"
+        end
+
+        assert_equal @tracer.to_s, "alpha"
+
+        get_journal.replay_at_error error_event
+
+        sleep 1.0
+
+        assert_equal @tracer.to_s, "alpha\nnada\nbravo"
+    end
+
+end
+

data/test/ft_32d_journal.rb

@@ -0,0 +1,85 @@
+
+#
+# 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 FlowTest32d < Test::Unit::TestCase
+    include FlowTestBase
+    include JournalTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            participant :alpha
+            participant :nada
+            participant :bravo
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        @engine.application_context[:keep_journals] = true
+
+        @engine.init_service("journal", Journal)
+
+        @engine.register_participant(:alpha) do |wi|
+            @tracer << "alpha\n"
+        end
+
+        class << get_journal
+            public :flush_buckets
+        end
+
+        #fei = dotest(Test0, "alpha", 0.500, true)
+        li = LaunchItem.new Test0
+        fei = @engine.launch li
+        sleep 0.500
+
+        get_journal.flush_buckets
+
+        fn = get_journal.workdir + "/" + fei.wfid + ".journal"
+
+        assert_equal get_error_count(fei.wfid), 1
+
+        @engine.register_participant(:nada) do |wi|
+            @tracer << "nada\n"
+        end
+        @engine.register_participant(:bravo) do |wi|
+            @tracer << "bravo\n"
+        end
+
+        assert_equal @tracer.to_s, "alpha"
+
+        get_journal.replay_at_last_error fei.wfid
+
+        sleep 1.0
+
+        assert_equal @tracer.to_s, "alpha\nnada\nbravo"
+
+        assert (not File.exist?(fn))
+    end
+
+end
+

data/test/ft_45_citerator.rb

@@ -112,5 +112,30 @@ done.
             """.strip)
     end
 
+
+    #
+    # Test 3
+    #
+
+    class TestCase45a3 < ProcessDefinition
+        sequence do
+            concurrent_iterator :on_value => "", :to_field => "f" do
+                _print "${r:fei.sub_instance_id} - ${f:f}"
+            end
+            _print "done."
+        end
+    end
+
+    # test 'parked' for now
+
+    #def xxxx_3
+    def test_3
+        dotest(
+            TestCase45a3,
+            """
+done.
+            """.strip)
+    end
+
 end
 

data/test/ft_49_condition.rb

@@ -58,8 +58,66 @@ class FlowTest49 < Test::Unit::TestCase
 4 true
 5 
 6 
-            """.strip,
-            true)
+            """.strip)
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCondition49a1 < ProcessDefinition
+        sequence do
+            _if :test => "true and false and false"
+            _print "0 ${f:__result__}"
+            _if :rtest => "true and true and true"
+            _print "1 ${f:__result__}"
+            _if :rtest => "false or false or true"
+            _print "2 ${f:__result__}"
+        end
+    end
+
+    #def xxxx_0
+    def test_1
+
+        dotest(
+            TestCondition49a1,
+            """
+0 
+1 true
+2 true
+            """.strip)
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestCondition49a2 < ProcessDefinition
+        sequence do
+            _if :test => "true"
+            _print "0 ${f:__result__}"
+            _if :not => "false"
+            _print "1 ${f:__result__}"
+            _if :rnot => "1 > 3"
+            _print "2 ${f:__result__}"
+            _if :rnot => "1 > -1"
+            _print "3 ${f:__result__}"
+        end
+    end
+
+    #def xxxx_2
+    def test_2
+
+        dotest(
+            TestCondition49a2,
+            """
+0 true
+1 true
+2 true
+3
+            """.strip)
     end
 
 end

data/test/ft_4_misc.rb

@@ -92,6 +92,21 @@ class FlowTest4 < Test::Unit::TestCase
         dotest(Reval4, "hello\n1")
     end
 
+    class Reval5 < OpenWFE::ProcessDefinition
+        sequence do
+            reval """
+                wi.customer_name = 'dubious'
+                'surf'
+            """
+            _print "${f:customer_name}"
+            _print "${f:__result__}"
+        end
+    end
+
+    def test_reval_5
+        dotest Reval5, "dubious\nsurf"
+    end
+
     #
     # DRU tests
 

data/test/ft_50_xml_attribute.rb

@@ -98,11 +98,11 @@ END
 
         workitem.result = REXML::Document.new PAT_XML
 
-        s = OpenWFE::xml_encode workitem
+        s = OpenWFE::XmlCodec::encode workitem
 
         #puts s
 
-        w = OpenWFE::xml_decode s
+        w = OpenWFE::XmlCodec::decode s
 
         #puts workitem.to_s
         #puts w.to_s
@@ -120,11 +120,11 @@ END
 
         workitem.result = workitem.result.root
 
-        s = OpenWFE::xml_encode workitem
+        s = OpenWFE::XmlCodec::encode workitem
 
         #puts s
 
-        w = OpenWFE::xml_decode s
+        w = OpenWFE::XmlCodec::decode s
 
         #puts workitem.to_s
         #puts w.to_s

data/test/ft_53_null_noop_participant.rb

@@ -0,0 +1,66 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+
+include OpenWFE
+
+
+class FlowTest53 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < ProcessDefinition
+        sequence do
+            _print "a"
+            participant :ref => :null, :timeout => "1s"
+            _print "b"
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+
+        @engine.register_participant :null, NullParticipant
+
+        dotest(Test0, "a\nb")
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class Test1 < ProcessDefinition
+        sequence do
+            _print "a"
+            participant :ref => :noop
+            _print "b"
+        end
+    end
+
+    #def xxxx_1
+    def test_1
+
+        @engine.register_participant :noop, NoOperationParticipant
+
+        dotest(Test1, "a\nb")
+    end
+
+end
+