ruote 0.9.18 → 0.9.19

data/test/extras/ap_1_test.rb

@@ -0,0 +1,53 @@
+
+
+require 'test/unit'
+
+require 'extras/ap_test_base'
+
+require 'openwfe/extras/participants/activeparticipants'
+
+
+class Active1Test < Test::Unit::TestCase
+  include ApTestBase
+
+  def setup
+
+    OpenWFE::Extras::Workitem.destroy_all
+      # let's make sure there are no workitems left
+  end
+
+  def teardown
+
+    OpenWFE::Extras::Workitem.destroy_all
+  end
+
+  #
+  # tests
+
+  def test_0
+
+    wi = new_wi "participant alpha"
+
+    (1..100).to_a.each do |i|
+      Thread.new do
+
+        sleep rand()
+
+        f = OpenWFE::Extras::Field.new_field(
+          "some_field_#{i}", "val_#{i}")
+
+        wi.fields << f
+
+        print "\n/// added #{f.id} #{f.fkey}, #{f.svalue}"
+      end
+    end
+
+    sleep 2
+
+    wi.save!
+
+    assert_equal 100, wi.fields.size
+  end
+
+end
+

data/test/extras/ap_test_base.rb

@@ -0,0 +1,24 @@
+
+require 'extras/active_connection'
+
+module ApTestBase
+
+  protected
+
+    def new_wi (participant_name, hash={})
+
+      wi = OpenWFE::Extras::Workitem.new
+
+      wi.fei = "fei"
+      wi.wfid = "wfid"
+      wi.wf_name = "wf_name"
+      wi.wf_revision = "wf_revision"
+      wi.participant_name = participant_name
+
+      hash.each do |k, v|
+        wi.fields << OpenWFE::Extras::Field.new_field(k, v)
+      end
+
+      wi
+    end
+end

data/test/extras/atomfeedp_test.rb

@@ -0,0 +1,113 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 15:41:44 JST 2006
+#
+# Kita Yokohama
+#
+
+require 'test/unit'
+
+require 'rubygems'
+
+require 'openwfe/workitem'
+require 'openwfe/engine/engine'
+require 'openwfe/def'
+
+require 'openwfe/extras/participants/atomfeed_participants'
+
+require 'test/flowtestbase'
+
+
+class AtomFeedParticipantTest < Test::Unit::TestCase
+  include FlowTestBase
+
+  #def setup
+  #end
+
+  #def teardown
+  #end
+
+  #
+  # test atom 0
+
+  class AtomDefinition0 < OpenWFE::ProcessDefinition
+    sequence do
+
+      set \
+        :field => "atom_entry_title",
+        :value => "#{$run_index}"
+      set \
+        :field => "colour",
+        :value => "blue"
+      participant :ref => "feed0-alpha"
+
+      set \
+        :field => "atom_entry_title",
+        :value => "#{$run_index}"
+      set \
+        :field => "colour",
+        :value => "red"
+      participant :ref => "feed1-bravo"
+    end
+  end
+
+  def test_atom_0
+
+    feed0 = OpenWFE::Extras::AtomFeedParticipant.new(
+      7,
+"""
+<p>
+  <h1>${f:colour}</h1>
+</p>
+""")
+
+
+    feed1 = OpenWFE::Extras::AtomFeedParticipant.new(7) do |fe, participant, workitem|
+
+      t = Time.now.to_s
+"""
+<p>
+  <h1>${f:colour}</h1>
+  <ul>
+    <li>flowexpression :   #{fe.fei.to_s}</li>
+    <li>participant class :  #{participant.class}</li>
+    <li>workitem att count : #{workitem.attributes.length}</li>
+    <li>now :        #{t}</li>
+    <li>entry title :    ${f:atom_entry_title}</li>
+  </ul>
+</p>
+"""
+    end
+
+    @engine.register_participant "feed0-.*", feed0
+    @engine.register_participant "feed1-.*", feed1
+
+    $run_index = "first run"
+    @engine.launch(OpenWFE::LaunchItem.new(AtomDefinition0))
+
+    $run_index = "second run"
+    @engine.launch(OpenWFE::LaunchItem.new(AtomDefinition0))
+
+    $run_index = "third and last run"
+    @engine.launch(OpenWFE::LaunchItem.new(AtomDefinition0))
+
+    @engine.join_until_idle
+
+    assert File.exist?('work/atom_feed0-alpha.xml')
+    assert File.exist?('work/atom_feed1-bravo.xml')
+
+    assert_equal(
+      3,
+      OpenWFE.grep(
+        "workitem att count", "work/atom_feed1-bravo.xml").size)
+    assert_equal(
+      3,
+      OpenWFE.grep(
+        "<h1>red</h1>", "work/atom_feed1-bravo.xml").size)
+  end
+
+end
+

data/test/extras/atompubp_test.rb

