ruote 0.9.19 → 0.9.20

data/test/ft_7b_lose.rb

@@ -1,78 +0,0 @@
-
-#
-# Testing OpenWFEru (Ruote)
-#
-# John Mettraux at openwfe.org
-#
-# Mon Dec 25 14:27:48 JST 2006
-#
-
-require 'rubygems'
-
-require 'openwfe/def'
-require 'flowtestbase'
-
-
-class FlowTest7b < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  def test_1
-
-    dotest(
-'<process-definition name="'+name_of_test+'''" revision="0">
-  <sequence>
-    <concurrence
-      count="1"
-    >
-      <lose>
-        <sequence>
-          <sleep for="500" />
-          <print>a</print>
-        </sequence>
-      </lose>
-      <print>b</print>
-    </concurrence>
-    <print>c</print>
-  </sequence>
-</process-definition>''',
-      "b\nc")
-      #true,
-      #true)
-  end
-
-
-  #
-  # TEST 2
-
-  class Test2 < OpenWFE::ProcessDefinition
-    sequence do
-      _print "before"
-      concurrence :count => 1 do
-        lose do
-          sequence do
-            _sleep :for => 350
-            _print "ok 4"
-          end
-        end
-        sequence do
-          _print "ok 5"
-        end
-      end
-      _print "after"
-    end
-  end
-
-  def test_2
-
-    dotest Test2, [ 'before', 'ok 5', 'after' ].join("\n")
-  end
-
-end
-

data/test/ft_80_spname.rb

@@ -1,91 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-# Fri Jan  4 15:00:26 JST 2008
-#
-# Fighting bug #16791
-# http://rubyforge.org/tracker/index.php?func=detail&aid=16791&group_id=2609&atid=10023
-#
-
-require 'flowtestbase'
-
-
-class FlowTest80 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class Def0 < OpenWFE::ProcessDefinition
-    sequence do
-      subprocess :ref => "last_step"
-      last_step
-    end
-    process_definition :name => "last_step" do
-      _print "last_step"
-    end
-  end
-
-  def test_0
-    dotest Def0, ([ "last_step" ] * 2).join("\n")
-  end
-
-  TEST0B = %{
-    <process-definition name="def" revision="0b">
-      <sequence>
-        <subprocess ref="last_step" />
-        <last_step />
-      </sequence>
-      <process-definition name="last_step">
-        <print>last_step</print>
-      </process-definition>
-    </process-definition>
-  }.strip
-
-  def test_0b
-    dotest TEST0B, ([ "last_step" ] * 2).join("\n")
-  end
-
-  #
-  # Test 1
-  #
-  # Checking with participants
-  #
-
-  class Def1 < OpenWFE::ProcessDefinition
-    sequence do
-      mister_alpha
-      participant :ref => :mister_alpha
-      participant :ref => "mister_alpha"
-      #participant :ref => "mister-alpha"
-      mister_bravo
-      #participant :ref => :mister_bravo
-      #participant :ref => "mister_bravo"
-      participant :ref => "mister-bravo"
-    end
-  end
-
-  def test_1
-
-    @engine.register_participant :mister_alpha do
-      @tracer << "alpha\n"
-    end
-    @engine.register_participant "mister-bravo" do
-      @tracer << "bravo\n"
-    end
-
-    dotest Def1, ([ "alpha" ] * 3 + [ "bravo" ] * 2).join("\n")
-  end
-
-end
-

data/test/ft_81_exp.rb

@@ -1,60 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-# Sat Jan  5 22:57:53 JST 2008
-#
-
-require 'flowtestbase'
-
-
-class FlowTest81 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class Def0 < OpenWFE::ProcessDefinition
-
-    sequence do
-
-      exp :name => "p0"
-      exp :name => "sub0"
-
-      exp :name => "sequence" do
-        p0
-        sub0
-      end
-
-      set :var => "a", :value => { "ref" => "p0" }
-      exp :name => "participant", :variable_attributes => "a"
-
-      exp :default => "p0"
-      exp :name => " ", :default => "p0"
-    end
-
-    process_definition :name => "sub0" do
-      _print "sub0"
-    end
-  end
-
-  def test_0
-
-    @engine.register_participant :p0 do
-      @tracer << "p0\n"
-    end
-
-    dotest Def0, %w{ p0 sub0 p0 sub0 p0 p0 p0 }.join("\n")
-  end
-
-end
-

data/test/ft_82_trecu.rb

@@ -1,52 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-# Sat Feb 16 19:07:42 JST 2008
-#
-
-require 'flowtestbase'
-
-
-class FlowTest82 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    sequence do
-      participant :ref => "toto"
-      subprocess :ref => "Test", :unless => "${f:count} == 3"
-    end
-  end
-
-  def test_0
-
-    #log_level_to_debug
-
-    @engine.register_participant :toto do |workitem|
-
-      if workitem.attributes['count'] != nil
-        workitem.count = workitem.count + 1
-      else
-        workitem.count = 0
-      end
-
-      @tracer << workitem.count.to_s
-    end
-
-    dotest Test0, "0123"
-  end
-
-end
-

data/test/ft_83_badpause.rb

@@ -1,58 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-# Sat Feb 16 19:07:42 JST 2008
-#
-
-require 'flowtestbase'
-
-
-class FlowTest83 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    concurrence do
-      _loop do
-        alpha
-      end
-      _loop do
-        alpha
-      end
-    end
-  end
-
-  def test_0
-
-    @engine.register_participant :alpha do
-      sleep 0.002
-    end
-
-    fei = launch Test0
-
-    sleep 0.350
-
-    1000.times do |i|
-      print "."
-      ps = @engine.process_status fei
-      assert ( ! ps.paused?)
-      #p ps.expressions.size
-    end
-
-    #dotest Test0, "1\n2\n3"
-  end
-
-end
-

