ruote 0.9.20 → 2.1.1

data/test/extras/base.rb

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

data/test/extras/et_0_sqs.rb

@@ -1,37 +0,0 @@
-
-#
-# 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

@@ -1,226 +0,0 @@
-
-#
-# 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

data/test/extras/test.rb

@@ -1,16 +0,0 @@
-
-#
-# testing Ruote
-#
-# since Mon Oct  9 22:19:44 JST 2006
-#
-
-dirpath = File.dirname(__FILE__)
-
-tests = Dir.new(dirpath).entries.select { |e| e.match(/^et\_.*\.rb$/) }.sort
-
-tests.each { |e| load "#{dirpath}/#{e}" }
-
-#tests.each { |e| puts `ruby #{dirpath}/#{e}` }
-  # making sure that each test is runnable standalone
-

data/test/functional/db_ft_0_ar_participants.rb

@@ -1,136 +0,0 @@
-
-#
-# Testing Ruote (OpenWFEru)
-#
-# John Mettraux at openwfe.org
-#
-# Fri Mar  6 15:13:40 JST 2009
-#
-
-require File.dirname(__FILE__) + '/base'
-
-require 'test/ar_test_connection'
-require 'openwfe/extras/participants/ar_participants'
-
-
-class DbFtArParticipantsTest < Test::Unit::TestCase
-  include FunctionalBase
-
-  def test_sequence
-
-    pdef = OpenWFE.process_definition :name => 'test' do
-      sequence do
-        alpha
-        bravo
-      end
-    end
-
-    @engine.register_participant 'alpha', OpenWFE::Extras::ArParticipant
-    @engine.register_participant 'bravo', OpenWFE::Extras::ArParticipant
-
-    li = OpenWFE::LaunchItem.new(pdef)
-    li.brand = 'maserati'
-
-    clear_workitems
-
-    @engine.launch(li)
-
-    sleep 0.350
-
-    wis = OpenWFE::Extras::ArWorkitem.find(:all)
-
-    assert_equal 1, wis.size
-
-    wi = wis.first
-
-    assert_equal '0.0.0', wi.expid
-    assert_equal 'alpha', wi.participant_name
-
-    wi.delete
-    @engine.reply(wi.as_owfe_workitem)
-
-    sleep 0.350
-
-    wis = OpenWFE::Extras::ArWorkitem.find(:all)
-
-    assert_equal 1, wis.size
-
-    wi = wis.first
-
-    assert_equal '0.0.1', wi.expid
-    assert_equal 'bravo', wi.participant_name
-
-    wi.delete
-    @engine.reply(wi.as_owfe_workitem)
-
-    sleep 0.350
-
-    assert_engine_clean
-    purge_engine
-  end
-
-  def test_flatten_keywords_0
-
-    assert_flattened(
-      '|a:b|c:d|',
-      { 'a' => 'b', 'c' => 'd' })
-    assert_flattened(
-      '|a:b|c:d|e:|f|g|h|',
-      { 'a' => 'b', 'c' => 'd', 'e' => %w{ f g h } })
-    assert_flattened(
-      '|a:b|c:|d:e|f:g|h:|i|j|',
-      { 'a' => 'b', 'c' => { 'd' => 'e', 'f' => 'g', 'h' => %w{ i j } } })
-    assert_flattened(
-      '|a:b,c|d:e, f|',
-      { 'a' => 'b,c', 'd' => 'e, f' })
-    assert_flattened(
-      '|a:bc|d:e f|',
-      { 'a' => 'b|c', 'd' => 'e| f' })
-  end
-
-  def test_search_workitems
-
-    pdef = OpenWFE.process_definition :name => 'test' do
-      participant '${f:target}'
-    end
-
-    @engine.register_participant 'alpha', OpenWFE::Extras::ArParticipant
-    @engine.register_participant 'bravo', OpenWFE::Extras::ArParticipant
-
-    launch(pdef, 'target' => 'alpha')
-    launch(pdef, 'target' => 'bravo')
-
-    sleep 0.350
-
-    assert_equal(
-      1,
-      OpenWFE::Extras::ArWorkitem.search('participant:alpha', nil).size)
-    assert_equal(
-      2,
-      OpenWFE::Extras::ArWorkitem.search('target:', nil).size)
-    assert_equal(
-      1,
-      OpenWFE::Extras::ArWorkitem.search(':bravo', nil).size)
-
-    OpenWFE::Extras::ArWorkitem.destroy_all
-    purge_engine
-  end
-
-  def launch (pdef, fields)
-    li = OpenWFE::LaunchItem.new(pdef)
-    li.fields = li.fields.merge(fields)
-    @engine.launch(li)
-  end
-
-  protected
-
-  def clear_workitems
-    OpenWFE::Extras::ArWorkitem.delete_all
-  end
-
-  def assert_flattened (target, h)
-
-    assert_equal(target, OpenWFE::Extras::ArWorkitem.flatten_keywords(h, nil))
-  end
-end
-

data/test/functional/eft_10_unset.rb

@@ -1,60 +0,0 @@
-
-#
-# Testing Ruote (OpenWFEru)
-#
-# John Mettraux at openwfe.org
-#
-# Tue Feb  3 16:40:16 JST 2009
-#
-
-require File.dirname(__FILE__) + '/base'
-
-
-class EftUnsetTest < Test::Unit::TestCase
-  include FunctionalBase
-
-  def test_unset_variables
-
-    pdef = OpenWFE.process_definition :name => 'test' do
-      sequence do
-
-        set :v => 'v0', :val => 'a'
-        set :v => 'v1', :val => 'b'
-        set :v => 'v2', :val => 'c'
-
-        echo '${v0}${v1}${v2}'
-
-        unset :v => 'v0'
-        unset :var => 'v1'
-        unset :variable => 'v2'
-
-        echo '..${v0}${v1}${v2}'
-      end
-    end
-
-    assert_trace(pdef, "abc\n..")
-  end
-
-  def test_unset_fields
-
-    pdef = OpenWFE.process_definition :name => 'test' do
-      sequence do
-
-        set :f => 'f0', :val => 'a'
-        set :f => 'f1', :val => 'b'
-        set :f => 'f2', :val => 'c'
-
-        echo '${f:f0}${f:f1}${f:f2}'
-
-        unset :f => 'f0'
-        unset :fld => 'f1'
-        unset :field => 'f2'
-
-        echo '..${f:f0}${f:f1}${f:f2}'
-      end
-    end
-
-    assert_trace(pdef, "abc\n..")
-  end
-end
-