openwferu 0.9.3 → 0.9.4

data/test/ft_19_csv.rb

@@ -0,0 +1,64 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/expressions/raw_prog'
+require 'openwfe/participants/csvparticipant'
+
+include OpenWFE
+
+
+
+class FlowTest19 < FlowTestBase
+
+    CSV0 = \
+"""
+in:weather, in:month, out:take_umbrella?
+,,
+raining,    ,         yes
+sunny,      ,         no
+cloudy,     june,     yes
+cloudy,     may,      yes
+cloudy,     ,         no
+"""
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "test0", :revision => "0" do
+                sequence do
+                    set :field => "weather", :value => "cloudy"
+                    set :field => "month", :value => "may"
+                    decision
+                    _print "${f:take_umbrella?}"
+                end
+            end
+        end
+    end
+
+    def test_0
+
+        csvParticipant = CsvParticipant.new(CSV0)
+
+        @engine.register_participant("decision", csvParticipant)
+
+        dotest(
+            TestDefinition0,
+            "yes")
+    end
+
+end
+

data/test/ft_20_cron.rb

@@ -0,0 +1,60 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/expressions/raw_prog'
+require 'openwfe/participants/csvparticipant'
+
+include OpenWFE
+
+
+
+class FlowTest20 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "rs0", :revision => "0" do
+                concurrence do
+                    cron :tab => "* * * * *", :name => "cron" do
+                        participant :cron_event
+                    end
+                    sequence do
+                        _print "before"
+                        _sleep :for => "61s"
+                        _print "after"
+                    end
+                end
+            end
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant(:cron_event) do |fexp, wi|
+            @tracer << "#{fexp.class.name}\n"
+        end
+
+        dotest(
+            TestDefinition0, 
+            """before
+OpenWFE::ParticipantExpression
+after""", 
+            62)
+    end
+
+end
+

data/test/ft_21_cron.rb

@@ -0,0 +1,48 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/expressions/raw_prog'
+require 'openwfe/participants/csvparticipant'
+
+include OpenWFE
+
+
+
+class FlowTest21 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "rs0", :revision => "0" do
+                cron :tab => "* * * * *", :name => "cron" do
+                    participant :cron_event
+                end
+            end
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant(:cron_event) do
+            @tracer << "cron_event"
+        end
+
+        dotest(TestDefinition0, "", 62)
+    end
+
+end
+

data/test/ft_22_history.rb

@@ -0,0 +1,68 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'flowtestbase'
+require 'openwfe/expool/history'
+require 'openwfe/expressions/raw_prog'
+
+include OpenWFE
+
+
+class FlowTest22 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "test0", :revision => "0" do
+                sequence do
+                    _print "a"
+                    _print "b"
+                    _print "c"
+                end
+            end
+        end
+    end
+
+    def test_history_0
+
+        @engine.init_service("history", InMemoryHistory)
+
+        history = @engine.application_context["history"]
+
+        dotest(
+            TestDefinition0,
+            """a
+b
+c""")
+
+        #puts history.to_s
+        #puts history.entries.size()
+
+        #f = File.open("history.log", "w")
+        #f.write(history.to_s)
+        #f.close()
+
+        assert \
+            (history.entries.size == 34 or history.entries.size == 37),
+            "History count is #{history.entries.size} should be 34 (or 37)"
+
+        # 37 in case of persisted engine (it's slower, so rescheduling kicks in)
+    end
+
+end
+

data/test/ft_23_when.rb

@@ -0,0 +1,50 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/expressions/raw_prog'
+
+include OpenWFE
+
+
+
+class FlowTest23 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "when0", :revision => "0" do
+                concurrence do
+                    _when :test => "${v:done} == true", :frequency => "2s" do
+                        _print "ok"
+                    end
+                    sequence do
+                        _sleep "500"
+                        _set :variable => "done", :value => "true"
+                        _print "done"
+                    end
+                end
+            end
+        end
+    end
+
+    def test_0
+        #dotest(TestDefinition0, "done\nok")
+        dotest(TestDefinition0, "done\nok", 4)
+    end
+
+end
+

data/test/ft_23b_when.rb

@@ -0,0 +1,45 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/expressions/raw_prog'
+
+include OpenWFE
+
+
+
+class FlowTest23 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "23b_when0", :revision => "0" do
+                concurrence do
+                    _when :test => "false == true", :timeout => "10s" do
+                        _print "la vaca vuela"
+                    end
+                    _print "ok"
+                end
+            end
+        end
+    end
+
+    def test_0
+        dotest(TestDefinition0, "ok", 23)
+    end
+
+end
+

data/test/ft_24_def.rb

@@ -0,0 +1,47 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+#
+# just testing the
+#
+#     require 'openwfe/def'
+#
+# shortcut
+#
+
+class FlowTest24 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < ProcessDefinition
+        def make
+            process_definition :name => "ft_24_def", :revision => "0" do
+                _print "ok"
+            end
+        end
+    end
+
+    def test_0
+        dotest(TestDefinition0, "ok")
+    end
+
+end
+

