ruote 0.9.19 → 0.9.20

data/test/ft_9b_cursor.rb

@@ -1,105 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Thu Nov 22 11:53:13 JST 2007
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest9b < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    cursor do
-      set :v => "v0", :val => "x"
-      _print "${v0}"
-    end
-  end
-
-  def test_0
-
-    dotest Test0, "x"
-  end
-
-  #
-  # Test 1
-  #
-
-  #class Test1 < OpenWFE::ProcessDefinition
-  #  cursor do
-  #    my_participant
-  #  end
-  #end
-  #def test_1
-  #  @engine.register_participant :my_participant do |fexp, wi|
-  #    #puts fexp.to_s
-  #    #puts fexp.environment_id.to_s
-  #    @tracer << "ok0\n" if fexp.environment_id.expid != fexp.fei.expid
-  #    @tracer << "ok1\n" if fexp.environment_id.expid == "0.0"
-  #    @tracer << "ok2\n" if fexp.environment_id.wfid + ".0" == fexp.fei.wfid
-  #  end
-  #  dotest Test1, "ok0\nok1\nok2"
-  #end
-
-  #
-  # Test 2
-  #
-
-  class Test2 < OpenWFE::ProcessDefinition
-    cursor do
-      my_participant
-    end
-  end
-  class MyParticipant
-    include OpenWFE::LocalParticipant
-
-    def initialize (tracer)
-      @tracer = tracer
-    end
-    def consume (workitem)
-      @tracer << "consume\n"
-      @workitem = workitem
-    end
-    def cancel (cancelitem)
-      @tracer << "cancel\n"
-    end
-  end
-
-  def test_2
-
-    #log_level_to_debug
-
-    @engine.register_participant :my_participant, MyParticipant.new(@tracer)
-
-    fei = launch Test2
-
-    sleep 0.350
-
-    @engine.cancel_process fei
-
-    sleep 0.350
-
-    assert(
-      [ "consume\ncancel",
-        "consume\ncancel\ncancel" ].include?(@tracer.to_s))
-
-    assert_equal 1, @engine.get_expression_storage.size
-  end
-
-end
-

data/test/ft_tests.rb

@@ -1,130 +0,0 @@
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Mon Oct  9 22:19:44 JST 2006
-#
-
-#require 'test/unit'
-
-require 'ft_0'
-require 'ft_0b_sequence'
-require 'ft_0c_testname'
-require 'ft_0d_participant'
-require 'ft_0e_multibody'
-require 'ft_1_unset'
-require 'ft_1b_unset'
-require 'ft_2_concurrence'
-require 'ft_2b_concurrence'
-require 'ft_2c_concurrence'
-require 'ft_3_equals'
-require 'ft_3b_lookup_vf'
-require 'ft_4_misc'
-require 'ft_6_lambda'
-require 'ft_7_lose'
-require 'ft_7b_lose'
-require 'ft_8_forget'
-require 'ft_9_cursor'
-require 'ft_9b_cursor'
-require 'ft_10_loop'
-require 'ft_11_ppd'
-require 'ft_11b_ppd'
-require 'ft_12_blockparticipant'
-require 'ft_14_subprocess'
-require 'ft_14b_subprocess'
-require 'ft_14c_subprocess'
-require 'ft_15_iterator'
-require 'ft_15b_iterator'
-require 'ft_16_fqv'
-require 'ft_17_condition'
-require 'ft_18_pname'
-require 'extras/ft_19_csv'
-require 'ft_22_history'
-require 'ft_23_when'
-require 'ft_23b_when'
-require 'ft_23c_wait'
-require 'ft_23d_cww'
-require 'ft_24_def'
-require 'ft_25_cancel'
-
-require 'ft_27_getflowpos'
-require 'ft_28_fileparticipant'
-
-require 'ft_31_flowname'
-require 'ft_34_cancelwfid'
-require 'ft_35_localdefs'
-require 'ft_36_subprocids'
-require 'ft_37_pnames'
-require 'ft_38_tag'
-require 'ft_38b_tag'
-require 'ft_38c_tag'
-require 'ft_38d_tag'
-require 'ft_39_reserve'
-require 'ft_39b_reserve'
-require 'ft_40_defined'
-require 'ft_41_case'
-require 'ft_42_environments'
-require 'ft_43_pat10'
-require 'ft_44_save'
-require 'ft_44b_restore'
-require 'ft_45_citerator'
-require 'ft_45b_citerator'
-require 'ft_46_pparams'
-require 'ft_47_filter'
-require 'ft_48_fe_filter'
-require 'ft_49_condition'
-require 'ft_50_xml_attribute'
-#require 'ft_51_stack'
-require 'ft_52_obs_participant'
-require 'ft_53_null_noop_participant'
-require 'ft_54_listen'
-require 'ft_54b_listen'
-require 'ft_54c_listen'
-require 'ft_55_ptimeout'
-require 'ft_56_timeout'
-require 'ft_57_a'
-
-require 'ft_32_journal'
-require 'ft_32c_journal'
-require 'ft_32d_journal'
-
-require 'ft_58_ejournal'
-require 'ft_58b_ejournal'
-require 'ft_59_ps'
-require 'ft_60_ecancel'
-require 'ft_61_elsub'
-require 'ft_62_procparticipant'
-require 'ft_63_pause'
-require 'ft_64_alias'
-require 'ft_65_stringlaunch'
-require 'ft_66_subforget'
-
-require 'ft_68_ifparticipant'
-require 'ft_69_cancelmissing'
-require 'ft_70_lookupvar'
-require 'ft_71_log'
-require 'ft_72_lookup_processes'
-require 'ft_73_cancel_sub'
-require 'ft_74_block_and_workitem_dup'
-require 'ft_75_ruby_attributes'
-require 'ft_76_merge_isolate'
-require 'ft_77_segments'
-require 'ft_78_eval'
-require 'ft_79_tticket'
-require 'ft_79b_tticket'
-require 'ft_79c_outcome'
-require 'ft_80_spname'
-require 'ft_81_exp'
-
-require 'back_0916_test'
-
-require 'ft_82_trecu'
-require 'ft_84_updateexp'
-require 'ft_84b_subrepr'
-require 'ft_85_dolhash'
-require 'ft_86_dollar_fv'
-require 'ft_87_define'
-
-#require 'ft_88_http' # this test requires rufus/verbs
-

