openwferu 0.9.0 → 0.9.1

data/test/flowtestbase.rb

@@ -31,6 +31,13 @@ class FlowTestBase < Test::Unit::TestCase
 
     protected
 
+        def test_name
+            s = caller(1)[0]
+            i = s.index('`')
+            s = s[i+1..s.length-2]
+            return s
+        end
+
         def dotest (flowDef, expectedTrace, sleepTime=0)
 
             engine = OpenWFEru::Engine.new()

data/test/ft_2_concurrence.rb

@@ -18,9 +18,9 @@ class FlowTest2 < FlowTestBase
     #def teardown
     #end
 
-    def test_concurrence
+    def test_con_0
         dotest(\
-'''<process-definition name="n" revision="0">
+'''<process-definition name="con" revision="0">
     <concurrence>
         <print>a</print>
         <print>b</print>
@@ -30,5 +30,17 @@ b''', '''b
 a''' ], 0.1 )
     end
 
+    def test_con_1
+        dotest(\
+'''<process-definition name="con" revision="1">
+    <concurrence
+        count="1"
+    >
+        <print>a</print>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', [ "a", "b" ], 0.1 )
+    end
+
 end
 

data/test/ft_6_lambda.rb

@@ -0,0 +1,40 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 11 09:49:18 JST 2006
+# Narita terminal 1
+#
+
+require 'flowtestbase'
+
+
+class FlowTest6 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_lambda_0
+        dotest(\
+'''<process-definition name="lambda_0" revision="0">
+    <sequence>
+        <set variable="inside1">
+            <process-definition>
+                <print>bonjour ${name}</print>
+            </process-definition>
+        </set>
+
+        <inside1 name="world" />
+        <print>over</print>
+    </sequence>
+</process-definition>''', """bonjour world
+over""", 3)
+    end
+
+end
+

data/test/ft_7_losfor.rb

@@ -0,0 +1,123 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 25 14:27:48 JST 2006
+#
+
+require 'flowtestbase'
+
+
+class FlowTest7 < FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_test_name
+        dotest(\
+"""<process-definition name='#{test_name}' revision='0'>
+    <print>#{test_name}</print>
+</process-definition>""", "test_test_name")
+    end
+
+    #def test_lose_0
+    def xxxx_lose_0
+        dotest(\
+'<process-definition name="'+test_name+'''" revision="0">
+    <sequence>
+
+        <concurrence count="1">
+            <lose>
+                <sequence>
+                    <sleep for="2s" />
+                    <print>I should not be printed</print>
+                </sequence>
+            </lose>
+            <sequence>
+                <print>ok</print>
+            </sequence>
+        </concurrence>
+
+        <print>- - -</print>
+
+        <concurrence count="1">
+            <lose>
+                <sequence>
+                    <print>ok too</print>
+                    <set variable="v0" value="true" />
+                </sequence>
+            </lose>
+            <sequence>
+                <sleep for="252" />
+                    <!-- 250 or less is bad : the default scheduler precision
+                         is 1/4 of second -->
+                <print>ok</print>
+            </sequence>
+        </concurrence>
+
+        <print>v0 : ${v0}</print>
+        <if>
+            <equals field-value="v0" other-value="true" />
+            <print>ok</print>
+        </if>
+
+        <print>- - -</print>
+
+        <concurrence count="1">
+            <lose>
+                <sequence>
+                    <sleep for="252" />
+                    <print>ok too</print>
+                    <set variable="v1" value="true" />
+                </sequence>
+            </lose>
+            <sequence>
+                <print>ok</print>
+            </sequence>
+        </concurrence>
+
+        <print>v1 : ${v1}</print>
+        <if>
+            <equals field-value="v1" other-value="true" />
+            <print>ok</print>
+        </if>
+
+        <print>done.</print>
+
+    </sequence>
+</process-definition>''', """ok
+- - -
+ok too
+ok
+v0 : true
+ok
+- - -
+ok
+v1 : 
+done.""", 9)
+    end
+
+    def test_lose_1
+    #def xxxx_lose_1
+        dotest(\
+'<process-definition name="'+test_name+'''" revision="0">
+    <concurrence
+        count="1"
+    >
+        <lose>
+            <print>a</print>
+        </lose>
+        <print>b</print>
+    </concurrence>
+</process-definition>''', 
+[ "a", "b" ], 
+0.1 )
+    end
+
+end
+

data/test/fulltest.rb

@@ -0,0 +1,14 @@
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+#require 'test/unit'
+
+require 'quicktest'
+require 'ft_5_time'
+require 'timetest'
+

data/test/misctest.rb

@@ -8,6 +8,7 @@
 #
 
 require 'test/unit'
+require 'utils'
 require 'ru/ruutils'
 require 'ru/expressionmap'
 require 'ru/fe_define'
@@ -43,4 +44,33 @@ class MiscTest < Test::Unit::TestCase
             "process-definition should be considered as a definition"
     end
 
+    def test_dup
+        a0 = A.new
+        a0.a = 1
+        a0.b = 2
+        a1 = OpenWFE::dup(a0)
+
+        #puts a0
+        #puts a1
+        
+        assert \
+            a0.equals(a1),
+            "dup() utility not working"
+    end
+
+    private
+    
+        class A
+            attr_accessor :a, :b
+
+            def equals (other)
+                return false if not other.kind_of?(A)
+                return (self.a == other.a and self.b == other.b)
+            end
+
+            def to_s
+                "A : a='#{a}', b='#{b}'"
+            end
+        end
+
 end

data/test/{runtest.rb → quicktest.rb}

@@ -12,10 +12,10 @@ require 'ft_2_concurrence'
 require 'feitest'
 require 'dollartest'
 require 'misctest'
-require 'timetest'
 require 'ft_0'
 require 'ft_1_unset'
 require 'ft_3_equals'
 require 'ft_4_misc'
-require 'ft_5_time'
+require 'ft_6_lambda'
+require 'ft_7_losfor'
 

data/test/timetest.rb

@@ -104,8 +104,8 @@ class TimeTest < Test::Unit::TestCase
 
         def pts (time_string, seconds)
             assert \
-                (OpenWFE::parse_time_string(time_string) == seconds),
-                "'#{time_string}' did not map to #{seconds} seconds"
+                ((OpenWFE::parse_time_string(time_string) == seconds),
+                 "'#{time_string}' did not map to #{seconds} seconds")
         end
 
 end

metadata

@@ -3,8 +3,8 @@ rubygems_version: 0.9.0
 specification_version: 1
 name: openwferu
 version: !ruby/object:Gem::Version 
-  version: 0.9.0
-date: 2006-11-29 00:00:00 +09:00
+  version: 0.9.1
+date: 2006-12-26 00:00:00 +09:00
 summary: An OpenWFE-compatible workflow engine in Ruby
 require_paths: 
 - lib
@@ -28,64 +28,69 @@ cert_chain:
 post_install_message: 
 authors: 
 - John Mettraux
+- Alain Hoang
 files: 
+- bin/validate-workflow.rb
 - lib/ru
-- lib/exception.rb
-- lib/codec.rb
-- lib/otime.rb
-- lib/worklistclient.rb
 - lib/controlclient.rb
-- lib/test.rb
-- lib/utils.rb
-- lib/workitem.rb
+- lib/codec.rb
 - lib/flowexpressionid.rb
-- lib/osocket.rb
 - lib/definitions.rb
+- lib/exception.rb
 - lib/restclient.rb
 - lib/openwferu.rb
-- lib/ru/participant.rb
-- lib/ru/dollar.rb
-- lib/ru/rudefinitions.rb
-- lib/ru/scheduler.rb
-- lib/ru/fe_concurrence.rb
-- lib/ru/fe_base.rb
-- lib/ru/expressionstorage.rb
-- lib/ru/contextual.rb
-- lib/ru/fe_value.rb
-- lib/ru/logging.rb
-- lib/ru/flowexpression.rb
-- lib/ru/fe_participant.rb
+- lib/osocket.rb
+- lib/otime.rb
+- lib/workitem.rb
+- lib/test.rb
+- lib/utils.rb
+- lib/worklistclient.rb
 - lib/ru/expressionpool.rb
+- lib/ru/contextual.rb
+- lib/ru/dollar.rb
+- lib/ru/engine.rb
+- lib/ru/environment.rb
 - lib/ru/expressionmap.rb
-- lib/ru/service.rb
-- lib/ru/participants.rb
-- lib/ru/schedulers.rb
-- lib/ru/fe_subprocess.rb
-- lib/ru/fe_raw.rb
+- lib/ru/expressionstorage.rb
+- lib/ru/fe_base.rb
+- lib/ru/fe_concurrence.rb
 - lib/ru/fe_define.rb
-- lib/ru/environment.rb
 - lib/ru/fe_misc.rb
-- lib/ru/engine.rb
-- lib/ru/ruutils.rb
+- lib/ru/fe_participant.rb
+- lib/ru/fe_raw.rb
+- lib/ru/fe_subprocess.rb
 - lib/ru/fe_time.rb
 - lib/ru/fe_utils.rb
+- lib/ru/fe_value.rb
+- lib/ru/flowexpression.rb
+- lib/ru/logging.rb
+- lib/ru/participant.rb
 - lib/ru/participantmap.rb
+- lib/ru/participants.rb
+- lib/ru/rudefinitions.rb
+- lib/ru/ruutils.rb
+- lib/ru/scheduler.rb
+- lib/ru/schedulers.rb
+- lib/ru/service.rb
 - test/ft_2_concurrence.rb
 - test/dollartest.rb
-- test/timetest.rb
-- test/flowtestbase.rb
 - test/feitest.rb
-- test/runtest.rb
-- test/ft_3_equals.rb
-- test/rutest_utils.rb
+- test/flowtestbase.rb
+- test/ft_0.rb
 - test/ft_1_unset.rb
+- test/ft_3_equals.rb
 - test/ft_4_misc.rb
-- test/ft_0.rb
 - test/ft_5_time.rb
+- test/ft_6_lambda.rb
+- test/fulltest.rb
 - test/misctest.rb
+- test/quicktest.rb
+- test/rutest_utils.rb
+- test/timetest.rb
+- test/ft_7_losfor.rb
 - README
 test_files: 
-- test/runtest.rb
+- test/quicktest.rb
 rdoc_options: []
 
 extra_rdoc_files: 
@@ -94,7 +99,15 @@ executables: []
 
 extensions: []
 
-requirements: []
-
-dependencies: []
-
+requirements: 
+- libxml-ruby
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: libxml-ruby
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+    version: