ruote 0.9.18

data/test/ft_66_subforget.rb

@@ -0,0 +1,70 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest66 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            subproc :forget => true
+            _print "main done."
+        end
+        process_definition :name => :subproc do
+            sequence do
+                _print "sub done."
+            end
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        dotest(Test0, "main done.\nsub done.", 0.600)
+    end
+
+
+    #
+    # TEST 1
+
+    class Test1 < ProcessDefinition
+        sequence do
+            subproc
+            _print "main done."
+        end
+        process_definition :name => :subproc do
+            sequence do
+                _print "sub done."
+            end
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        dotest(Test1, "sub done.\nmain done.")
+    end
+
+end
+

data/test/ft_67_schedlaunch.rb

@@ -0,0 +1,116 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Sep 11 08:48:18 JST 2007
+#
+
+require 'rubygems'
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest67 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < OpenWFE::ProcessDefinition
+        _print "hell0"
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        @engine.launch Test0, :in => "2s"
+
+        sleep 0.400
+
+        assert_equal(
+            1, 
+            @engine.get_scheduler.find_jobs("scheduled-launch").size)
+
+        assert_trace ""
+
+        sleep 2.500
+
+        assert_trace "hell0"
+    end
+
+    #
+    # TEST 1
+
+    def test_1
+
+        #log_level_to_debug
+
+        t = Time.now
+
+        @engine.launch Test0, :at => (t + 2).to_s
+
+        sleep 0.400
+
+        assert_equal(
+            1, 
+            @engine.get_scheduler.find_jobs("scheduled-launch").size)
+
+        assert_trace ""
+
+        sleep 2.500
+
+        assert_trace "hell0"
+    end
+
+    #
+    # TEST 2
+
+    def test_2
+
+        #log_level_to_debug
+
+        @engine.launch Test0, :cron => "* * * * *"
+
+        assert_trace ""
+
+        sleep 121
+
+        assert_trace "hell0\nhell0"
+
+        assert_equal(
+            1, 
+            @engine.get_scheduler.find_jobs("scheduled-launch").size)
+    end
+
+    #
+    # TEST 3
+
+    def test_3
+
+        #log_level_to_debug
+
+        @engine.launch Test0, :every => "2s"
+
+        assert_trace ""
+
+        sleep 5
+
+        assert_trace "hell0\nhell0"
+
+        assert_equal(
+            1, 
+            @engine.get_scheduler.find_jobs("scheduled-launch").size)
+    end
+
+end
+

data/test/ft_68_ifparticipant.rb

@@ -0,0 +1,70 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Sep 11 21:32:10 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest68 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            alpha :id => 0
+            alpha :id => 1, :if => "${r:$count > 1}"
+            alpha :id => 2
+            alpha :id => 3, :if => "${r:$count > 1}"
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        $count = 0
+
+        @engine.register_participant :alpha do |workitem|
+            @tracer << "#{workitem.params["id"]} #{$count}\n"
+            $count += 1
+        end
+
+        dotest(Test0, "0 0\n2 1\n3 2")
+    end
+
+    #
+    # TEST 1
+
+    class Test1 < ProcessDefinition
+        sequence do
+            subp :id => 0
+            subp :id => 1, :unless => "true"
+            subp :id => 2
+        end
+        process_definition :name => "subp" do
+            _print "${id}"
+        end
+    end
+
+    def test_0
+
+        dotest(Test1, "0\n2")
+    end
+
+end
+

data/test/ft_69_cancelmissing.rb

@@ -0,0 +1,51 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Sep 13 09:50:29 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest69 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        #__bravo
+        participant :ref => "__bravo"
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        fei = launch Test0
+
+        sleep 0.350
+
+        assert @engine.process_status(fei.wfid).errors.size > 0
+
+        @engine.cancel_process fei
+
+        sleep 0.100
+
+        assert_nil @engine.process_status(fei.wfid)
+        assert_equal ({}), @engine.list_process_status
+    end
+
+end
+

data/test/ft_6_lambda.rb

@@ -0,0 +1,64 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 11 09:49:18 JST 2006
+# Narita terminal 1
+#
+
+require 'flowtestbase'
+
+
+class FlowTest6 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_lambda_0
+
+        dotest(
+'''<process-definition name="lambda_0" revision="0">
+    <sequence>
+        <set variable="inside1x">
+            <process-definition>
+                <print>bonjour ${name}</print>
+            </process-definition>
+        </set>
+
+        <inside1x name="world" />
+        <print>over</print>
+    </sequence>
+</process-definition>''', 
+            "bonjour world\nover")
+    end
+
+    #
+    # TEST 1
+
+    class Test1 < OpenWFE::ProcessDefinition
+        sequence do
+            _set :v => "inside1r" do
+                process_definition do
+                    _print "hello ${name}"
+                end
+            end
+            inside1r :name => "mundo"
+            _print "done."
+        end
+    end
+
+    def test_1
+
+        #log_level_to_debug
+
+        dotest(Test1, "hello mundo\ndone.")
+    end
+
+end
+

data/test/ft_70_lookupvar.rb

@@ -0,0 +1,55 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Sep 13 17:46:20 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest70 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            set :v => "//topvar", :val => "top"
+            set :v => "localvar", :val => "local"
+            toto
+        end
+    end
+
+    def test_0
+
+        #log_level_to_debug
+
+        @engine.register_participant "toto", NullParticipant
+
+        fei = launch Test0
+
+        sleep 0.350
+
+        assert_equal @engine.lookup_variable("topvar"), "top"
+        assert_equal @engine.lookup_variable("topvar", fei.wfid), "top"
+        assert_equal @engine.lookup_variable("localvar", fei.wfid), "local"
+
+        @engine.cancel_process(fei.wfid)
+
+        sleep 0.350
+    end
+
+end
+

data/test/ft_71_log.rb

@@ -0,0 +1,60 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Sep 13 17:46:20 JST 2007
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTest71 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # TEST 0
+
+    class Test0 < ProcessDefinition
+        sequence do
+            log "log:0"
+            log do
+                "log:1"
+            end
+            log :message => "log:2"
+            log :message => "log:3", :level => "info"
+        end
+    end
+
+    def test_0
+
+        log_level_to_debug
+            # required for the test ;)
+
+        File.open "logs/openwferu.log", "w" do
+            print ""
+        end
+
+        dotest Test0, ""
+
+        #assert_equal 1, OpenWFE.grep("DEBUG .*log:0", "logs/openwferu.log").size
+        assert_equal 1, OpenWFE.grep("log:0", "logs/openwferu.log").size
+
+        assert_equal 1, OpenWFE.grep("log:1", "logs/openwferu.log").size
+        assert_equal 4, OpenWFE.grep("log:.$", "logs/openwferu.log").size
+
+        #assert_equal 1, OpenWFE.grep("INFO .*log:3", "logs/openwferu.log").size
+        assert_equal 1, OpenWFE.grep("log:3", "logs/openwferu.log").size
+    end
+
+end
+