openwferu 0.9.7 → 0.9.8

data/test/ft_39_reserve.rb

@@ -0,0 +1,119 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+
+class FlowTest39 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestReserve39a0 < ProcessDefinition
+        reserve :mutex => :toto do
+            _print "ok"
+        end
+    end
+
+    def test_0
+        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
+
+
+    #
+    # Test 2
+    #
+
+    class TestReserve39a2 < ProcessDefinition
+        #
+        # doesn't prove it enough though...
+        #
+        concurrence do
+            reserve :mutex => :toto do
+                sequence do
+                    test_alpha
+                    test_bravo
+                end
+            end
+            reserve :mutex => :toto do
+                sequence do
+                    test_charly
+                    test_delta
+                end
+            end
+        end
+    end
+
+    def test_2
+
+        dotest(
+            TestReserve39a2, 
+            [
+"""
+test-charly
+test-delta
+test-alpha
+test-bravo
+""".strip, 
+"""
+test-alpha
+test-bravo
+test-charly
+test-delta
+""".strip, 
+            ],
+            true)
+    end
+
+
+    #
+    # Test 3
+    #
+
+    class TestReserve39a3 < ProcessDefinition
+        reserve :mutex => :toto do
+        end
+    end
+
+    def test_3
+        dotest(TestReserve39a3, "", true)
+    end
+
+end
+

data/test/ft_3_equals.rb

@@ -99,7 +99,7 @@ true""")
     end
 
     def test_equals_1
-        dotest(\
+        dotest(
 '<process-definition name="'+name_of_test+'''" revision="0">
     <sequence>
         <set variable="a" value="true" />
@@ -115,5 +115,24 @@ true""")
 true""")
     end
 
+    def test_equals_2
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <set variable="a" value="true" />
+
+        <equals variable="a" other-value="true" />
+        <print>${f:__result__}</print>
+
+        <equals variable="a" value="true" />
+        <print>${f:__result__}</print>
+    </sequence>
+</process-definition>''', 
+            """
+true
+true
+            """.strip)
+    end
+
 end
 

data/test/ft_40_defined.rb

@@ -0,0 +1,72 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+
+class FlowTest40 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestDefined40a0 < 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, 
+            """
+false
+true
+true
+true
+false
+true
+false
+true
+            """.strip)
+    end
+
+end
+

data/test/ft_41_case.rb

@@ -0,0 +1,124 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest41 < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+
+    #
+    # Test 0
+    #
+
+    class TestCase41a0 < 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
+            """.strip)
+    end
+
+
+    #
+    # Test 1
+    #
+
+    class TestCase41a1 < ProcessDefinition
+        sequence do
+
+            _if :test => "1 == 1"
+            _print "${f:__result__}"
+        end
+    end
+
+    def test_1
+        dotest(
+            TestCase41a1, 
+            """
+true
+            """.strip)
+    end
+
+
+    #
+    # Test 2
+    #
+
+    class TestCase41a2 < 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
+ok 1
+            """.strip)
+    end
+
+end
+

data/test/ft_4_misc.rb

@@ -77,6 +77,23 @@ class FlowTest4 < Test::Unit::TestCase
     </sequence>
 </process-definition>''', "false")
     end
+    
+    class Reval4 < OpenWFE::ProcessDefinition
+        reval """
+            tracer = self.application_context['__tracer']
+
+            tracer << 'hello\n'
+
+            tracer << workitem.attributes.length.to_s
+        """
+    end
+
+    def test_reval_4
+        dotest(Reval4, "hello\n1")
+    end
+
+    #
+    # DRU tests
 
     def test_dru_0
         dotest(\

data/test/ft_5_time.rb

@@ -21,18 +21,20 @@ class FlowTest5 < Test::Unit::TestCase
 
     def test_sleep_0
     #def xxxx_sleep_0
-        dotest(\
+        dotest(
 '''<process-definition name="sleep_0" revision="0">
     <sequence>
         <sleep for="2s" />
         <print>alpha</print>
     </sequence>
-</process-definition>''', """alpha""", 3)
+</process-definition>''', 
+            "alpha", 
+            true)
     end
 
     def test_sleep_1
     #def xxxx_sleep_1
-        dotest(\
+        dotest(
 '''<process-definition name="sleep_1" revision="0">
     <concurrence>
         <sequence>
@@ -41,41 +43,34 @@ class FlowTest5 < Test::Unit::TestCase
         </sequence>
         <print>bravo</print>
     </concurrence>
-</process-definition>''', """bravo
-alpha""", 3)
+</process-definition>''', 
+            """bravo
+alpha""", 
+            true)
     end
 
     def test_sleep_2
     #def xxxx_sleep_2
-        dotest(\
+        dotest(
 '''<process-definition name="sleep_2" revision="0">
     <sequence>
         <sleep until="${ruby:Time.new() + 4}" />
         <print>alpha</print>
     </sequence>
-</process-definition>''', """alpha""", 5)
+</process-definition>''', 
+            "alpha", 
+            true)
     end
 
     def test_sleep_3
     #def xxxx_sleep_3
-        dotest(\
+        dotest(
 '''<process-definition name="sleep_3" revision="0">
     <sequence>
         <sleep for="900" />
         <print>alpha</print>
     </sequence>
-</process-definition>''', "alpha", 1.5)
-    end
-
-    def test_sleep_4
-    #def xxxx_sleep_4
-        dotest(\
-'''<process-definition name="sleep_4" revision="0">
-    <sequence>
-        <sleep for="1100" />
-        <print>alpha</print>
-    </sequence>
-</process-definition>''', "", 1, true)
+</process-definition>''', "alpha", true)
     end
 
 end

data/test/ft_7_lose.rb

@@ -48,7 +48,7 @@ class FlowTest7 < Test::Unit::TestCase
                 </sequence>
             </lose>
             <sequence>
-                <sleep for="50" />
+                <sleep for="400" />
                 <print>ok 2</print>
             </sequence>
         </concurrence>
@@ -64,7 +64,6 @@ class FlowTest7 < Test::Unit::TestCase
         <concurrence count="1">
             <lose>
                 <sequence>
-                    <!--<sleep for="252" />-->
                     <sleep for="400" />
                         <!-- more than the 250 ms precision -->
                     <print>ok 4</print>
@@ -96,7 +95,7 @@ ok 3
 ok 5
 v1 : 
 done.""", 
