ruote 0.9.18

data/test/ft_45_citerator.rb

@@ -0,0 +1,214 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest45 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase45a0 < OpenWFE::ProcessDefinition
+        sequence do
+            concurrent_iterator :on_value => "1, 2", :to_variable => "v" do
+                _print "${r:fei.expid} - ${v}"
+            end
+            _print "done."
+        end
+    end
+
+    def test_0
+        dotest(
+            TestCase45a0,
+            [ """
+0.0.0.0 - 1
+0.0.0.1 - 2
+done.
+              """.strip,
+              """
+0.0.0.1 - 2
+0.0.0.0 - 1
+done.
+              """.strip
+            ])
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCase45a1 < OpenWFE::ProcessDefinition
+        sequence do
+            concurrent_iterator :on_value => "1, 2", :to_field => "f" do
+                _print "${r:fei.expid} - ${f:f}"
+            end
+            _print "done."
+        end
+    end
+
+    def test_1
+        dotest(
+            TestCase45a1,
+            [ """
+0.0.0.0 - 1
+0.0.0.1 - 2
+done.
+              """.strip,
+              """
+0.0.0.1 - 2
+0.0.0.0 - 1
+done.
+              """.strip
+            ])
+    end
+
+    #
+    # Test 2
+    #
+
+    class TestCase45a2 < OpenWFE::ProcessDefinition
+        sequence do
+            concurrent_iterator \
+                :on_value => "1, 2", 
+                :to_field => "f",
+                :over_if => "${f:__ip__} == 0" do
+
+                _print "${r:fei.sub_instance_id} - ${f:f}"
+            end
+            _print "done."
+        end
+    end
+
+    # test 'parked' for now
+
+    def _test_2
+        dotest(
+            TestCase45a2,
+            """
+.0 - 1
+.1 - 2
+done.
+            """.strip)
+    end
+
+
+    #
+    # Test 3
+    #
+
+    class TestCase45a3 < OpenWFE::ProcessDefinition
+        sequence do
+            concurrent_iterator :on_value => "", :to_field => "f" do
+                _print "${r:fei.sub_instance_id} - ${f:f}"
+            end
+            _print "done."
+        end
+    end
+
+    def test_3
+        dotest TestCase45a3, "done."
+    end
+
+
+    #
+    # Test 4
+    #
+
+    class TestCase45a4 < OpenWFE::ProcessDefinition
+        sequence do
+            concurrent_iterator :on => "a, b, c", :to_field => "f" do
+                _print "${f:f}"
+            end
+            set :var => "v", :value => "1, 2"
+            concurrent_iterator :on_variable_value => "v", :to_field => "f" do
+                _print "${f:f}"
+            end
+            concurrent_iterator :on_var_value => "v", :to_field => "f" do
+                _print "${f:f}"
+            end
+            concurrent_iterator :on_var => "v", :to_field => "f" do
+                _print "${f:f}"
+            end
+            _print "done."
+        end
+    end
+
+    def test_4
+
+        dotest(
+            TestCase45a4, 
+            %w{ a b c 1 2 1 2 1 2 }.join("\n") + "\ndone.")
+    end
+
+
+    #
+    # Test 5
+    #
+
+    class TestCase45a5 < OpenWFE::ProcessDefinition
+        sequence do
+            set :f => "f0", :value => "1, 2"
+            concurrent_iterator :on_f => "f0", :to_field => "f" do
+                _print "${f:f}"
+            end
+            concurrent_iterator :on_f => :f0, :to_field => "f" do
+                _print "${f:f}"
+            end
+            _print "done."
+        end
+    end
+
+    def test_5
+
+        dotest(
+            TestCase45a5, 
+            %w{ 1 2 1 2 }.join("\n") + "\ndone.")
+    end
+
+
+    #
+    # Test 6
+    #
+
+    class Test6 < OpenWFE::ProcessDefinition
+        concurrent_iterator :on => "a, b, c, d", :to_field => "f" do
+            participant "${f:f}"
+        end
+    end
+
+    def test_6
+
+        @engine.register_participant ".", OpenWFE::NullParticipant
+
+        fei = launch Test6
+
+        sleep 0.350
+
+        #puts @engine.get_expression_storage
+        assert_equal 12, @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_46_pparams.rb

@@ -0,0 +1,62 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest46 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestPTask46a0 < OpenWFE::ProcessDefinition
+        sequence do
+
+            participant :ref => :nemo, :description => "clean the desk"
+
+            _print "${f:description}"
+                # just checking that the description is wiped after usage
+
+            participant :ref => :nemo, :task => "force"
+
+            _print "${f:task}"
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant :nemo do |workitem|
+            @tracer.puts workitem.params['ref']
+            @tracer.puts workitem.params['description']
+            @tracer.puts workitem.params['task']
+        end
+
+        dotest(
+            TestPTask46a0,
+            """
+nemo
+clean the desk
+
+
+nemo
+
+force
+            """.strip)
+    end
+
+end
+

