openwferu 0.9.16 → 0.9.17

data/test/ft_39_reserve.rb

@@ -37,26 +37,11 @@ class FlowTest39 < Test::Unit::TestCase
         dotest TestReserve39a0, "ok", true
     end
 
-
     #
     # Test 1
     #
-
-    class TestReserve39a1 < ProcessDefinition
-        sequence do
-            reserve :mutex => :toto do
-                _print "${r:'${toto}' != ''}"
-            end
-            _print "${r:'${toto}' == ''}"
-            _print "over."
-        end
-    end
-
-    def test_1
-
-        dotest TestReserve39a1, "true\ntrue\nover.", true 
-    end
-
+    
+    # became obsolete
 
     #
     # Test 2
@@ -74,7 +59,7 @@ class FlowTest39 < Test::Unit::TestCase
     end
 
     def test_3
-        dotest(TestReserve39a3, "", true)
+        dotest TestReserve39a3, "", true
     end
 
 end

data/test/ft_39b_reserve.rb

@@ -30,13 +30,13 @@ class FlowTest39b < Test::Unit::TestCase
         # doesn't prove it enough though...
         #
         concurrence do
-            reserve :mutex => :toto, :frequency => "500" do
+            reserve :mutex => :toto do
                 sequence do
                     test_alpha
                     test_bravo
                 end
             end
-            reserve :mutex => :toto, :frequency => "500" do
+            reserve :mutex => :toto do
                 sequence do
                     test_charly
                     test_delta
@@ -45,7 +45,9 @@ class FlowTest39b < Test::Unit::TestCase
         end
     end
 
-    def test_2
+    def test_0
+
+        #log_level_to_debug
 
         dotest(
             TestReserve39b0, 
@@ -62,8 +64,35 @@ test-bravo
 test-charly
 test-delta
 """.strip 
-            ],
-            3)
+            ])
+    end
+
+    #
+    # Test 1
+    #
+
+    class TestReserve39b1 < ProcessDefinition
+        concurrence do
+            reserve :mutex => :toto do
+                test_b
+            end
+            sequence do
+                reserve :mutex => :toto do
+                    test_c
+                end
+                reserve :mutex => :toto do
+                    test_d
+                end
+            end
+        end
+    end
+
+    def test_1
+        
+        dotest TestReserve39b1, "test-b\ntest-c\ntest-d"
+            #
+            # currently the only combination produced, could change
+            # with later versions of Ruby...
     end
 
 end

data/test/ft_3b_lookup_vf.rb

@@ -0,0 +1,83 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Wed Jan  9 22:52:06 JST 2008
+#
+
+require 'flowtestbase'
+
+
+class FlowTest3b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    class Def0 < OpenWFE::ProcessDefinition
+        sequence do
+
+            # variable
+
+            set :v => "v0", :val => "val0"
+
+            equals :variable => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :variable_value => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :var_value => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :v_value => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :var => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :v => "v0", :other_value => "val0"
+            _print "${f:__result__}"
+
+            equals :v => "v0", :other_val => "val0"
+            _print "${f:__result__}"
+
+            equals :val => "val0", :other_val => "val0"
+            _print "${f:__result__}"
+
+            # field
+
+            set :f => "f0", :val => "f_val0"
+
+            equals :field_value => "f0", :other_value => "f_val0"
+            _print "${f:__result__}"
+
+            equals :f_value => "f0", :other_value => "f_val0"
+            _print "${f:__result__}"
+
+            equals :field => "f0", :other_value => "f_val0"
+            _print "${f:__result__}"
+
+            equals :field => "f0", :value => "f_val0"
+            _print "${f:__result__}"
+
+            equals :f => "f0", :other_value => "f_val0"
+            _print "${f:__result__}"
+
+            # damn, I could use a Rufus subprocess... but it's 11pm...
+            # copy, paste is just fine for a test...
+        end
+    end
+
+    def test_0
+
+        dotest Def0, ([ "true" ] * 13).join("\n")
+    end
+
+end
+

data/test/ft_40_defined.rb

@@ -54,19 +54,10 @@ class FlowTest40 < Test::Unit::TestCase
     end
 
     def test_0
+
         dotest(
             TestDefined40a0, 
-            """
-false
-true
-true
-true
-false
-true
-false
-true
-            """.strip,
-            true)
+            %w{ false true true true false true false true }.join("\n"))
     end
 
 end

data/test/ft_42_environments.rb

@@ -39,11 +39,9 @@ class FlowTest42 < Test::Unit::TestCase
         end
     end
 
-    #def xxxx_0
     def test_0
-        dotest(
-            TestCase42a0, 
-            [ "v:b", "v:c" ])
+
+        dotest TestCase42a0, [ "v:b", "v:c" ]
     end
 
 
@@ -67,8 +65,8 @@ class FlowTest42 < Test::Unit::TestCase
         end
     end
 
-    def xxxx_1
-    #def test_1
+    def _test_1
+
         dotest(
             TestCase42a1, 
             "v:d",

data/test/ft_44b_restore.rb

@@ -37,7 +37,6 @@ class FlowTest44b < Test::Unit::TestCase
         end
     end
 
-    #def xxxx_0
     def test_0
         dotest(
             TestCase44b0,
@@ -65,14 +64,9 @@ v
         end
     end
 
-    #def xxxx_1
     def test_1
-        dotest(
-            TestCase44b1,
-            """
-field_value_x
-field_value
-            """.strip)
+
+        dotest TestCase44b1, "field_value_x\nfield_value"
     end
 
 
@@ -113,14 +107,9 @@ field_value
         end
     end
 
-    #def xxxx_3
     def test_3
-        dotest(
-            TestCase44b3,
-            """
-value_aa
-value_b
-            """.strip)
+
+        dotest TestCase44b3, "value_aa\nvalue_b"
     end
 
 
@@ -141,14 +130,91 @@ value_b
         end
     end
 
-    #def xxxx_4
     def test_4
-        dotest(
-            TestCase44b4,
-            """
-value_a
-value_b
-            """.strip)
+
+        dotest TestCase44b4, "value_a\nvalue_b"
+    end
+
+    # tests about set_fields...
+
+    #
+    # Test 5
+    #
+
+    class Test44b5 < 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 < 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
+    #
+
+    # not yet
+
+    class Test44b7 < 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 < 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

data/test/ft_45_citerator.rb

@@ -34,7 +34,6 @@ class FlowTest45 < Test::Unit::TestCase
         end
     end
 
-    #def xxxx_0
     def test_0
         dotest(
             TestCase45a0,
@@ -65,7 +64,6 @@ done.
         end
     end
 
-    #def xxxx_1
     def test_1
         dotest(
             TestCase45a1,
@@ -101,8 +99,7 @@ done.
 
     # test 'parked' for now
 
-    def xxxx_2
-    #def test_2
+    def _test_2
         dotest(
             TestCase45a2,
             """
@@ -126,15 +123,64 @@ done.
         end
     end
 
-    # test 'parked' for now
-
-    #def xxxx_3
     def test_3
+        dotest TestCase45a3, "done."
+    end
+
+
+    #
+    # Test 4
+    #
+
+    class TestCase45a4 < 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(
-            TestCase45a3,
-            """
-done.
-            """.strip)
+            TestCase45a4, 
+            %w{ a b c 1 2 1 2 1 2 }.join("\n") + "\ndone.")
+    end
+
+
+    #
+    # Test 5
+    #
+
+    class TestCase45a5 < 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
 
 end