ruote 0.9.19 → 0.9.20

data/test/extras/db_history_0_test.rb

@@ -1,58 +0,0 @@
-
-require 'test/unit'
-require 'extras/active_connection'
-require 'openwfe/engine'
-require 'openwfe/extras/expool/dbhistory'
-
-
-class DbHistory0Test < Test::Unit::TestCase
-
-  def setup
-
-    OpenWFE::Extras::HistoryEntry.destroy_all
-
-    @engine = OpenWFE::Engine.new :definition_in_launchitem_allowed => true
-
-    @engine.init_service "history", OpenWFE::Extras::DbHistory
-
-    @engine.register_participant :alpha do
-      # nothing
-    end
-    @engine.register_participant :bravo do
-      # nothing
-    end
-  end
-
-  def teardown
-
-    @engine.stop
-
-    #sleep 0.100
-    #OpenWFE::Extras::HistoryEntry.destroy_all
-  end
-
-  def test_0
-
-    @engine.launch <<-EOS
-      class TDef < OpenWFE::ProcessDefinition
-        sequence do
-          alpha
-          sub0
-        end
-        define sub0 do
-          bravo
-        end
-      end
-    EOS
-
-    sleep 0.350
-
-    hes = OpenWFE::Extras::HistoryEntry.find(:all)
-
-    assert_equal 6, hes.size
-
-    assert_equal 2, hes.select { |he| he.event == 'reply' }.size
-    assert_equal 1, hes.collect { |he| he.wfid }.uniq.size
-  end
-end
-

data/test/extras/ft_19_csv.rb

@@ -1,58 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-require 'openwfe/extras/participants/csvparticipants'
-
-
-class FlowTest19 < Test::Unit::TestCase
-  include FlowTestBase
-
-  CSV0 = \
-"""
-in:weather, in:month, out:take_umbrella?
-,,
-raining,  ,     yes
-sunny,    ,     no
-cloudy,   june,   yes
-cloudy,   may,    yes
-cloudy,   ,     no
-"""
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class TestDefinition0 < OpenWFE::ProcessDefinition
-    sequence do
-      set :field => "weather", :value => "cloudy"
-      set :field => "month", :value => "may"
-      decision
-      _print "${f:take_umbrella?}"
-    end
-  end
-
-  def test_0
-
-    csvParticipant = OpenWFE::Extras::CsvParticipant.new(CSV0)
-
-    @engine.register_participant("decision", csvParticipant)
-
-    dotest(
-      TestDefinition0,
-      "yes")
-  end
-
-end
-

data/test/extras/ft_71_b14008.rb

@@ -1,85 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Thu Sep 13 09:50:29 JST 2007
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-require 'openwfe/extras/participants/activeparticipants'
-require 'extras/active_connection'
-
-
-class FlowTest71 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def teardown
-  #end
-
-  #def setup
-  #end
-
-  #
-  # TEST 0
-
-  class Travel < OpenWFE::ProcessDefinition
-
-    set :v => "manager",   :value => "alpha"
-    set :v => "budget",  :value => "bravo"
-    set :v => "todo",    :value => "bravo"
-
-    set :f => "type",    :value => "travel"
-    set :f => "request_id", :value => "1234"
-
-    sequence do
-      concurrence do
-        manager
-        budget
-      end
-      todo
-    end
-  end
-
-  def test_0
-
-    #log_level_to_debug
-
-    @engine.register_participant ".*" do |wi|
-      assert_equal wi.attributes['type'], 'travel'
-      assert_equal wi.attributes['request_id'], '1234'
-    end
-
-    fei = nil
-    30.times do
-      fei = @engine.launch(Travel)
-    end
-
-    sleep 0.500
-  end
-
-  def test_1
-
-    #log_level_to_debug
-
-    OpenWFE::Extras::Workitem.delete(:all)
-
-    @engine.register_participant ".*", OpenWFE::Extras::ActiveParticipant
-
-    fei = nil
-    50.times do
-      fei = @engine.launch(Travel)
-      sleep 0.200
-
-      wi = OpenWFE::Extras::Workitem.find_by_participant_name("alpha")
-      assert_equal wi.field('type').svalue, 'travel'
-      assert_equal wi.field('request_id').svalue, '1234'
-
-      OpenWFE::Extras::Workitem.delete(:all)
-    end
-  end
-
-end
-

data/test/extras/sqs_test.rb

