ruote 0.9.18

data/test/ft_22_history.rb

@@ -0,0 +1,74 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'flowtestbase'
+require 'openwfe/expool/history'
+require 'openwfe/def'
+
+
+class FlowTest22 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < OpenWFE::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, %w{ a b c }.join("\n")
+
+        #puts history.to_s
+        #puts history.entries.size()
+
+        #f = File.open("history.log", "w")
+        #f.write(history.to_s)
+        #f.close()
+
+        assert_equal 22, history.entries.size
+    end
+
+    def test_history_1
+
+        @engine.init_service("history", FileHistory)
+
+        dotest TestDefinition0, %w{ a b c }.join("\n")
+
+        @engine.ac["history"].output_file.flush
+
+        linecount = File.open("work/history.log") do |f|
+            f.readlines.size
+        end
+
+        assert_equal 22, linecount
+    end
+
+end
+

data/test/ft_23_when.rb

@@ -0,0 +1,77 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'rubygems'
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest23 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        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
+
+    def test_0
+
+        dotest TestDefinition0, "done\nok"
+    end
+
+    #
+    # Test 1
+    #
+
+    class TestWhen1 < OpenWFE::ProcessDefinition
+        concurrence do
+            _when :frequency => "2s" do
+                sequence do
+                    #reval "puts '___ equals : ' + fei.wfid"
+                    _equals :value => "${done}", :other_value => "true"
+                end
+                sequence do
+                    #reval "puts '___ consequence : ' + fei.wfid"
+                    _print "ok"
+                end
+            end
+            sequence do
+                _sleep "500"
+                _set :variable => "done", :value => "true"
+                _print "done"
+            end
+        end
+    end
+
+    def test_1
+
+        dotest TestWhen1, "done\nok"
+    end
+
+end
+

data/test/ft_23b_when.rb

@@ -0,0 +1,70 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest23b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestWhen23b0 < OpenWFE::ProcessDefinition
+        process_definition :name => "23b_when0", :revision => "0" do
+            concurrence do
+                _when :test => "false == true", :timeout => "1s500" do
+                    _print "la vaca vuela"
+                end
+                _print "ok"
+            end
+        end
+    end
+
+    #
+    # Testing if the conditional _when got correctly unscheduled.
+    #
+    def test_0
+
+        #log_level_to_debug
+
+        dotest TestWhen23b0, "ok"
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestWhen23b1 < OpenWFE::ProcessDefinition
+        concurrence do
+            _when :test => "true == true" do
+            end
+            _print "ok"
+        end
+    end
+
+    #
+    # Testing an empty _when
+    #
+    def test_1
+
+        #log_level_to_debug
+
+        dotest TestWhen23b1, "ok"
+    end
+
+end
+

data/test/ft_23c_wait.rb

@@ -0,0 +1,80 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest23c < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Wait0c < OpenWFE::ProcessDefinition
+        sequence do
+            concurrence do
+                sequence do
+                    wait :until => "${done} == true", :frequency => "500"
+                    _print "after wait"
+                end
+                sequence do
+                    _sleep "200"
+                    _print "before done"
+                    _set :variable => "done", :value => "true"
+                end
+            end
+            _print "over"
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        dotest Wait0c, [ 'before done', 'after wait', 'over' ].join("\n")
+    end
+
+    #
+    # Test 1
+    #
+
+    class Wait1c < OpenWFE::ProcessDefinition
+        sequence do
+            concurrence do
+                sequence do
+                    wait :frequency => "500" do
+                        equals :variable_value => "done", :other_value => "true"
+                    end
+                    _print "after wait"
+                end
+                sequence do
+                    _sleep "200"
+                    _print "before done"
+                    _set :variable => "done", :value => "true"
+                end
+            end
+            _print "over"
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        dotest Wait1c, [ 'before done', 'after wait', 'over' ].join("\n")
+    end
+    
+end
+

data/test/ft_23d_cww.rb

@@ -0,0 +1,58 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Tue Apr  8 12:59:05 JST 2008
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest23d < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        concurrence do
+            _when :test => "false == true", :timeout => "1s500" do
+                _print "la vaca vuela"
+            end
+            _print "ok"
+        end
+    end
+
+    #
+    # Testing if the conditional _when got correctly unscheduled.
+    #
+    def test_0
+
+        #log_level_to_debug
+
+        fei = launch Test0
+
+        sleep 0.350
+
+        #puts @engine.get_expression_storage
+        assert_equal 6, @engine.get_expression_storage.size
+
+        @engine.cancel_process fei
+
+        sleep 0.350
+
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+end
+

data/test/ft_24_def.rb

@@ -0,0 +1,44 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'rubygems'
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+#
+# just testing the
+#
+#     require 'openwfe/def'
+#
+# shortcut
+#
+
+class FlowTest24 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        _print "ok"
+    end
+
+    def test_0
+
+        dotest TestDefinition0, "ok"
+    end
+
+end
+

data/test/ft_25_cancel.rb

@@ -0,0 +1,89 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest25 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    def test_cancel_0
+
+        #log_level_to_debug
+
+        dotest(
+            '''
+<process-definition name="25_cancel" revision="0">
+    <sequence>
+        <print>before</print>
+        <cancel-process/>
+        <print>after</print>
+    </sequence>
+</process-definition>
+            '''.strip, 
+            "before",
+            0.400)
+    end
+
+
+    #
+    # TEST 1
+
+    class TestDefinition1 < ProcessDefinition
+        def make
+            _process_definition :name => "25_cancel", :revision => "1" do
+                _sequence do
+                    _print "before"
+                    _cancel_process
+                    _print "after"
+                end
+            end
+        end
+    end
+
+    def test_1
+
+        dotest(
+            TestDefinition1, 
+            "before",
+            0.500)
+    end
+
+
+    #
+    # TEST 2
+
+    class TestDefinition2 < ProcessDefinition
+        def make
+            _process_definition :name => "25_cancel", :revision => "2" do
+                _sequence do
+                    _print "before"
+                    _cancel_process :if => "false"
+                    _print "after"
+                end
+            end
+        end
+    end
+
+    def test_2
+        dotest TestDefinition2, "before\nafter"
+    end
+
+end
+