data/test/ft_84_updateexp.rb

@@ -1,198 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Sun Mar  9 20:43:02 JST 2008
-#
-
-require 'flowtestbase'
-
-require 'openwfe/def'
-require 'openwfe/participants/storeparticipants'
-require 'openwfe/storage/yamlcustom'
-
-
-class FlowTest84 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def teardown
-  #end
-
-  #def setup
-  #end
-
-  #
-  # TEST 0
-
-  class TestDefinition0 < OpenWFE::ProcessDefinition
-     sequence do
-       set :var => "v0", :val => "val0"
-       store_p
-     end
-  end
-
-  def test_0
-
-    #sp = @engine.register_participant("store_p", OpenWFE::YamlParticipant)
-    sp = @engine.register_participant("store_p", OpenWFE::HashParticipant)
-
-    fei = launch TestDefinition0
-
-    sleep 0.350
-
-    s = @engine.process_stack fei, true
-
-    env = s.find { |fexp| fexp.is_a?(OpenWFE::Environment) }
-    par = s.find { |fexp| fexp.is_a?(OpenWFE::ParticipantExpression) }
-
-    #
-    # testing update on env
-
-    assert_equal "val0", @engine.lookup_variable("v0", fei)
-
-    @engine.update_expression_data(
-      env.fei, { "v0" => "val0b", "v1" => "val1" })
-
-    assert_equal "val0b", @engine.lookup_variable("v0", fei)
-    assert_equal "val1", @engine.lookup_variable("v1", fei)
-
-    #
-    # testing update on participant expression
-
-    assert [ 1, 2 ], par.applied_workitem.attributes
-
-    @engine.update_expression_data par.fei, { 'f0' => 'val0' }
-
-    s = @engine.process_stack fei
-    par = s.find { |fexp| fexp.is_a?(OpenWFE::ParticipantExpression) }
-
-    assert_equal 'val0', par.applied_workitem.attributes['f0']
-
-    @engine.cancel_process fei.wfid
-
-    sleep 0.350
-  end
-
-  #
-  # TEST 1
-
-  class TestDefinition1 < OpenWFE::ProcessDefinition
-     sequence do
-       participant "alpha"
-       participant "bravo"
-     end
-  end
-
-  def test_1
-
-    %w{ alpha bravo charly }.each do |pname|
-      @engine.register_participant pname, OpenWFE::HashParticipant
-    end
-
-    fei = launch TestDefinition1
-
-    sleep 0.350
-
-    assert 1, @engine.get_participant("alpha").size
-    assert 0, @engine.get_participant("bravo").size
-    assert 0, @engine.get_participant("charly").size
-
-    ps = @engine.process_stack fei.wfid, true
-    #puts ps.collect { |fexp| fexp.to_yaml }.join("\n")
-
-    ebravo = ps.find { |fexp| fexp.fei.expid == '0.0.1' }
-    scharly = ebravo.to_yaml.gsub /bravo/, "charly"
-
-    @engine.update_expression(YAML.load(scharly))
-
-    wi = @engine.get_participant("alpha").first_workitem
-    @engine.get_participant("alpha").forward(wi)
-
-    sleep 0.350
-
-    assert 0, @engine.get_participant("alpha").size
-    assert 0, @engine.get_participant("bravo").size
-    assert 1, @engine.get_participant("charly").size
-
-    @engine.cancel_process fei.wfid
-
-    sleep 0.350
-  end
-
-  #
-  # TEST 2
-
-  class TestDefinition2 < OpenWFE::ProcessDefinition
-     sequence do
-       participant "alpha"
-       participant "alpha"
-       participant "charly"
-     end
-  end
-
-  def test_2
-
-    #log_level_to_debug
-
-    %w{ alpha bravo charly }.each do |pname|
-      @engine.register_participant pname, OpenWFE::HashParticipant
-    end
-
-    fei = launch TestDefinition2
-
-    sleep 0.350
-
-    ps = @engine.process_stack fei.wfid, true
-
-    s3fei = ps.find { |fexp| fexp.fei.expid == "0.0.1" }.fei
-
-    # update happens here
-
-    @engine.update_raw_expression s3fei, ["bravo", {}, []]
-
-    ps = @engine.process_stack fei.wfid, true
-
-    #p ps.representation
-
-    assert_equal(
-      ["process-definition", {"name"=>"Test", "revision"=>"2"}, [["sequence", {}, [["participant", {}, ["alpha"]], ["bravo", {}, []], ["participant", {}, ["charly"]]]]]],
-      ps.representation)
-
-    wi = @engine.get_participant("alpha").first_workitem
-    @engine.get_participant("alpha").forward(wi)
-
-    sleep 0.350
-
-    wi = @engine.get_participant("bravo").first_workitem
-    @engine.get_participant("bravo").forward(wi)
-
-    sleep 0.350
-
-    ps = @engine.process_stack fei.wfid, true
-
-    #puts
-    #ps.each do |fexp|
-    #  puts "== #{fexp.fei.to_short_s}"
-    #  p [ fexp.raw_representation, fexp.raw_rep_updated ]
-    #end
-    #puts
-
-    assert_equal(
-      ["process-definition", {"name"=>"Test", "revision"=>"2"}, [["sequence", {}, [["participant", {}, ["alpha"]], ["bravo", {"ref"=>"bravo"}, []], ["participant", {}, ["charly"]]]]]],
-      ps.representation)
-
-    # just to be sure
-
-    assert_equal 0, ps.find_all { |fexp| fexp.fei.expid == '0.0.1' }.size
-      # making sure the 2nd participant is over
-
-    #@engine.cancel_process fei
-    #sleep 0.350
-
-    purge_engine
-  end
-
-end
-