@@ -1,57 +0,0 @@
-
-#
-# testing the sqs with yaml messages
-#
-
-require 'test/unit'
-
-require 'yaml'
-require 'base64'
-
-require 'openwfe/def'
-require 'openwfe/engine/engine'
-
-require 'openwfe/extras/listeners/sqslisteners'
-require 'openwfe/extras/participants/sqsparticipants'
-
-
-class SqsTest < Test::Unit::TestCase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  class SqsDefinition0 < OpenWFE::ProcessDefinition
-    def make
-      participant :sqs
-    end
-  end
-
-  def test_0
-
-    engine = OpenWFE::Engine.new
-
-    sqsp = OpenWFE::Extras::SqsParticipant.new("wiqueue")
-    #class << sqsp
-    #  def encode_workitem (wi)
-    #    "hello from #{@queue.name}  #{wi.fei.workflow_instance_id}"
-    #  end
-    #end
-
-    engine.register_participant(:sqs, sqsp)
-
-    engine.add_workitem_listener(
-      OpenWFE::Extras::SqsListener.new(
-        :wiqueue, engine.application_context),
-      "2s")
-
-    engine.launch(SqsDefinition0)
-
-    sleep(5)
-
-    qs = sqsp.queue_service
-    qs.delete_queue("wiqueue")
-  end
-end

data/test/extras/twitter_test.rb

@@ -1,62 +0,0 @@
-
-
-require 'test/unit'
-
-require 'openwfe/def'
-require 'openwfe/workitem'
-require 'openwfe/engine/engine'
-require 'openwfe/extras/participants/twitterparticipants'
-
-
-class TwitterTest < Test::Unit::TestCase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # tests
-
-  #def xxxx_0
-  def test_0
-
-    tp = OpenWFE::Extras::TwitterParticipant.new(
-      "openwferu", ENV['OWFE_TWITTER_PASSWORD'], :no_ssl => true)
-
-    wi = OpenWFE::InFlowWorkItem.new
-    wi.twitter_message = "from #{self.class.name} #{Time.now.to_s}"
-    tp.consume(wi)
-
-    wi.twitter_message = "from #{self.class.name} #{Time.now.to_s} personal"
-    wi.twitter_target = "jmettraux"
-    tp.consume(wi)
-
-    assert true
-  end
-
-  class TwitterDef < OpenWFE::ProcessDefinition
-    twitter
-  end
-
-  def test_1
-
-    engine = OpenWFE::Engine.new
-
-    tp = OpenWFE::Extras::TwitterParticipant.new(
-      "openwferu", ENV['OWFE_TWITTER_PASSWORD'], :no_ssl => true)
-
-    engine.register_participant "twitter", tp
-
-    li = OpenWFE::LaunchItem.new TwitterDef
-    # no twitter message
-
-    fei = engine.launch li
-
-    engine.wait_for fei
-
-    assert true
-  end
-end
-

data/test/file_persisted_engine_test.rb

@@ -1,64 +0,0 @@
-#
-#--
-# Copyright (c) 2007, Urbacon Ltd.
-# All rights reserved.
-#
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are met:
-#
-# . Redistributions of source code must retain the above copyright notice, this
-#   list of conditions and the following disclaimer.
-#
-# . Redistributions in binary form must reproduce the above copyright notice,
-#   this list of conditions and the following disclaimer in the documentation
-#   and/or other materials provided with the distribution.
-#
-# . Neither the name of the "OpenWFE" nor the names of its contributors may be
-#   used to endorse or promote products derived from this software without
-#   specific prior written permission.
-#
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
-# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
-# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
-# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
-# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
-# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
-# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
-# POSSIBILITY OF SUCH DAMAGE.
-#++
-#
-#
-
-#
-# "made in Canada"
-#
-# Matt Zukowski at roughest.net
-# John Mettraux at openwfe.org
-#
-
-require 'test/unit'
-
-require 'fileutils'
-
-require 'openwfe/engine/file_persisted_engine'
-
-# Tests to assert correct functionality of the FilePersistedEngine.
-class FilePersistedEngineTest < Test::Unit::TestCase
-
-  # Test to make sure that persistence data is stored in the specified
-  # working directory.
-  def test_custom_working_directory
-  workdir = "test_custom_working_directory-#{Time.now.to_i}-#{rand(99999)}"
-  FileUtils.rm_rf(workdir) if File.exists?(workdir)
-
-  engine = OpenWFE::FilePersistedEngine.new(:work_directory => workdir)
-
-  assert File.exists?(workdir),
-    "Custom working directory '#{workdir}' was not created by #{engine.class} during testing!"
-
-  FileUtils.rm_rf(workdir)
-  end
-end