@@ -0,0 +1,91 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Nov 13 12:47:53 JST 2007
+#
+# ShinYokohama
+#
+
+require 'test/unit'
+
+require 'rubygems'
+
+require 'openwfe/flowexpressionid'
+require 'openwfe/workitem'
+
+require 'openwfe/extras/participants/atompub_participants'
+
+require 'rutest_utils'
+
+
+class AtomPubParticipantTest < Test::Unit::TestCase
+
+  #def setup
+  #end
+
+  #def teardown
+  #end
+
+  def test_0
+
+    target_uri = "https://openwferu.wordpress.com/wp-app.php/posts"
+
+    params = {}
+    params[:username] = 'jmettraux'
+    params[:password] = ENV['WORDPRESS_PASSWORD']
+
+    params[:categories] = 'openwferu, test'
+
+    app = OpenWFE::Extras::AtomPubParticipant.new target_uri, params
+
+    workitem = OpenWFE::InFlowWorkItem.new
+    workitem.fei = new_fei
+    workitem.participant_name = "AtomPubParticipant"
+    workitem.message = "hello RFC 5023 world !"
+
+    uri = app.consume(workitem)
+
+    puts
+    puts uri
+    puts
+  end
+
+  def test_1
+
+    target_uri = "https://openwferu.wordpress.com/wp-app.php/posts"
+
+    params = {}
+    params[:username] = 'jmettraux'
+    params[:password] = ENV['WORDPRESS_PASSWORD']
+
+    params[:categories] = 'openwferu, test'
+
+    #params[:title_field] = "title"
+
+    app = OpenWFE::Extras::BlogParticipant.new target_uri, params do
+      """
+        paragraph 0
+
+        paragraph 1 : ${f:message}
+
+        paragraph 2
+      """
+    end
+
+    workitem = OpenWFE::InFlowWorkItem.new
+    workitem.fei = new_fei
+    workitem.participant_name = "AtomPubParticipant"
+    workitem.message = "hello RFC 5023 world !"
+    workitem.title = "BlogPostParticipant test"
+
+    uri = app.consume(workitem)
+
+    puts
+    puts uri
+    puts
+  end
+end
+

data/test/extras/basecamp_test.rb

@@ -0,0 +1,53 @@
+
+#
+# testing the basecamp participants
+#
+# Wed Feb  6 16:24:12 JST 2008
+#
+
+require 'test/unit'
+
+require 'openwfe/extras/participants/basecamp_participants'
+
+
+class BasecampTest < Test::Unit::TestCase
+
+  #def setup
+  #end
+
+  #def teardown
+  #end
+
+  #class StubWorkitem
+  #  attr_accessor :attributes
+  #  def initialize atts
+  #    @attributes = atts
+  #  end
+  #end
+
+  def test_0
+
+    p = OpenWFE::Extras::BasecampParticipant.new(
+      :host => ENV['BC_HOST'],
+      :username => ENV['BC_USERNAME'],
+      :password => ENV['BC_PASSWORD'],
+      #:project_id => ENV['BC_PROJECT_ID'],
+      :todo_list_id => ENV['BC_TODO_LIST_ID'],
+      :responsible_party_id => ENV['BC_RESPONSIBLE_PARTY_ID'],
+      :ssl => false)
+
+    class << p
+      def reply_to_engine workitem
+        # nada
+      end
+    end
+
+    workitem = {}
+    workitem['todo_text'] = "this is a test (#{Time.now})"
+
+    p.consume workitem
+
+    assert_not_nil workitem['todo_id']
+  end
+end
+

data/test/extras/db_errorjournal_utest.rb

@@ -0,0 +1,75 @@
+
+require 'test/unit'
+require 'rubygems'
+require 'mocha'
+
+require 'extras/active_connection'
+require 'openwfe/extras/expool/dberrorjournal'
+
+
+class FakeProcessError
+
+  attr_accessor :wfid
+  attr_accessor :message
+
+  def initialize (wfid, message)
+
+    @wfid = wfid
+    @message = message
+  end
+end
+
+
+class DbErrorJournalUnitTest < Test::Unit::TestCase
+
+  def setup
+
+    expool = mock
+    #expool.expects(:add_observer).once
+    expool.expects(:add_observer).at_least(2).at_most(2)
+
+    ac = {}
+    ac['expressionPool'] = expool
+
+    @journal = OpenWFE::Extras::DbErrorJournal.new 'ejournal', ac
+    class << @journal
+      public :record_error
+    end
+  end
+
+  def teardown
+    OpenWFE::Extras::ProcessError.destroy_all
+  end
+
+  def test_0
+
+    @journal.record_error(
+      FakeProcessError.new('wfid0', [ 'it', 'failed', '!' ]))
+
+    l = @journal.get_error_log 'wfid0'
+
+    assert_equal l.size, 1
+    assert_kind_of FakeProcessError, l[0]
+    assert_equal l[0].wfid, 'wfid0'
+    assert_equal l[0].message.size, 3
+
+    @journal.record_error(
+      FakeProcessError.new('wfid0', "it failed again"))
+    @journal.record_error(
+      FakeProcessError.new('wfid1', "it failed too"))
+
+    l0 = @journal.get_error_log 'wfid0'
+    l1 = @journal.get_error_log 'wfid1'
+
+    assert_equal 2, l0.size
+    assert_equal 1, l1.size
+    assert_equal 3, OpenWFE::Extras::ProcessError.find_all_by_wfid(['wfid0', 'wfid1']).size
+
+    @journal.remove_error_log 'wfid0'
+
+    assert_equal 1, OpenWFE::Extras::ProcessError.count
+    assert_equal 1, OpenWFE::Extras::ProcessError.find(:all).size
+    assert_equal 1, @journal.get_error_logs.size
+  end
+end
+

