test/ft_14b_subprocess.rb in openwferu-0.9.5 vs test/ft_14b_subprocess.rb in openwferu-0.9.6

@@ -5,10 +5,11 @@
 # John Mettraux at openwfe.org
 #
 # Mon Oct  9 22:19:44 JST 2006
 #
 
+require 'openwfe/def'
 require 'flowtestbase'
 
 
 class FlowTest14b < Test::Unit::TestCase
     include FlowTestBase
@@ -17,10 +18,14 @@
     #end
 
     #def teardown
     #end
 
+
+    #
+    # TEST 0
+
     def test_subprocess_ref_0
     #def xxxx_subprocess_ref_0
         dotest(\
 '''<process-definition name="subtest0" revision="0">
 
@@ -33,9 +38,78 @@
         <print>${a}${b}${c}</print>
     </process-definition>
 
 </process-definition>''', '''ABC
 ABC''')
+    end
+
+
+    #
+    # TEST 1
+
+    class SubTest1 < OpenWFE::ProcessDefinition
+        def make
+
+            sub1 "toto", :a => "A"
+
+            process_definition :name => :sub1 do
+                _print "${0} ${a}"
+            end
+        end
+    end
+
+    #def xxxx_sub_1
+    def test_sub_1
+        dotest(SubTest1, "toto A")
+    end
+
+
+    #
+    # TEST 1b
+
+    def test_subprocess_ref_1b
+    #def xxxx_subprocess_ref_1b
+        dotest(\
+'''<process-definition name="subtest0" revision="0">
+
+    <sequence>
+        <subprocess ref="sub0" a="A">zero</subprocess>
+        <sub0 a="A">rei</sub0>
+    </sequence>
+
+    <process-definition name="sub0">
+        <print>${0} ${a}</print>
+    </process-definition>
+
+</process-definition>''', 
+        """zero A
+rei A""")
+    end
+
+
+    #
+    # TEST 2
+
+    class SubTest2 < OpenWFE::ProcessDefinition
+        def make
+
+            sequence do
+                sub1 do 
+                    "a"
+                end
+                sub1 "c", "d"
+            end
+
+            process_definition :name => :sub1 do
+                _print "${0} ${1}"
+            end
+        end
+    end
+
+    #def xxxx_sub_2
+    def test_sub_2
+        dotest(SubTest2, """a 
+c d""")
     end
 
 end