ruote 0.9.18

data/test/ft_40_defined.rb

@@ -0,0 +1,61 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest40 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestDefined40a0 < OpenWFE::ProcessDefinition
+        sequence do
+
+            defined :field => "nada"
+            _print "${f:__result__}"
+
+            set :field => "nada", :value => "stuff"
+
+            defined :field => "nada"
+            _print "${f:__result__}"
+            defined :field_value => "nada"
+            _print "${f:__result__}"
+
+            defined :field_match => "^na.*"
+            _print "${f:__result__}"
+            defined :field_match => "^Na.*"
+            _print "${f:__result__}"
+            defined :field_match => "da$"
+            _print "${f:__result__}"
+
+            undefined :field_value => "nada"
+            _print "${f:__result__}"
+            undefined :field_value => "other"
+            _print "${f:__result__}"
+        end
+    end
+
+    def test_0
+
+        dotest(
+            TestDefined40a0, 
+            %w{ false true true true false true false true }.join("\n"))
+    end
+
+end
+

data/test/ft_41_case.rb

@@ -0,0 +1,110 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest41 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase41a0 < OpenWFE::ProcessDefinition
+        sequence do
+            _case do
+                reval "2 % 2 == 0"
+                _print "ok 0"
+            end
+            _case do
+                reval "2 % 2 == 1"
+                _print "bad 1"
+                _print "ok 1"
+            end
+            _case do
+                reval "2 % 2 == 1"
+                _print "bad 2"
+                reval "2 % 2 == 0"
+                _print "ok 2"
+                _print "bad 2"
+            end
+            _case do
+                reval "2 % 2 == 1"
+                _print "bad 2b"
+                reval "2 % 2 == 0"
+                _print "ok 2b"
+            end
+            _case do
+                reval "2 % 2 == 1"
+                _print "bad 3"
+                reval "2 % 2 == 3"
+                _print "bad 3"
+                _print "ok 3"
+            end
+        end
+    end
+
+    def test_0
+
+        dotest(
+            TestCase41a0, 
+            [ 'ok 0', 'ok 1', 'ok 2', 'ok 2b', 'ok 3' ].join("\n"))
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCase41a1 < OpenWFE::ProcessDefinition
+        sequence do
+
+            _if :test => "1 == 1"
+            _print "${f:__result__}"
+        end
+    end
+
+    def test_1
+
+        dotest TestCase41a1, 'true'
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestCase41a2 < OpenWFE::ProcessDefinition
+        sequence do
+            _case do
+                _if :test => "1 == 1"
+                _print "ok"
+            end
+            _case do
+                _if :test => "false"
+                _print "bad 1"
+                _print "ok 1"
+            end
+        end
+    end
+
+    def test_2
+
+        dotest TestCase41a2, "ok\nok 1"
+    end
+
+end
+

data/test/ft_42_environments.rb

@@ -0,0 +1,75 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest42 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase42a0 < OpenWFE::ProcessDefinition
+        sequence do
+            set :variable => "v", :value => "a"
+            concurrence do
+                set :variable => "v", :value => "b"
+                set :variable => "v", :value => "c"
+                forget do
+                    set :variable => "v", :value => "d"
+                end
+            end
+            _print "v:${v}"
+        end
+    end
+
+    def test_0
+
+        dotest TestCase42a0, [ "v:b", "v:c" ]
+    end
+
+
+    #
+    # Test 1
+    #
+
+    # DISABLED
+
+    class TestCase42a1 < OpenWFE::ProcessDefinition
+        sequence do
+            set :variable => "v", :value => "a"
+            concurrence :count => 2 do
+                set :variable => "v", :value => "b"
+                set :variable => "v", :value => "c"
+                lose do
+                    set :variable => "v", :value => "d"
+                end
+            end
+            _print "v:${v}"
+        end
+    end
+
+    def _test_1
+
+        dotest(
+            TestCase42a1, 
+            "v:d",
+            true)
+    end
+
+end
+

data/test/ft_43_pat10.rb