data/test/file_persistence_test.rb

@@ -1,135 +0,0 @@
-
-require 'test/unit'
-
-require 'rubygems'
-
-require 'openwfe/engine/engine'
-require 'openwfe/expool/expstorage'
-require 'openwfe/expool/yamlexpstorage'
-
-
-class FilePersistenceTest < Test::Unit::TestCase
-
-  def setup
-    @engine = OpenWFE::Engine.new
-  end
-
-  def teardown
-    @engine.stop
-  end
-
-  def ac
-    @engine.application_context
-  end
-
-  #
-  # test persistence using yaml
-  def test_yaml_persistence
-    fes = OpenWFE::YamlFileExpressionStorage.new("yaml", ac)
-    test_persistence(fes)
-  end
-
-  #
-  # flow expression check
-  def test_flow_expression
-    fei = new_fei()
-    fes = OpenWFE::YamlFileExpressionStorage.new "yaml", ac
-    fe = OpenWFE::SequenceExpression.new_exp fei, nil, nil, nil, nil
-    test_persistence(fes,fe)
-  end
-
-  def test_path_splitting
-
-    fei = new_fei
-    fes = OpenWFE::YamlFileExpressionStorage.new("yaml", ac)
-    class << fes
-      public :compute_file_path
-    end
-    path = fes.compute_file_path fei
-    a = fes.class.split_file_path path
-
-    assert_equal a[0], fei.wfid
-    assert_equal a[1], fei.expression_id
-    assert_equal a[2], fei.expression_name
-  end
-
-  def test_other_workdir
-
-    context = ac
-    context[:work_directory] = "work2"
-
-    fei = new_fei()
-    fes = OpenWFE::YamlFileExpressionStorage.new("yaml", ac)
-    #fe = SequenceExpression.new(fei, nil, nil, nil, nil)
-    #fes[fei] = fe
-
-    assert File.exist?("work2")
-
-    FileUtils.rm_rf("work2")
-    assert (not File.exist?("work2"))
-  end
-
-  #
-  # test UTF-8 data persistence
-  #
-  def test_utf8_with_file
-
-    workflow_definition_name = "みんなにARIGATOU★☆に関する最新の情報公開"
-    fei = new_fei workflow_definition_name
-    fes = OpenWFE::YamlFileExpressionStorage.new "yaml", ac
-    fe = OpenWFE::SequenceExpression.new_exp fei, nil, nil, nil, nil
-
-    loaded = test_persistence(fes, fe)
-
-    #puts
-    #puts fei.workflow_definition_name
-    #puts loaded.fei.workflow_definition_name
-
-    assert_equal(
-      loaded.fei.workflow_definition_name, fei.workflow_definition_name)
-  end
-
-
-  protected
-
-    def test_persistence (fes, fe=nil)
-
-      fei = new_fei()
-      fes.delete(fei) if (fes.has_key?(fei))
-
-      raw = fe ? \
-        fe : \
-        OpenWFE::RawExpression.new_raw(fei, 'parent', 'env', nil, nil)
-
-      assert(
-        !fes.has_key?(fei),
-        "they key is present in the file system. "+
-        "Maybe a previous test did not delete the ") # なに ?
-
-      fes[fei] = raw
-      assert fes.has_key?(fei)
-
-      loaded = fes[fei]
-
-      fes.delete(fei)
-      assert !(fes.has_key?(fei))
-
-      loaded
-    end
-
-    def new_fei (definition_name=nil)
-
-      fei = OpenWFE::FlowExpressionId.new
-      fei.owfe_version = OpenWFE::OPENWFERU_VERSION
-      fei.engine_id = 'this'
-      fei.initial_engine_id = 'that'
-      fei.workflow_definition_url = 'http://test/test.xml'
-      fei.workflow_definition_name = definition_name || 'test'
-      fei.workflow_definition_revision = '1.0'
-      fei.workflow_instance_id = @engine.get_wfid_generator.generate
-      fei.expression_name = 'do-test'
-      fei.expression_id = '0.0'
-      fei
-    end
-
-end