openwferu 0.9.8 → 0.9.9

data/test/ft_43_pat10.rb

@@ -0,0 +1,109 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest43 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase43a0 < ProcessDefinition
+        def initialize (jump)
+            super()
+            @jump = jump
+        end
+        def make
+            process_definition :name => "jump", :revision => "0" do
+                sequence do
+                    set :field => "__cursor_command__", :value => "jump #{@jump}"
+                    cursor do
+                        _print "0"
+                        _print "1"
+                        _print "2"
+                    end
+                    _print "3"
+                end
+            end
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+        dotest(
+            TestCase43a0.new(1), 
+            """
+1
+2
+3
+            """.strip)
+    end
+
+    #def xxxx_1
+    def test_1
+        dotest(
+            TestCase43a0.new(2), 
+            """
+2
+3
+            """.strip)
+    end
+
+    #def xxxx_2
+    def test_2
+        dotest(
+            TestCase43a0.new(2000), 
+            """
+2
+3
+            """.strip)
+    end
+
+
+    #
+    # Test 3
+    #
+
+    class TestCase43a3 < ProcessDefinition
+        sequence do
+            set :field => "__cursor_command__", :value => "jump 2"
+            cursor do
+                _print "0"
+                skip :step => 2
+                jump :step => 0
+                _print "1"
+            end
+            _print "2"
+        end
+    end
+
+    #def xxxx_3
+    def test_3
+        dotest(
+            TestCase43a3,
+            """
+0
+1
+2
+            """.strip)
+    end
+
+end
+

data/test/ft_44_save.rb

@@ -0,0 +1,81 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest44 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase44a0 < ProcessDefinition
+        sequence do
+            set :field => "f", :value => "v"
+            save :to_field => "saved"
+            #pp_workitem
+            _print "${f:saved.f}"
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+        dotest(
+            TestCase44a0,
+            """
+v
+            """.strip)
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCase44a1 < ProcessDefinition
+        sequence do
+
+            set :field => "f", :value => "field_value"
+            save :to_variable => "v"
+
+            #pp_workitem
+            #_print "${r:fexp.lookup_variable('v').f}"
+                #
+                # doesn't work in case of ptest
+
+            print_var
+        end
+    end
+
+    #def xxxx_1
+    def test_1
+
+        @engine.register_participant :print_var do |fexp, wi|
+            @tracer << fexp.lookup_variable('v').f.to_s
+        end
+
+        dotest(
+            TestCase44a1,
+            """
+field_value
+            """.strip)
+    end
+
+end
+

data/test/ft_44b_restore.rb

@@ -0,0 +1,159 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest44b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase44b0 < ProcessDefinition
+        sequence do
+            set :field => "f", :value => "v"
+            save :to_field => "saved"
+            #pp_workitem
+            _print "${f:saved.f}"
+            restore :from_field => "saved"
+            _print "${f:saved.f}"
+            _print "${f:f}"
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+        dotest(
+            TestCase44b0,
+            """
+v
+
+v
+            """.strip)
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCase44b1 < ProcessDefinition
+        sequence do
+            set :field => "f", :value => "field_value"
+            save :to_variable => "v"
+            #pp_workitem
+            set :field => "f", :value => "field_value_x"
+            _print "${f:f}"
+            restore :from_variable => "v"
+            _print "${f:f}"
+        end
+    end
+
+    #def xxxx_1
+    def test_1
+        dotest(
+            TestCase44b1,
+            """
+field_value_x
+field_value
+            """.strip)
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestCase44b2 < ProcessDefinition
+        sequence do
+            set :field => "f", :value => "field_value"
+            save :to_variable => "v"
+            restore :from_variable => :v, :to_field => :f1
+            #pp_workitem
+            _print "${f:f1.f}"
+        end
+    end
+
+    #def xxxx_2
+    def test_2
+        dotest(
+            TestCase44b2,
+            """
+field_value
+            """.strip)
+    end
+
+
+    #
+    # Test 3
+    #
+
+    class TestCase44b3 < ProcessDefinition
+        sequence do
+            set :field => "f0", :value => "value_a"
+            save :to_variable => "v"
+            set :field => "f0", :value => "value_aa"
+            set :field => "f1", :value => "value_b"
+            restore :from_variable => :v, :merge_lead => :current
+            #pp_workitem
+            _print "${f:f0}"
+            _print "${f:f1}"
+        end
+    end
+
+    #def xxxx_3
+    def test_3
+        dotest(
+            TestCase44b3,
+            """
+value_aa
+value_b
+            """.strip)
+    end
+
+
+    #
+    # Test 4
+    #
+
+    class TestCase44b4 < ProcessDefinition
+        sequence do
+            set :field => "f0", :value => "value_a"
+            save :to_variable => "v"
+            set :field => "f0", :value => "value_aa"
+            set :field => "f1", :value => "value_b"
+            restore :from_variable => :v, :merge_lead => :restored
+            #pp_workitem
+            _print "${f:f0}"
+            _print "${f:f1}"
+        end
+    end
+
+    #def xxxx_4
+    def test_4
+        dotest(
+            TestCase44b4,
+            """
+value_a
+value_b
+            """.strip)
+    end
+
+end
+

data/test/ft_45_citerator.rb

@@ -0,0 +1,104 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest45 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase45a0 < ProcessDefinition
+        sequence do
+            concurrent_iterator :on_value => "1, 2", :to_variable => "v" do
+                _print "${r:fei.sub_instance_id} - ${v}"
+            end
+            _print "done."
+        end
+    end
+
+    #def xxxx_0
+    def test_0
+        dotest(
+            TestCase45a0,
+            """
+.0 - 1
+.1 - 2
+done.
+            """.strip)
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCase45a1 < ProcessDefinition
+        sequence do
+            concurrent_iterator :on_value => "1, 2", :to_field => "f" do
+                _print "${r:fei.sub_instance_id} - ${f:f}"
+            end
+            _print "done."
+        end
+    end
+
+    #def xxxx_1
+    def test_1
+        dotest(
+            TestCase45a1,
+            """
+.0 - 1
+.1 - 2
+done.
+            """.strip)
+    end
+
+    #
+    # Test 2
+    #
+
+    class TestCase45a2 < 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 xxxx_2
+    #def test_2
+        dotest(
+            TestCase45a2,
+            """
+.0 - 1
+.1 - 2
+done.
+            """.strip)
+    end
+
+end
+