data/test/extras/db_expstorage_utest.rb

@@ -0,0 +1,171 @@
+
+require 'test/unit'
+require 'rubygems'
+require 'mocha'
+
+require 'rutest_utils'
+require 'extras/active_connection'
+require 'openwfe/flowexpressionid'
+require 'openwfe/extras/expool/dbexpstorage'
+
+
+class FakeExpression
+
+  attr_accessor :fei
+  attr_accessor :message
+  attr_accessor :application_context
+
+  def self.create (exp_id, wfid, msg)
+
+    fei = new_fei
+    fei.expression_id = exp_id
+    fei.wfid = wfid
+
+    fe = self.new
+    fe.fei = fei
+    fe.message = msg
+
+    fe
+  end
+end
+
+class VeryFakeExpression < FakeExpression
+end
+
+class FakeExpressionMap
+
+  def get_expression_classes (kind)
+    if kind == VeryFakeExpression
+      [ VeryFakeExpression ]
+    else
+      [ VeryFakeExpression, FakeExpression ]
+    end
+  end
+end
+
+
+class DbExpressionStorageUnitTest < Test::Unit::TestCase
+
+  def setup
+
+    expool = mock
+    expool.expects(:add_observer).times(2)
+
+    ac = {}
+    ac['expressionPool'] = expool
+    ac['expressionMap'] = FakeExpressionMap.new
+
+    @storage = OpenWFE::Extras::DbExpressionStorage.new 'expstorage', ac
+  end
+
+  def teardown
+
+    OpenWFE::Extras::Expression.destroy_all
+  end
+
+  def test_0
+
+    assert_equal 0, @storage.size
+
+    fe = store_fake '0.1', '20071127-a', 'kthxbai'
+
+    @storage[fe.fei] = fe
+
+    assert_equal 1, @storage.size
+
+    fei = fe.fei.dup
+
+    assert @storage.has_key?(fei)
+
+    fe = @storage[fei]
+
+    assert_equal 'kthxbai', fe.message
+
+    @storage.delete fei
+
+    assert_equal 0, @storage.size
+
+    store_fake '0', '20071127-a', 'kthxbai 0'
+    store_fake '0.0', '20071127-a', 'kthxbai 1'
+
+    assert_equal 2, @storage.size
+
+    @storage.purge
+
+    assert_equal 0, @storage.size
+  end
+
+  def test_1
+
+    store_fake '0', '20071127-a', 'kthxbai 0'
+    store_fake '0', '20071127-b', 'kthxbai 1'
+
+    assert_equal 2, @storage.size
+
+    count = 0
+    @storage.find_expressions(
+      :include_classes => FakeExpression).each do |fexp|
+
+      assert_kind_of FakeExpression, fexp
+      count += 1
+    end
+    assert_equal 2, count
+
+    store_fake '0', '20071127-c', 'kthxbai 2', true
+    store_fake '0', '20071127-d', 'kthxbai 3', true
+
+    count = 0
+    @storage.find_expressions(
+      :include_classes => FakeExpression).each do |fexp|
+
+      assert_kind_of FakeExpression, fexp
+      count += 1
+    end
+    assert_equal 4, count
+
+    count = 0
+    @storage.find_expressions(
+      :include_classes => VeryFakeExpression).each do |fexp|
+
+      assert_kind_of VeryFakeExpression, fexp
+      count += 1
+    end
+    assert_equal 2, count
+  end
+
+  def test_2
+
+    store_fake '0', '20071001-A', 'kthxbai -1'
+    store_fake '0', '20071127-a', 'kthxbai 0'
+    store_fake '0', '20071127-b', 'kthxbai 1'
+    store_fake '0', '20071127-c', 'kthxbai 2'
+    store_fake '0', '20071127-d', 'kthxbai 3', true
+
+    count = 0
+    @storage.find_expressions.each do |fexp|
+      count += 1
+    end
+    assert_equal 5, count
+
+    count = 0
+    @storage.find_expressions(:wfid_prefix => '200711').each do |fexp|
+
+      assert fexp.fei.wfid.match('^200711')
+      count += 1
+    end
+    assert_equal 4, count
+  end
+
+  protected
+
+    def store_fake (exp_id, wfid, msg, other_class=false)
+
+      clazz = other_class ? VeryFakeExpression : FakeExpression
+      fe = clazz.create exp_id, wfid, msg
+
+      @storage[fe.fei] = fe
+
+      fe
+    end
+end
+