ruote 0.9.19 → 0.9.20

data/test/{extras/active_connection.rb → ar_test_connection.rb}

@@ -1,6 +1,11 @@
 
 #
-# establishing the activerecord connection for all the tests
+# The Active Record connection for tests.
+#
+# Running this piece of code standalone will tear down / bring up the
+# necessary tables.
+#
+#     ruby test/ar_test_connection.rb
 #
 
 require 'rubygems'
@@ -11,19 +16,24 @@ require 'active_record'
 
 
 ActiveRecord::Base.establish_connection(
-  :adapter => "mysql",
-  :database => "test",
-  :encoding => "utf8")
+  :adapter => 'mysql',
+  :pool => 30,
+  :database => 'test',
+  :encoding => 'utf8')
 #ActiveRecord::Base.establish_connection(
-#  :adapter => "sqlite3",
-#  :dbfile => "test.db")
+#  :adapter => 'sqlite3',
+#  :dbfile => 'test.db')
+
+if __FILE__ == $0
+
+  $:.unshift('lib')
 
-if "./#{ENV['TEST']}" == __FILE__
+  require 'openwfe/extras/participants/active_participants'
+  require 'openwfe/extras/participants/ar_participants'
 
-  require 'openwfe/extras/participants/activeparticipants'
-  require 'openwfe/extras/expool/dberrorjournal'
-  require 'openwfe/extras/expool/dbexpstorage'
-  require 'openwfe/extras/expool/dbhistory'
+  require 'openwfe/extras/expool/db_errorjournal'
+  require 'openwfe/extras/expool/db_expstorage'
+  require 'openwfe/extras/expool/db_history'
 
   def bring_down (migration)
     begin
@@ -36,11 +46,16 @@ if "./#{ENV['TEST']}" == __FILE__
   end
 
   bring_down OpenWFE::Extras::WorkitemTables
+  bring_down OpenWFE::Extras::ArWorkitemTables
+
   bring_down OpenWFE::Extras::ProcessErrorTables
   bring_down OpenWFE::Extras::ExpressionTables
   bring_down OpenWFE::Extras::HistoryTables
 
+
   OpenWFE::Extras::WorkitemTables.up
+  OpenWFE::Extras::ArWorkitemTables.up
+
   OpenWFE::Extras::ProcessErrorTables.up
   OpenWFE::Extras::ExpressionTables.up
   OpenWFE::Extras::HistoryTables.up

data/test/bm/fatxml.rb

@@ -0,0 +1,70 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Sun Jan 25 14:42:07 JST 2009
+#
+
+require 'rubygems'
+require 'benchmark'
+
+require File.dirname(__FILE__) + '/../path_helper'
+require File.dirname(__FILE__) + '/../functional/engine_helper'
+
+require 'openwfe/participants'
+
+
+def generate_xml (lines)
+  xml = "<process-definition name='test' revision='0'>\n"
+  40.times { |i| xml << "<set field='field#{i}' value='value#{i}' />\n" }
+  xml << "<sequence>\n"
+  lines.times { |i| xml << "<participant ref='alpha' activity='nothing' />\n" }
+  xml << "</sequence>\n"
+  xml << "</process-definition>\n"
+  xml
+end
+
+class SinkParticipant
+  include OpenWFE::LocalParticipant
+  def initialize (&block)
+    @block = block
+  end
+  def consume (workitem)
+    @block.call(workitem)
+  end
+end
+
+ac = {
+  :definition_in_launchitem_allowed => true
+}
+
+engine = determine_engine_class(ac).new(ac)
+
+
+Benchmark.benchmark(' ' * 20 + Benchmark::Tms::CAPTION, 20) do |bench|
+
+  bench.report('fat xml test') do
+
+    t = Thread.current
+
+    engine.register_participant(
+      :alpha,
+      SinkParticipant.new() {
+        #p :wakeup
+        t.wakeup
+      })
+
+    xml = generate_xml(1170)
+
+    engine.launch(xml)
+
+    Thread.stop
+  end
+
+end
+
+puts
+
+

data/test/bm/load_26c.rb