@@ -0,0 +1,85 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest43 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase43a0 < OpenWFE::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 test_0
+
+        dotest TestCase43a0.new(1), "1\n2\n3"
+    end
+
+    def test_1
+
+        dotest TestCase43a0.new(2), "2\n3"
+    end
+
+    def test_2
+
+        dotest TestCase43a0.new(2000), "2\n3"
+    end
+
+
+    #
+    # Test 3
+    #
+
+    class TestCase43a3 < OpenWFE::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 test_3
+
+        dotest TestCase43a3, "0\n1\n2"
+    end
+
+end
+

data/test/ft_44_save.rb

@@ -0,0 +1,70 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest44 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase44a0 < OpenWFE::ProcessDefinition
+        sequence do
+            set :field => "f", :value => "v"
+            save :to_field => "saved"
+            #pp_workitem
+            _print "${f:saved.f}"
+        end
+    end
+
+    def test_0
+
+        dotest TestCase44a0, "v"
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCase44a1 < OpenWFE::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 test_1
+
+        @engine.register_participant :print_var do |fexp, wi|
+            @tracer << fexp.lookup_variable('v').f.to_s
+        end
+
+        dotest TestCase44a1, "field_value"
+    end
+
+end
+

data/test/ft_44b_restore.rb

@@ -0,0 +1,212 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest44b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase44b0 < OpenWFE::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 test_0
+
+        dotest TestCase44b0, "v\n\nv"
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCase44b1 < OpenWFE::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 test_1
+
+        dotest TestCase44b1, "field_value_x\nfield_value"
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestCase44b2 < OpenWFE::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 test_2
+
+        dotest TestCase44b2, "field_value"
+    end
+
+
+    #
+    # Test 3
+    #
+
+    class TestCase44b3 < OpenWFE::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 test_3
+
+        dotest TestCase44b3, "value_aa\nvalue_b"
+    end
+
+
+    #
+    # Test 4
+    #
+
+    class TestCase44b4 < OpenWFE::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 test_4
+
+        dotest TestCase44b4, "value_a\nvalue_b"
+    end
+
+    # tests about set_fields...
+
+    #
+    # Test 5
+    #
+
+    class Test44b5 < OpenWFE::ProcessDefinition
+        sequence do
+            set_fields :value => { 
+                "customer" => { "name" => "Zigue", "age" => 34 },
+                "approved" => false }
+            _print "${f:customer.name} (${f:customer.age}) ${f:approved}"
+            #pp_fields
+        end
+    end
+
+    def test_5
+
+        dotest Test44b5, "Zigue (34) false"
+    end
+
+    #
+    # Test 6
+    #
+
+    class Test44b6 < OpenWFE::ProcessDefinition
+        set_fields :value => { 
+            "customer" => { "name" => "Zigue", "age" => 34 },
+            "approved" => false }
+        sequence do
+            _print "${f:customer.name} (${f:customer.age}) ${f:approved}"
+        end
+    end
+
+    def test_6
+
+        dotest Test44b6, "Zigue (34) false"
+    end
+
+    #
+    # Test 7
+    #
+
+    class Test44b7 < OpenWFE::ProcessDefinition
+        set_fields do
+            {
+                "customer" => { "name" => "Zigue", "age" => 34 },
+                "approved" => false 
+            }
+        end
+        sequence do
+            _print "${f:customer.name} (${f:customer.age}) ${f:approved}"
+        end
+    end
+
+    def _test_7
+
+        dotest Test44b7, "Zigue (34) false"
+    end
+
+    #
+    # Test 8
+    #
+
+    class Test44b8 < OpenWFE::ProcessDefinition
+        set_fields :value => { 
+            "customer" => { "name" => "Zigue", "age" => 34 },
+            "approved" => false }, :merge_lead => :current
+        sequence do
+            _print "${f:customer.name} (${f:customer.age}) ${f:approved}"
+        end
+    end
+
+    def test_8
+
+        li = LaunchItem.new Test44b8
+        li.approved = true
+        dotest li, "Zigue (34) true"
+    end
+
+end
+