data/test/hparticipant_test.rb

@@ -1,168 +0,0 @@
-
-#
-# Testing OpenWFEru (Ruote)
-#
-# John Mettraux at openwfe.org
-#
-# Sun Oct 29 15:41:44 JST 2006
-#
-# Kita Yokohama
-#
-
-require 'test/unit'
-
-require 'openwfe/flowexpressionid'
-require 'openwfe/engine/engine'
-require 'openwfe/def'
-require 'openwfe/participants/storeparticipants'
-
-
-class HParticipantTest < Test::Unit::TestCase
-
-  def setup
-
-    @engine = OpenWFE::Engine.new :definition_in_launchitem_allowed => true
-  end
-
-  def teardown
-
-    @engine.stop if @engine
-  end
-
-  class HpDefinition0 < OpenWFE::ProcessDefinition
-    sequence do
-      participant :alice
-      participant :bob
-    end
-  end
-
-  def test_hp_0
-
-    @hpAlice = OpenWFE::HashParticipant.new
-    @hpBob = OpenWFE::HashParticipant.new
-
-    @engine.register_participant :alice, @hpAlice
-    @engine.register_participant :bob, @hpBob
-
-    do_test
-  end
-
-  def test_hp_1
-
-    #FileUtils.remove_dir "./work" if File.exist? "./work"
-    FileUtils.rm_rf "work" if File.exist? "./work"
-
-    @engine.application_context[:work_directory] = "./work"
-
-    @hpAlice = OpenWFE::YamlParticipant.new(
-      "alice", @engine.application_context)
-    #@hpBob = OpenWFE::YamlParticipant.new(
-    #  "bob", @engine.application_context)
-
-    @engine.register_participant(:alice, @hpAlice)
-    #@engine.register_participant(:bob, @hpBob)
-    @hpBob = @engine.register_participant(:bob, OpenWFE::YamlParticipant)
-
-    do_test
-  end
-
-  def do_test
-
-    id = @engine.launch HpDefinition0
-
-    assert \
-      id.is_a?(OpenWFE::FlowExpressionId),
-      "engine.launch() doesn't return an instance of FlowExpressionId "+
-      "but of #{id.class}"
-
-    #puts id.to_s
-
-    #puts "alice count : #{@hpAlice.size}"
-    #puts "bob count :   #{@hpBob.size}"
-
-    sleep 0.350
-
-    assert_equal 0, @hpBob.size
-    assert_equal 1, @hpAlice.size
-
-    wi = @hpAlice.list_workitems(id.workflow_instance_id)[0]
-
-    assert \
-      wi != nil,
-      "didn't find wi for flow #{id.workflow_instance_id}"
-
-    wi.message = "Hello bob !"
-
-    @hpAlice.forward(wi)
-
-    sleep 0.350
-
-    assert_equal 0, @hpAlice.size
-    assert_equal 1, @hpBob.size
-
-    wi = @hpBob.list_workitems(id.workflow_instance_id)[0]
-
-    assert_equal wi.message, "Hello bob !"
-
-    @hpBob.proceed wi
-
-    sleep 0.350
-
-    assert_equal 0, @hpAlice.size
-    assert_equal 0, @hpBob.size
-
-    assert_equal 1, @engine.get_expression_storage.size
-  end
-
-  def test_d_0
-
-    @hpAlice = OpenWFE::HashParticipant.new
-    @hpBob = OpenWFE::HashParticipant.new
-
-    @engine.register_participant :alice, @hpAlice
-    @engine.register_participant :bob, @hpBob
-
-    id = @engine.launch HpDefinition0
-
-    sleep 0.350
-
-    assert_equal 1, @hpAlice.size
-    assert_equal 0, @hpBob.size
-
-    wi = @hpAlice.first_workitem
-
-    @hpAlice.delegate wi, @hpBob
-
-    assert_equal 0, @hpAlice.size
-    assert_equal 1, @hpBob.size
-
-    wi = @hpBob.first_workitem
-
-    @hpBob.proceed wi
-
-    sleep 0.350
-
-    assert_equal 0, @hpAlice.size
-    assert_equal 1, @hpBob.size
-
-    wi = @hpBob.first_workitem
-
-    @hpBob.delegate wi.fei, @hpAlice
-
-    assert_equal 1, @hpAlice.size
-    assert_equal 0, @hpBob.size
-
-    wi = @hpAlice.first_workitem
-
-    @hpAlice.forward wi
-
-    sleep 0.350
-
-    assert_equal 0, @hpAlice.size
-    assert_equal 0, @hpBob.size
-
-    assert_equal 1, @engine.get_expression_storage.size
-  end
-
-end
-

