openwferu 0.9.16 → 0.9.17

data/test/bm/ft_26_load.rb

@@ -8,7 +8,7 @@
 #
 
 require 'flowtestbase'
-require 'openwfe/expressions/raw_prog'
+require 'openwfe/def'
 
 include OpenWFE
 

data/test/bm/ft_26b_load.rb

@@ -10,7 +10,7 @@
 #require 'profile'
 
 require 'flowtestbase'
-require 'openwfe/expressions/raw_prog'
+require 'openwfe/def'
 
 include OpenWFE
 

data/test/bm/ft_26c_load.rb

@@ -10,7 +10,7 @@
 #require 'profile'
 
 require 'flowtestbase'
-require 'openwfe/expressions/raw_prog'
+require 'openwfe/def'
 
 include OpenWFE
 
@@ -28,7 +28,8 @@ class FlowTest26c < Test::Unit::TestCase
     # Test 0
     #
 
-    N = 10_000
+    #N = 10_000
+    N = 1000
 
     class TestDefinition0 < ProcessDefinition
         sequence do

data/test/bm/ft_26d_load.rb

@@ -0,0 +1,97 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 24 22:02:12 JST 2007
+#
+
+#require 'profile'
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest26d < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    #N = 10_000
+    N = 1_000
+
+    class TestDefinition0 < ProcessDefinition
+        concurrence do
+            N.times do
+                count
+            end
+        end
+    end
+
+    def test_load_0
+
+        #log_level_to_debug
+
+        #@engine.get_scheduler.sstop
+            #
+            # JRuby is no friend of the Scheduler ( was :) )
+
+        $count = 0
+
+        @engine.register_participant("count") do |workitem|
+            $count += 1
+            print "."
+        end
+
+        fei = @engine.launch(LaunchItem.new(TestDefinition0))
+        puts "launched #{fei}"
+
+        #log_level_to_debug
+
+        @engine.wait_for fei
+
+        assert_equal N, $count
+    end
+
+    #
+    # Thu Sep 13 15:41:20 JST 2007
+    #
+    # ruby 1.8.5 (2006-12-25 patchlevel 12) [i686-darwin8.8.3]
+    #
+    # 10_000 in 27.69s
+    #
+    # before optimization : 10k in 138.341
+    #
+    #
+    # ruby 1.8.5 (2007-09-13 rev 3876) [i386-jruby1.1]
+    #
+    # 10_000 in 53.96s
+    #
+    # ruby 1.8.5 (2007-09-13 rev 3876) [i386-jruby1.1]
+    # -O -J-server
+    #
+    # 10_000 in 42.616s
+
+    #
+    # Thu Nov  8 21:36:02 JST 2007
+    #
+    # ruby 1.8.6 (2007-06-07 patchlevel 36) [universal-darwin9.0]
+    #
+    # 10_000 in 39.089
+    #
+    # ?
+    #
+
+end
+

data/test/bm/ft_recu.rb

@@ -0,0 +1,71 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'openwfe/def'
+
+require 'flowtestbase'
+
+
+class FlowTestRecursion < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def teardown
+    #end
+
+    #def setup
+    #end
+
+    #
+    # test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        sequence do
+            #print_i
+            #subprocess :ref => "Test"
+            subprocess :ref => "Testy"
+        end
+        process_definition :name => "Testy" do
+            sequence do
+                print_i
+                subprocess :ref => "Testy"
+            end
+            #_loop do
+            #    print_i
+            #end
+        end
+    end
+
+    def test_0
+
+        i = 0
+        last = Time.now.to_f
+
+        @engine.register_participant :print_i do
+            now = Time.now.to_f
+            print "#{i}"
+            if i % 10 == 0
+                print "("
+                print "#{now-last}" 
+                print " #{@engine.get_expression_storage.size}"
+                print ")"
+            end
+            print " "
+            last = now
+            i += 1
+        end
+
+        #dotest TestTag0, "blah"
+        @engine.launch Test0
+
+        sleep 360
+    end
+
+end
+

data/test/concurrence_test.rb

@@ -13,7 +13,7 @@ require 'test/unit'
 #require 'openwfe/workitem'
 #require 'openwfe/flowexpressionid'
 require 'openwfe/engine/engine'
-require 'openwfe/expressions/raw_prog'
+require 'openwfe/def'
 require 'openwfe/worklist/storeparticipant'
 
 include OpenWFE

data/test/condition_test.rb