@@ -0,0 +1,79 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+#require 'profile'
+
+require 'benchmark'
+require 'rubygems'
+
+require File.dirname(__FILE__) + '/../path_helper'
+require File.dirname(__FILE__) + '/../functional/engine_helper'
+
+ac = {
+  :definition_in_launchitem_allowed => true
+}
+
+engine = determine_engine_class(ac).new(ac)
+
+#puts
+#p engine.class
+#puts
+
+#N = 10_000
+N = 100
+
+$count = 0
+
+engine.register_participant("count") do |workitem|
+  $count += 1
+  #print '.'
+end
+
+Benchmark.benchmark(' ' * 20 + Benchmark::Tms::CAPTION, 20) do |bench|
+
+  bench.report('run') do
+    engine.launch(
+      OpenWFE.process_definition(:name => 'bm26c') {
+        sequence do
+          N.times do
+            count
+          end
+        end
+      },
+      :wait_for => true)
+  end
+
+end
+
+puts
+
+engine.stop
+
+# Sat Jan 24 23:57:09 JST 2009
+# ruby 1.8.6 (2008-03-03 patchlevel 114) [universal-darwin9.0]
+#
+# OpenWFE::Engine
+#     user     system      total       real
+#   0.130000   0.010000   0.140000 (  0.161848)
+# jmettraux:ruote[test_redux]/$ ruby test/bm/load_26c.rb --fp
+#
+# OpenWFE::FilePersistedEngine
+#     user     system      total       real
+#   3.950000   0.220000   4.170000 (  4.810950)
+# jmettraux:ruote[test_redux]/$ ruby test/bm/load_26c.rb --cfp
+#
+# OpenWFE::CachedFilePersistedEngine
+#     user     system      total       real
+#   0.390000   0.030000   0.420000 (  0.481701)
+# jmettraux:ruote[test_redux]/$ ruby test/bm/load_26c.rb --tp
+#
+# OpenWFE::TokyoPersistedEngine (Tokyo Cabinet version 1.3.9 (503:1.0))
+#     user     system      total       real
+#   3.160000   0.060000   3.220000 (  3.749696)
+

data/test/dm_test_connection.rb

@@ -0,0 +1,11 @@
+
+#
+# establishing the datamapper connection for all the tests
+#
+
+require 'rubygems'
+
+require 'dm-core'
+
+DataMapper.setup(:default, 'mysql://localhost/test')
+

data/test/extras/base.rb

@@ -0,0 +1,3 @@
+
+require File.dirname(__FILE__) + '/../functional/base'
+

data/test/extras/et_0_sqs.rb

@@ -0,0 +1,37 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Fri Feb 13 23:11:06 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+require 'openwfe/extras/participants/sqs_participants'
+require 'openwfe/extras/listeners/sqs_listeners'
+
+
+class EtSqsTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_sqs
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        participant :sqs
+        _print 'done.'
+      end
+    end
+
+    sqsp = @engine.register_participant(
+      :sqs, OpenWFE::Extras::SqsParticipant.new('wiqueue'))
+
+    @engine.register_listener(
+      OpenWFE::Extras::SqsListener, :queue_name => 'wiqueue', :freq => '1s')
+
+    assert_trace(pdef, 'done.')
+  end
+end
+

data/test/extras/et_jabber_test.rb