data/test/lookup_att_test.rb

@@ -1,90 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-
-require 'test/unit'
-require 'openwfe/utils'
-
-
-class LookupAttTest < Test::Unit::TestCase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_0
-
-    l0 = [
-      {"name"=>"companyA","DunsNr" => "JGE4753"},
-      {"name"=>"companyB","DunsNr" => "ZUTE8555"},
-      {"name"=>"companyC","DunsNr" => "GTI6775"},
-      {"name"=>"companyD","DunsNr" => "XUE6755"}
-    ]
-    h0 = { "supplierList" => l0 }
-
-    do_lookup_test(
-      h0, "supplierList", l0)
-    do_lookup_test(
-      h0, "supplierList.1", {"name"=>"companyB","DunsNr" => "ZUTE8555"})
-    do_lookup_test(
-      h0, "supplierList.1.DunsNr", "ZUTE8555")
-
-    do_has_attribute_test(
-      h0, "supplierList.1.DunsNr", true)
-    do_has_attribute_test(
-      h0, "supplierList.1.Whatever", false)
-    do_has_attribute_test(
-      h0, "supplierList.whatever", false)
-    do_has_attribute_test(
-      h0, "whatever", false)
-
-    h1 = { "supplierList" => l0.to_s }
-    do_lookup_test(
-      h1, "supplierList.1.DunsNr", nil)
-
-    do_has_attribute_test(
-      nil, "whatever", false)
-    do_has_attribute_test(
-      {}, "whatever", false)
-    do_has_attribute_test(
-      [], "whatever", false)
-    do_has_attribute_test(
-      "string",  "whatever", false)
-
-    do_has_attribute_test(
-      [ nil, nil ], "1.name", false)
-  end
-
-  def test_1
-
-    h = { "0" => [ "a", "A" ], "1" => { "b" => "B"} }
-
-    do_lookup_test(h, "0", [ "a", "A" ])
-    do_lookup_test(h, "1.b", "B")
-    do_has_attribute_test(h, "0", true)
-    do_has_attribute_test(h, "1.b", true)
-  end
-
-  protected
-
-    def do_lookup_test (container, expression, expected_value)
-
-      assert_equal(
-        expected_value,
-        OpenWFE::lookup_attribute(container, expression))
-    end
-
-    def do_has_attribute_test (container, expression, expected_boolean)
-
-      assert_equal(
-        expected_boolean,
-        OpenWFE::has_attribute?(container, expression))
-    end
-
-end
-