@@ -0,0 +1,152 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 16:18:25 JST 2006
+#
+
+require 'test/unit'
+
+#require 'openwfe/workitem'
+require 'openwfe/expressions/condition'
+
+#
+# testing expression conditions
+#
+
+class ConditionTest < Test::Unit::TestCase
+    include OpenWFE::ConditionMixin
+
+    def setup
+        @debug = false
+    end
+
+    #def teardown
+    #end
+
+    def test_0
+
+        #@debug = true
+
+        assert_t "true"
+        assert_F "false"
+
+        assert_t "1 == 1"
+
+        assert_t "'a' == 'a'"
+        assert_t '"a" == "a"'
+
+        assert_t "a == a"
+        assert_F "'a' == a"
+
+        #assert_t "!= ''"
+
+        assert_F " == 1 "
+        assert_F " == 1"
+        assert_F "== 1"
+    end
+
+    def test_0b
+
+        #@debug = true
+
+        assert_t "a"
+        assert_F ""
+    end
+
+    def test_1
+
+        #@debug = true
+
+        assert_set_t "1 is set"
+        assert_set_t "1 set"
+        assert_set_F "1 is not set"
+        assert_set_F "1 not set"
+
+        assert_set_t " is not set"
+        assert_set_t " not set"
+        assert_set_F " is set"
+        assert_set_F " set"
+
+        assert_t "1 is set"
+        assert_t "1 set"
+        assert_F "1 is not set"
+        assert_F "1 not set"
+
+        assert_t " is not set"
+        assert_t " not set"
+        assert_F " is set"
+        assert_F " set"
+    end
+
+    def test_2
+
+        #@debug = true
+
+        $my_owferu_var = nil
+
+        #assert_F "f = File.open('toto', 'w'); f.puts('nada'); f.close"
+        assert_t "$my_owferu_var = 3; $my_owferu_var = 4"
+        assert_equal nil, $my_owferu_var
+
+        #assert_F "fe.reply('a')"
+        assert_t "fe.reply('a')"
+    end
+
+    protected
+
+        #
+        # just for test_2
+        #
+        def reply (m)
+            @fei = nil
+        end
+
+        def assert_t (s, inv=false)
+
+            r = eval_condition(s, nil)
+
+            #puts "raw r is _#{r}_" if @debug
+
+            r = (not r) if inv
+
+            assert r, ">#{s}< should have evaluated to _#{not inv}_"
+        end
+
+        def assert_F (s)
+
+            assert_t s, true
+        end
+
+        def assert_set_t (s, inv=false)
+
+            r = eval_set s
+            r = (not r) if inv
+
+            assert r, ">#{s}< should have evaluated to _#{not inv}_"
+        end
+
+        def assert_set_F (s)
+
+            assert_set_t s, true
+        end
+
+        #def evalc (s)
+        #    eval_condition(s, nil)
+        #end
+
+        def lookup_attribute (attname, workitem)
+
+            attname
+        end
+
+        def ldebug (&block)
+
+            # don't do a thing
+            return unless @debug
+
+            puts "  " + block.call
+        end
+end

data/test/description_test.rb

@@ -9,7 +9,7 @@
 
 require 'test/unit'
 
-require 'openwfe/expressions/simplerep'
+require 'openwfe/expool/parser'
 
 #
 # testing definition.get_description
@@ -33,25 +33,30 @@ end
 
     def test_0
 
-        rep = OpenWFE::SimpleExpRepresentation.from_code DEF0
+        #rep = OpenWFE::SimpleExpRepresentation.from_code DEF0
+        rep = OpenWFE::DefParser.parse_string DEF0
 
-        assert_equal rep.get_description, "not much to say"
+        assert_equal(
+            "not much to say", 
+            OpenWFE::ExpressionTree.get_description(rep))
     end
 
-    DEF1 = '''
+    DEF1 = <<-EOS
 <process-definition name="x" revision="y">
     <description>
         just a tiny process
     </description>
     <participant ref="nada" />
 </process-definition>
-'''.strip
+    EOS
 
     def test_1
 
-        rep = OpenWFE::SimpleExpRepresentation.from_s DEF1
+        rep = OpenWFE::DefParser.parse_string DEF1
 
-        assert_equal rep.get_description, "just a tiny process"
+        assert_equal(
+            "just a tiny process",
+            OpenWFE::ExpressionTree.get_description(rep))
     end
 end
 

data/test/eno_test.rb

@@ -11,7 +11,7 @@ require 'test/unit'
 
 require 'openwfe/workitem'
 require 'openwfe/engine/engine'
-require 'openwfe/expressions/raw_prog'
+require 'openwfe/def'
 require 'openwfe/participants/participants'
 require 'openwfe/participants/enoparticipants'
 #require 'flowtestbase'

data/test/fe_lookup_att_test.rb

@@ -27,7 +27,7 @@ class FeLookupAttTest < Test::Unit::TestCase
             "a" => true, 
             "b" => false,
         }
-        fe = FlowExpression.new(nil, nil, nil, nil, attributes)
+        fe = FlowExpression.new_exp nil, nil, nil, nil, attributes
 
         assert_equal true, fe.lookup_boolean_attribute("a", nil)
         assert_equal true, fe.lookup_boolean_attribute(:a, nil)

data/test/fei_test.rb

@@ -151,6 +151,22 @@ class FeiTest < Test::Unit::TestCase
         assert_equal s1, fei1.to_s
     end
 
+    def test_web_s
+
+        s1 = "(fei 0.9.16 eng http://test/test.xml test 1.0 123456 do-test 0.0)"
+        fei1 = OpenWFE::FlowExpressionId.from_s s1
+
+        assert_equal(
+            [ "123456", "0.0" ], 
+            OpenWFE::FlowExpressionId.split_web_s(fei1.to_web_s))
+    end
+
+    def test_from_h
+
+        fei = new_fei()
+        assert_equal fei, OpenWFE::FlowExpressionId.from_h(fei.to_h)
+    end
+
     protected
 
         def puts_hash (h)