ruote 0.9.18

data/test/bm/ft_26c_load.rb

@@ -0,0 +1,97 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+#require 'profile'
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+include OpenWFE
+
+
+class FlowTest26c < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    #N = 10_000
+    N = 1000
+
+    class TestDefinition0 < ProcessDefinition
+        sequence 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
+
+        $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_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/clone_test.rb

@@ -0,0 +1,122 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+
+require 'test/unit'
+require 'rexml/document'
+
+require 'openwfe/utils'
+require 'openwfe/workitem'
+
+
+class FullDupTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    class MyClass
+
+        attr_reader :name
+
+        def initialize (name)
+            @name = name
+        end
+    end
+
+    def test_fulldup
+
+        o0 = MyClass.new("cow")
+
+        o1 = OpenWFE.fulldup(o0)
+
+        assert_not_equal o0.object_id, o1.object_id
+        assert_equal o0.name, o1.name
+    end
+
+    def test_yaml
+
+        require 'yaml'
+
+        o0 = MyClass.new("pig")
+        o1 = YAML.load(o0.to_yaml)
+
+        assert_not_equal o0.object_id, o1.object_id
+        assert_equal o0.name, o1.name
+    end
+
+    def test_dup_0
+        a0 = A.new
+        a0.a = 1
+        a0.b = 2
+        a1 = OpenWFE::fulldup(a0)
+
+        #puts a0
+        #puts a1
+        
+        assert_equal a0, a1, "dup() utility not working"
+    end
+
+    def test_dup_1
+        d = REXML::Document.new("<document/>")
+        d1 = OpenWFE::fulldup(d)
+        assert d.object_id != d1.object_id
+    end
+
+    def test_dup_2
+        d = REXML::Document.new("<document>text</document>")
+        d1 = OpenWFE::fulldup(d)
+        assert d.object_id != d1.object_id
+    end
+
+    def test_dup_3
+        d = REXML::Text.new "toto"
+        d1 = OpenWFE::fulldup(d)
+        assert d.object_id != d1.object_id
+    end
+
+    def test_dup_4
+        wi = OpenWFE::InFlowWorkItem.new
+        wi.xml_stuff = REXML::Text.new "whatever"
+        wi1 = wi.dup
+        assert wi.object_id != wi1.object_id
+        assert wi.xml_stuff.object_id != wi1.xml_stuff.object_id
+        assert_equal wi.xml_stuff, wi1.xml_stuff
+    end
+
+    def test_dup_5
+        require 'date'
+        d = DateTime.now
+        d1 = OpenWFE::fulldup(d)
+        assert_not_equal d.object_id, d1.object_id
+        assert_equal d.to_s, d1.to_s
+    end
+
+    def test_dup_6
+        t = Time.new
+        sleep 0.100
+        t1 = OpenWFE::fulldup(t)
+        assert_not_equal t.object_id, t1.object_id
+        assert_equal t.to_f, t1.to_f
+    end
+
+    private
+    
+        class A
+            attr_accessor :a, :b
+
+            def == (other)
+                return false if not other.kind_of?(A)
+                (self.a == other.a and self.b == other.b)
+            end
+
+            def to_s
+                "A : a='#{a}', b='#{b}'"
+            end
+        end
+end

data/test/concurrence_test.rb

@@ -0,0 +1,77 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 15:41:44 JST 2006
+#
+# Kita Yokohama
+#
+
+require 'rubygems'
+
+require 'test/unit'
+
+require 'openwfe/engine/engine'
+require 'openwfe/def'
+require 'openwfe/participants/storeparticipants'
+
+
+class ConcurrenceAndParticipantTest < Test::Unit::TestCase
+
+    def setup
+        @engine = OpenWFE::Engine.new({ 
+            :definition_in_launchitem_allowed => true })
+    end
+
+    #def teardown
+    #end
+
+    #
+    # concurrence test
+
+    class Hpc0 < OpenWFE::ProcessDefinition
+        concurrence do
+            #participant :alice
+            #participant :bob
+            alice
+            bob
+        end
+    end
+
+    def test_hpc_0
+
+        @hpAlice = OpenWFE::HashParticipant.new
+        @hpBob = OpenWFE::HashParticipant.new
+
+        @engine.register_participant :alice, @hpAlice
+        @engine.register_participant :bob, @hpBob
+
+        @engine.launch Hpc0
+
+        sleep 0.100
+
+        assert_equal @hpAlice.size, 1
+        assert_equal @hpBob.size, 1
+    end
+
+    def test_1
+
+        @engine.register_participant :alice do |workitem|
+            puts "alice in"
+            sleep 0.100
+            puts "alice out"
+        end
+        @engine.register_participant :bob do |workitem|
+            puts "bob in"
+            sleep 0.100
+            puts "bob out"
+        end
+
+        @engine.launch Hpc0
+
+        sleep 2
+    end
+
+end
+