data/test/ft_9_cursor.rb

@@ -58,6 +58,26 @@ b""")
 b""")
     end
 
+    def test_cursor_2b
+        #
+        # ZigZag test
+        #
+        dotest(\
+'<process-definition name="'+test_name+'''" revision="0">
+    <cursor>
+        <print>a</print>
+        <skip step="3" />
+        <print>b</print>
+        <skip step="2" />
+        <back step="2"/>
+        <print>c</print>
+    </cursor>
+</process-definition>''', 
+"""a
+b
+c""")
+    end
+
     def test_cursor_3
         dotest(\
 '<process-definition name="'+test_name+'''" revision="0">

data/test/rake_qtest.rb

@@ -12,12 +12,14 @@ File.delete('engine.log') \
     if File.exist? 'engine.log'
 
 require 'fei_test'
+require 'wi_test'
 require 'dollar_test'
 require 'misc_test'
 require 'time_test'
 require 'raw_prog_test'
 require 'file_persistence_test'
 require 'cronline_test'
+require 'csv_test'
 
 #require 'journal_persistence_test'
     #
@@ -26,6 +28,7 @@ require 'cronline_test'
 require 'ft_0'
 require 'ft_0b_sequence'
 require 'ft_0c_testname'
+require 'ft_0d_participant'
 require 'ft_1_unset'
 require 'ft_2_concurrence'
 require 'ft_3_equals'
@@ -43,6 +46,10 @@ require 'ft_15_iterator'
 require 'ft_16_fqv'
 require 'ft_17_condition'
 require 'ft_18_pname'
+require 'ft_19_csv'
+require 'ft_22_history'
+require 'ft_23_when'
+require 'ft_24_def'
 
 require 'hparticipant_test'
 require 'timeout_test'

data/test/rake_test.rb

@@ -17,6 +17,9 @@ require 'cron_test'
 
 require 'restart_test'
 require 'restart_cron_test'
+require 'ft_20_cron'
+require 'ft_21_cron'
+require 'ft_23b_when'
 
 #
 # the quick tests

data/test/timeout_test.rb

@@ -5,8 +5,6 @@
 #
 # Sun Oct 29 15:41:44 JST 2006
 #
-# somewhere between Philippina and the Japan
-#
 
 require 'test/unit'
 
@@ -34,7 +32,7 @@ class TimeoutTest < Test::Unit::TestCase
             process_definition :name => "to0", :revision => "0" do
                 sequence do
                     participant :ref => "albert", :timeout => "500"
-                    _print "over"
+                    _print "over ${f:done}"
                 end
             end
         end
@@ -58,6 +56,8 @@ class TimeoutTest < Test::Unit::TestCase
 
         s = engine.application_context["__tracer"].to_s
 
+        engine.stop
+
         #puts "trace is >#{s}<"
         #puts "albert.size is #{albert.size}"
 
@@ -66,7 +66,49 @@ class TimeoutTest < Test::Unit::TestCase
             "workitem was not removed from workitem store"
         assert \
             s == "over",
-            "flow did not reacher 'over'"
+            "flow did not reach 'over'"
+    end
+
+    def test_timeout_1
+
+        albert = HashParticipant.new
+
+        engine = Engine.new
+
+        engine.application_context["__tracer"] = Tracer.new
+
+        engine.register_participant(:albert, albert)
+
+        pjc = engine.get_scheduler.pending_job_count
+        assert \
+            pjc == 0,
+            "0 pending_jobs_count is at #{pjc}, it should be at 0"
+
+        li = LaunchItem.new(TimeoutDefinition0)
+
+        engine.launch(li)
+
+        wi = albert.list_workitems(nil)[0]
+        wi.done = "ok"
+        albert.proceed(wi)
+
+        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 ok",
+            "flow did not reach 'over ok'"
+
+        pjc = engine.get_scheduler.pending_job_count
+
+        assert \
+            pjc == 0,
+            "1 pending_jobs_count is at #{pjc}, it should be at 0"
     end
 
 end

data/test/wi_test.rb

@@ -0,0 +1,66 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+
+require 'test/unit'
+require 'openwfe/workitem'
+require 'openwfe/util/dollar'
+
+include OpenWFE
+
+
+class WiTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_lookup_0
+
+        wi = InFlowWorkItem.new()
+        wi.attributes = {
+            "field0" => "value0",
+            "field1" => [ 0, 1, 2, 3, [ "a", "b", "c" ]],
+            "field2" => {
+                "a" => "AA", 
+                "b" => "BB", 
+                "c" => [ "C0", "C1", "C3" ]
+            },
+            "field3" => 3,
+            "field99" => nil
+        }
+
+        assert wi.lookup_attribute("field3") == 3
+        assert wi.lookup_attribute("field1.1") == 1
+        assert wi.lookup_attribute("field1.4.1") == "b"
+        assert wi.lookup_attribute("field2.c.1") == "C1"
+        assert wi.lookup_attribute("field4") == nil
+        assert wi.lookup_attribute("field4.2") == nil
+        assert wi.lookup_attribute("field99") == nil
+        assert wi.lookup_attribute("field99.9") == nil
+
+        assert wi.has_attribute?("field4") == false
+        assert wi.has_attribute?("field4.2") == false
+        assert wi.has_attribute?("field99") == true
+        assert wi.has_attribute?("field99.9") == false
+
+        text = "value is '${f:field2.c.1}'"
+        text = OpenWFE::dosub(text, nil, wi)
+        assert text == "value is 'C1'"
+
+        # setting attributes
+
+        wi.set_attribute("field2.a", 42)
+        wi.set_attribute("field99", "f99")
+
+        assert wi.lookup_attribute("field2.a") == 42
+        assert wi.lookup_attribute("field99") == "f99"
+    end
+
+end
+

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.0
 specification_version: 1
 name: openwferu
 version: !ruby/object:Gem::Version 
-  version: 0.9.3
-date: 2007-02-05 00:00:00 +09:00
+  version: 0.9.4
+date: 2007-02-15 00:00:00 +09:00
 summary: an open source ruby workflow and bpm engine
 require_paths: 
   - lib
@@ -36,6 +36,7 @@ files:
   - lib/openwfe
   - lib/openwfe.rb
   - lib/openwfe/contextual.rb
+  - lib/openwfe/def.rb
   - lib/openwfe/engine
   - lib/openwfe/expool
   - lib/openwfe/expressions
@@ -47,14 +48,17 @@ files:
   - lib/openwfe/rudefinitions.rb
   - lib/openwfe/service.rb
   - lib/openwfe/storage
+  - lib/openwfe/tools
   - lib/openwfe/util
   - lib/openwfe/utils.rb
+  - lib/openwfe/version.rb
   - lib/openwfe/workitem.rb
   - lib/openwfe/worklist
   - lib/openwfe/engine/engine.rb
   - lib/openwfe/engine/file_persisted_engine.rb
   - lib/openwfe/expool/expressionpool.rb
   - lib/openwfe/expool/expstorage.rb
+  - lib/openwfe/expool/history.rb
   - lib/openwfe/expool/journalexpstorage.rb
   - lib/openwfe/expool/yamlexpstorage.rb
   - lib/openwfe/expressions/environment.rb
@@ -79,6 +83,7 @@ files:
   - lib/openwfe/expressions/raw_xml.rb
   - lib/openwfe/expressions/timeout.rb
   - lib/openwfe/participants/atomparticipants.rb
+  - lib/openwfe/participants/csvparticipant.rb
   - lib/openwfe/participants/enoparticipant.rb
   - lib/openwfe/participants/participant.rb
   - lib/openwfe/participants/participantmap.rb
@@ -91,8 +96,11 @@ files:
   - lib/openwfe/rest/worklistclient.rb
   - lib/openwfe/rest/xmlcodec.rb
   - lib/openwfe/storage/yamlfilestorage.rb
+  - lib/openwfe/tools/flowtracer.rb
+  - lib/openwfe/util/csvtable.rb
   - lib/openwfe/util/dollar.rb
   - lib/openwfe/util/lru_cache.rb
+  - lib/openwfe/util/observable.rb
   - lib/openwfe/util/otime.rb
   - lib/openwfe/util/scheduler.rb
   - lib/openwfe/util/schedulers.rb
@@ -101,6 +109,7 @@ files:
   - test/atom_test.rb
   - test/cron_test.rb
   - test/cronline_test.rb
+  - test/csv_test.rb
   - test/dollar_test.rb
   - test/fei_test.rb
   - test/file_persistence_test.rb
@@ -108,6 +117,7 @@ files:
   - test/ft_0.rb
   - test/ft_0b_sequence.rb
   - test/ft_0c_testname.rb
+  - test/ft_0d_participant.rb
   - test/ft_10_loop.rb
   - test/ft_11_ppd.rb
   - test/ft_12_blockparticipant.rb
@@ -118,7 +128,14 @@ files:
   - test/ft_16_fqv.rb
   - test/ft_17_condition.rb
   - test/ft_18_pname.rb
+  - test/ft_19_csv.rb
   - test/ft_1_unset.rb
+  - test/ft_20_cron.rb
+  - test/ft_21_cron.rb
+  - test/ft_22_history.rb
+  - test/ft_23_when.rb
+  - test/ft_23b_when.rb
+  - test/ft_24_def.rb
   - test/ft_2_concurrence.rb
   - test/ft_3_equals.rb
   - test/ft_4_misc.rb
@@ -130,7 +147,6 @@ files:
   - test/hparticipant_test.rb
   - test/journal_persistence_test.rb
   - test/misc_test.rb
-  - test/rake_ptest.rb
   - test/rake_qtest.rb
   - test/rake_test.rb
   - test/raw_prog_test.rb
@@ -142,6 +158,8 @@ files:
   - test/scheduler_test.rb
   - test/time_test.rb
   - test/timeout_test.rb
+  - test/wi_test.rb
+  - examples/flowtracing.rb
   - examples/homeworkreview.rb
   - examples/mano_tracker.rb
   - examples/quotereporter.rb