-            1.1,
+            1.7,
             true)
     end
 

data/test/ft_8_forget.rb

@@ -39,7 +39,7 @@ class FlowTest8 < Test::Unit::TestCase
 </process-definition>''', 
             """a
 c""", 
-            0.3,
+            true,
             false)
     end
 

data/test/ft_tests.rb

@@ -38,6 +38,7 @@ require 'ft_19_csv'
 require 'ft_22_history'
 require 'ft_23_when'
 require 'ft_23b_when'
+require 'ft_23c_wait'
 require 'ft_24_def'
 require 'ft_25_cancel'
 require 'ft_27_getflowpos'
@@ -46,4 +47,12 @@ require 'ft_30_socketlistener'
 require 'ft_31_flowname'
 require 'ft_34_cancelwfid'
 require 'ft_35_localdefs'
+require 'ft_36_subprocids'
+require 'ft_37_pnames'
+require 'ft_38_tag'
+require 'ft_39_reserve'
+require 'ft_40_defined'
+require 'ft_41_case'
+
+require 'ft_32_journal'
 

data/test/hparticipant_test.rb

@@ -52,7 +52,8 @@ class HParticipantTest < Test::Unit::TestCase
 
     def test_hp_1
 
-        FileUtils.remove_dir "./work" if File.exist? "./work"
+        #FileUtils.remove_dir "./work" if File.exist? "./work"
+        FileUtils.rm_rf "work" if File.exist? "./work"
 
         @engine.application_context[:work_directory] = "./work"
         @hpAlice = YamlParticipant.new("alice", @engine.application_context)
@@ -115,5 +116,50 @@ class HParticipantTest < Test::Unit::TestCase
             @engine.get_expression_storage.size == 1
     end
 
+    def test_d_0
+
+        @hpAlice = HashParticipant.new
+        @hpBob = HashParticipant.new
+
+        @engine.register_participant(:alice, @hpAlice)
+        @engine.register_participant(:bob, @hpBob)
+
+        id = @engine.launch(HpDefinition0)
+
+        assert_equal @hpAlice.size, 1
+        assert_equal @hpBob.size, 0
+
+        wi = @hpAlice.first_workitem
+
+        @hpAlice.delegate wi, @hpBob
+
+        assert_equal @hpAlice.size, 0
+        assert_equal @hpBob.size, 1
+
+        wi = @hpBob.first_workitem
+
+        @hpBob.proceed wi
+
+        assert_equal @hpAlice.size, 0
+        assert_equal @hpBob.size, 1
+
+        wi = @hpBob.first_workitem
+
+        @hpBob.delegate wi.fei, @hpAlice
+
+        assert_equal @hpAlice.size, 1
+        assert_equal @hpBob.size, 0
+
+        wi = @hpAlice.first_workitem
+
+        @hpAlice.forward wi
+
+        assert_equal @hpAlice.size, 0
+        assert_equal @hpBob.size, 0
+
+        assert \
+            @engine.get_expression_storage.size == 1
+    end
+
 end
 

data/test/nut_0_irb.rb

@@ -0,0 +1,20 @@
+
+#
+# NUT = not a unit test
+# some kind of a manual test
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/util/irb'
+require 'openwfe/engine/engine'
+
+
+engine = OpenWFE::Engine.new
+
+OpenWFE::trap_int_irb(binding())
+
+sleep(20)
+

data/test/raw_prog_test.rb

@@ -184,6 +184,12 @@ end""".strip
         assert \
             TestDefinition3.do_make.to_code_s == CODE_DEF3,
             "to_code_s() not working properly (3)"
+
+        r = OpenWFE::SimpleExpRepresentation.from_xml(s)
+        #puts r.class.name
+        #puts r.to_code_s
+
+        assert_equal r.to_code_s, CODE_DEF3
     end
 
 

data/test/safely_test.rb

@@ -5,7 +5,8 @@
 # John Mettraux at openwfe.org
 #
 
-require 'tmpdir'
+require 'tempfile'
+
 require 'test/unit'
 #require 'openwfe/utils'
 require 'openwfe/util/safe'
@@ -19,56 +20,45 @@ class SafelyTest < Test::Unit::TestCase
     #def teardown
     #end
 
-    def test_safely_0
-
-        assert_not_nil dotest("print ''", 4)
-        assert_not_nil dotest2("print ''", 4)
-
-        assert_nil dotest("print ''", 2)
-        assert_nil dotest2("print ''", 2)
-    end
+    #def test_safely_0
+    #    assert_not_nil dotest("print ''", 4)
+    #    assert_not_nil dotest2("print ''", 4)
+    #    assert_nil dotest("print ''", 2)
+    #    assert_nil dotest2("print ''", 2)
+    #end
 
     def test_safely_1
+
         assert_not_nil dotest3(STDOUT, "self.print ''", 4)
         assert_nil dotest3(STDOUT, "self.print ''", 2)
+
         assert_not_nil dotest3(nil, "print ''", 4)
         assert_nil dotest3(nil, "print ''", 2)
     end
 
     protected
 
-        def dotest (code, level)
-
-            fname = "#{Dir.tmpdir}/safely_test_temp.rb"
-
-            File.open fname, "w" do |f|
-                f.puts code
-            end
-
-            e = nil
-
-            begin
-                OpenWFE::load_safely(fname, level)
-            rescue Exception => e
-            end
-
-            File.delete(fname)
-
-            #puts OpenWFE::exception_to_s(e) if e
-
-            e
-        end
-
-        def dotest2 (code, level)
-
-            begin
-                OpenWFE::load_eval_safely(code, level)
-            rescue Exception => e
-                return e
-            end
-
-            nil
-        end
+        #def dotest (code, level)
+        #    tf = Tempfile.new "safely_test_temp.rb"
+        #    tf.puts code
+        #    tf.close
+        #    e = nil
+        #    begin
+        #        OpenWFE::load_safely(tf.path, level)
+        #    rescue Exception => e
+        #    end
+        #    File.delete(tf.path)
+        #    e
+        #end
+
+        #def dotest2 (code, level)
+        #    begin
+        #        OpenWFE::load_eval_safely(code, level)
+        #    rescue Exception => e
+        #        return e
+        #    end
+        #    nil
+        #end
 
         def dotest3 (instance, code, level)