data/test/ft_47_filter.rb

@@ -0,0 +1,160 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest47 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestFilter47a0 < OpenWFE::ProcessDefinition
+        sequence do
+            _print "${v0}"
+            _print "${v1}"
+            filter_definition :name => "filter1" do
+            end
+            _defined :variable => :filter0
+            _print "${f:__result__}"
+            _defined :variable => :filter1
+            _print "${f:__result__}"
+        end
+        filter_definition :name => "filter0" do
+        end
+        set :variable => "v0", :value => "toto"
+        set :variable => "v1", :value => "hector"
+    end
+
+    def test_0
+        dotest(
+            TestFilter47a0,
+            "toto\nhector\ntrue\ntrue")
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestFilter47a1 < OpenWFE::ProcessDefinition
+        sequence do
+
+            set :field => "readable", :value => "bible"
+            set :field => "writable", :value => "sand"
+            set :field => "randw", :value => "notebook"
+            set :field => "hidden", :value => "playboy"
+
+            toto
+            toto :filter => "filter0"
+
+            _print "${f:readable}"
+            _print "${f:writable}"
+            _print "${f:randw}"
+            _print "${f:hidden}"
+        end
+
+        filter_definition :name => "filter0" do
+            field :regex => "readable", :permissions => "r"
+            field :regex => "writable", :permissions => "w"
+            field :regex => "randw", :permissions => "rw"
+            field :regex => "hidden", :permissions => ""
+        end
+    end
+
+    def test_1
+
+        @engine.register_participant :toto do |workitem|
+
+            @tracer << "filter.size is #{workitem.filter.fields.size}\n" \
+                if workitem.filter
+
+            @tracer << "r  : #{workitem.attributes['readable']}\n"
+            @tracer << "w  : #{workitem.attributes['writable']}\n"
+            @tracer << "rw : #{workitem.attributes['randw']}\n"
+            @tracer << "h  : #{workitem.attributes['hidden']}\n"
+            @tracer << "--\n"
+        end
+
+        dotest(
+            TestFilter47a1,
+            """
+r  : bible
+w  : sand
+rw : notebook
+h  : playboy
+--
+filter.size is 4
+r  : bible
+w  : 
+rw : notebook
+h  : 
+--
+bible
+sand
+notebook
+playboy
+            """.strip)
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestFilter47a2 < OpenWFE::ProcessDefinition
+        sequence do
+
+            set :field => "readable", :value => "bible"
+            set :field => "writable", :value => "sand"
+            set :field => "randw", :value => "notebook"
+            set :field => "hidden", :value => "playboy"
+
+            alice :filter => "filter0"
+            pp_fields
+        end
+
+        filter_definition :name => "filter0" do
+            field :regex => "readable", :permissions => "r"
+            field :regex => "writable", :permissions => "w"
+            field :regex => "randw", :permissions => "rw"
+            field :regex => "hidden", :permissions => ""
+        end
+    end
+
+    def test_2
+
+        @engine.register_participant :alice do |workitem|
+            workitem.readable = "nada"
+            workitem.writable = "nada"
+            workitem.randw = "nada"
+            workitem.hidden = "nada"
+        end
+
+        dotest(
+            TestFilter47a2,
+            """
+hidden: playboy
+randw: nada
+readable: bible
+writable: nada
+--
+            """.strip)
+    end
+
+end
+

data/test/ft_48_fe_filter.rb

@@ -0,0 +1,88 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest48 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestFilter48a0 < OpenWFE::ProcessDefinition
+        sequence do
+
+            set :field => "readable", :value => "bible"
+            set :field => "writable", :value => "sand"
+            set :field => "randw", :value => "notebook"
+            set :field => "hidden", :value => "playboy"
+
+            alice
+
+            filter :name => "filter0" do
+                alice
+            end
+
+            alice
+        end
+
+        filter_definition :name => "filter0" do
+            field :regex => "readable", :permissions => "r"
+            field :regex => "writable", :permissions => "w"
+            field :regex => "randw", :permissions => "rw"
+            field :regex => "hidden", :permissions => ""
+        end
+    end
+
+    def test_0
+
+        @engine.register_participant :alice do |workitem|
+
+            @tracer << "filter.size is #{workitem.filter.fields.size}\n" \
+                if workitem.filter
+
+            @tracer << "r  : #{workitem.attributes['readable']}\n"
+            @tracer << "w  : #{workitem.attributes['writable']}\n"
+            @tracer << "rw : #{workitem.attributes['randw']}\n"
+            @tracer << "h  : #{workitem.attributes['hidden']}\n"
+            @tracer << "--\n"
+        end
+
+        dotest(
+            TestFilter48a0,
+            """
+r  : bible
+w  : sand
+rw : notebook
+h  : playboy
+--
+filter.size is 4
+r  : bible
+w  : 
+rw : notebook
+h  : 
+--
+r  : bible
+w  : sand
+rw : notebook
+h  : playboy
+--
+            """.strip)
+    end
+
+end
+