@@ -0,0 +1,226 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# Kenneth Kalmer at opensourcery.co.za
+#
+# Mon Feb 16
+#
+
+require File.dirname(__FILE__) + '/base'
+
+require 'openwfe/extras/participants/jabber_participants'
+require 'openwfe/extras/listeners/jabber_listeners'
+require 'json'
+
+class EtJabberTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def setup
+    @@connections ||= {}
+ 
+    if @@connections.include?(:client1)
+      @client1 = @@connections[:client1]
+      @client2 = @@connections[:client2]
+      @client1.accept_subscriptions = true
+      @client2.accept_subscriptions = true
+      @jid1_raw = @@connections[:jid1_raw]
+      @jid2_raw = @@connections[:jid2_raw]
+      @jid1 = @jid1_raw.strip.to_s
+      @jid2 = @jid2_raw.strip.to_s
+      
+      super
+      
+      return true
+    end
+ 
+    logins = []
+    begin
+      logins = File.readlines(File.expand_path("~/.xmpp4r-simple-test-config")).map! { |login| login.split(" ") }
+      raise StandardError unless logins.size == 2
+    rescue => e
+      puts "\nConfiguration Error!\n\nYou must make available two unique Jabber accounts in order for the tests to pass."
+      puts "Place them in ~/.xmpp4r-simple-test-config, one per line like so:\n\n"
+      puts "user1@example.com/res password"
+      puts "user2@example.com/res password\n\n"
+      raise e
+    end
+ 
+    @@connections[:client1] = Jabber::Simple.new(*logins[0])
+    @@connections[:client2] = Jabber::Simple.new(*logins[1])
+ 
+    @@connections[:jid1_raw] = Jabber::JID.new(logins[0][0])
+    @@connections[:jid2_raw] = Jabber::JID.new(logins[1][0])
+ 
+    # Force load the client and roster, just to be safe.
+    @@connections[:client1].roster
+    @@connections[:client2].roster
+ 
+    setup
+  end
+  
+  def test_jabber_participant
+    
+    pdef = <<-EOF
+    class JabberParticipant0 < OpenWFE::ProcessDefinition
+      
+      sequence do
+        jabber
+        _print 'done.'
+      end
+
+      set :field => 'target_jid', :value => "#{@jid2}"
+    end
+    EOF
+
+    jabberp = @engine.register_participant(
+      :jabber, OpenWFE::Extras::JabberParticipant.new(:connection => @client1))
+
+    assert_equal false, @client1.subscribed_to?( @jid2 )
+    
+    assert_trace(pdef, 'done.')
+
+    messages = []
+    
+    begin
+      Timeout::timeout(20) {
+        loop do
+          messages = @client2.received_messages
+          break unless messages.empty?
+          sleep 1
+        end
+      }
+    rescue Timeout::Error
+      flunk "timeout waiting for messages"
+    end
+    
+    assert_equal @jid1, messages.first.from.strip.to_s
+    assert_match /^\{.*\}$/, messages.first.body # JSON message by default
+    
+    # roster entries must be made
+    assert @client1.subscribed_to?( @jid2 )
+  end
+
+  def test_jabber_participant_xml
+    pdef = <<-EOF
+    class JabberParticipant0 < OpenWFE::ProcessDefinition
+      
+      sequence do
+        jabber
+        _print 'done.'
+      end
+
+      set :field => 'target_jid', :value => "#{@jid2}"
+      set :field => 'format', :value => 'xml'
+    end
+    EOF
+
+    jabberp = @engine.register_participant(
+      :jabber, OpenWFE::Extras::JabberParticipant.new(:connection => @client1))
+
+    assert_trace(pdef, 'done.')
+
+    messages = []
+    
+    begin
+      Timeout::timeout(20) {
+        loop do
+          messages = @client2.received_messages
+          break unless messages.empty?
+          sleep 1
+        end
+      }
+    rescue Timeout::Error
+      flunk "timeout waiting for messages"
+    end
+    
+    assert_equal @jid1, messages.first.from.strip.to_s
+    assert_match /^<.*>$/, messages.first.body # XML format
+  end
+
+  def test_jabber_participant_message
+    pdef = <<-EOF
+    class JabberProcess0 < OpenWFE::ProcessDefinition
+      sequence do
+        jabber :message => 'Hello world'
+      end
+
+      set :field => 'target_jid', :value => "#{@jid2}"
+    end
+    EOF
+
+    jabberp = @engine.register_participant(
+      :jabber, OpenWFE::Extras::JabberParticipant.new(:connection => @client1))
+
+    assert_trace( pdef, nil )
+    
+    messages = []
+    
+    begin
+      Timeout::timeout(20) {
+        loop do
+          messages = @client2.received_messages
+          break unless messages.empty?
+          sleep 1
+        end
+      }
+    rescue Timeout::Error
+      flunk "timeout waiting for messages"
+    end
+    
+    assert_equal 'Hello world', messages.first.body # Custom message
+  end
+
+  def test_jabber_listener
+    log_level_to_debug
+    
+    pdef = <<-EOF
+    class JabberParticipant0 < OpenWFE::ProcessDefinition
+      
+      sequence do
+        _print '${f:foo}'
+        jabber :wait_for_reply => true
+        _print '${f:foo}'
+      end
+
+      set :field => 'target_jid', :value => "#{@jid2}"
+      set :field => 'foo', :value => 'foo'
+    end
+    EOF
+    
+    jabberp = @engine.register_participant(
+      :jabber, OpenWFE::Extras::JabberParticipant.new(:connection => @client1))
+
+    @engine.register_listener(
+      OpenWFE::Extras::JabberListener, :freq => '1s', :connection => @client1)
+    
+    fei = @engine.launch pdef
+    
+    messages = []
+      
+    begin
+      Timeout::timeout(20) {
+        loop do
+          messages = @client2.received_messages
+          break unless messages.empty?
+          sleep 1
+        end
+      }
+    rescue Timeout::Error
+      flunk "timeout waiting for messages"
+    end
+    
+    wi = OpenWFE::InFlowWorkItem.from_h( JSON.parse( messages.first.body ) )
+    wi.attributes['foo'] = "bar"
+
+    @client2.deliver( @jid1, wi.to_h.to_json )
+    
+    wait( fei )
+
+    assert_engine_clean( fei )
+
+    assert_equal "foo\nbar", @tracer.to_s
+
+    purge_engine
+  end
+end