ruote 0.9.19 → 0.9.20

data/test/ft_22_history.rb

@@ -1,78 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Tue Jan  2 13:14:37 JST 2007
-#
-
-require 'flowtestbase'
-require 'openwfe/expool/history'
-require 'openwfe/def'
-
-
-class FlowTest22 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class TestDefinition0 < OpenWFE::ProcessDefinition
-    sequence do
-      _print "a"
-      _print "b"
-      participant "c"
-    end
-  end
-
-  def test_history_0
-
-    @engine.register_participant 'c' do
-      @tracer << "c\n"
-    end
-
-    @engine.init_service "history", OpenWFE::InMemoryHistory
-
-    history = @engine.application_context["history"]
-
-    dotest TestDefinition0, %w{ a b c }.join("\n")
-
-    #puts history.to_s
-    #puts history.entries.size()
-
-    #f = File.open("history.log", "w")
-    #f.write(history.to_s)
-    #f.close()
-
-    assert_equal 4, history.entries.size
-  end
-
-  def test_history_1
-
-    @engine.register_participant 'c' do
-      @tracer << "c\n"
-    end
-
-    @engine.init_service "history", OpenWFE::FileHistory
-
-    dotest TestDefinition0, %w{ a b c }.join("\n")
-
-    @engine.ac["history"].output_file.flush
-
-    linecount = File.open("work/history.log") do |f|
-      f.readlines.size
-    end
-
-    assert_equal 4, linecount
-  end
-
-end
-

data/test/ft_23_when.rb

@@ -1,77 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'rubygems'
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest23 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class TestDefinition0 < OpenWFE::ProcessDefinition
-    process_definition :name => "when0", :revision => "0" do
-      concurrence do
-        _when :test => "${v:done} == true", :frequency => "2s" do
-          _print "ok"
-        end
-        sequence do
-          _sleep "500"
-          _set :variable => "done", :value => "true"
-          _print "done"
-        end
-      end
-    end
-  end
-
-  def test_0
-
-    dotest TestDefinition0, "done\nok"
-  end
-
-  #
-  # Test 1
-  #
-
-  class TestWhen1 < OpenWFE::ProcessDefinition
-    concurrence do
-      _when :frequency => "2s" do
-        sequence do
-          #reval "puts '___ equals : ' + fei.wfid"
-          _equals :value => "${done}", :other_value => "true"
-        end
-        sequence do
-          #reval "puts '___ consequence : ' + fei.wfid"
-          _print "ok"
-        end
-      end
-      sequence do
-        _sleep "500"
-        _set :variable => "done", :value => "true"
-        _print "done"
-      end
-    end
-  end
-
-  def test_1
-
-    dotest TestWhen1, "done\nok"
-  end
-
-end
-

data/test/ft_23b_when.rb

@@ -1,70 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest23b < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class TestWhen23b0 < OpenWFE::ProcessDefinition
-    process_definition :name => "23b_when0", :revision => "0" do
-      concurrence do
-        _when :test => "false == true", :timeout => "1s500" do
-          _print "la vaca vuela"
-        end
-        _print "ok"
-      end
-    end
-  end
-
-  #
-  # Testing if the conditional _when got correctly unscheduled.
-  #
-  def test_0
-
-    #log_level_to_debug
-
-    dotest TestWhen23b0, "ok"
-  end
-
-
-  #
-  # Test 1
-  #
-
-  class TestWhen23b1 < OpenWFE::ProcessDefinition
-    concurrence do
-      _when :test => "true == true" do
-      end
-      _print "ok"
-    end
-  end
-
-  #
-  # Testing an empty _when
-  #
-  def test_1
-
-    #log_level_to_debug
-
-    dotest TestWhen23b1, "ok"
-  end
-
-end
-

data/test/ft_23c_wait.rb

@@ -1,80 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest23c < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class Wait0c < OpenWFE::ProcessDefinition
-    sequence do
-      concurrence do
-        sequence do
-          wait :until => "${done} == true", :frequency => "500"
-          _print "after wait"
-        end
-        sequence do
-          _sleep "200"
-          _print "before done"
-          _set :variable => "done", :value => "true"
-        end
-      end
-      _print "over"
-    end
-  end
-
-  def test_0
-
-    #log_level_to_debug
-
-    dotest Wait0c, [ 'before done', 'after wait', 'over' ].join("\n")
-  end
-
-  #
-  # Test 1
-  #
-
-  class Wait1c < OpenWFE::ProcessDefinition
-    sequence do
-      concurrence do
-        sequence do
-          wait :frequency => "500" do
-            equals :variable_value => "done", :other_value => "true"
-          end
-          _print "after wait"
-        end
-        sequence do
-          _sleep "200"
-          _print "before done"
-          _set :variable => "done", :value => "true"
-        end
-      end
-      _print "over"
-    end
-  end
-
-  def test_1
-
-    #log_level_to_debug
-
-    dotest Wait1c, [ 'before done', 'after wait', 'over' ].join("\n")
-  end
-
-end
-

data/test/ft_23d_cww.rb

@@ -1,58 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-# Tue Apr  8 12:59:05 JST 2008
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest23d < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class Test0 < OpenWFE::ProcessDefinition
-    concurrence do
-      _when :test => "false == true", :timeout => "1s500" do
-        _print "la vaca vuela"
-      end
-      _print "ok"
-    end
-  end
-
-  #
-  # Testing if the conditional _when got correctly unscheduled.
-  #
-  def test_0
-
-    #log_level_to_debug
-
-    fei = launch Test0
-
-    sleep 0.350
-
-    #puts @engine.get_expression_storage
-    assert_equal 6, @engine.get_expression_storage.size
-
-    @engine.cancel_process fei
-
-    sleep 0.350
-
-    assert_equal 1, @engine.get_expression_storage.size
-  end
-
-end
-

data/test/ft_24_def.rb

@@ -1,44 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'rubygems'
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-#
-# just testing the
-#
-#   require 'openwfe/def'
-#
-# shortcut
-#
-
-class FlowTest24 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  #
-  # Test 0
-  #
-
-  class TestDefinition0 < OpenWFE::ProcessDefinition
-    _print "ok"
-  end
-
-  def test_0
-
-    dotest TestDefinition0, "ok"
-  end
-
-end
-

data/test/ft_25_cancel.rb

@@ -1,92 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Mon Oct  9 22:19:44 JST 2006
-#
-
-require 'rubygems'
-
-require 'openwfe/def'
-require 'flowtestbase'
-
-
-class FlowTest25 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def teardown
-  #end
-
-  #def setup
-  #end
-
-  #
-  # TEST 0
-
-  def test_cancel_0
-
-    #log_level_to_debug
-
-    dotest(
-      '''
-<process-definition name="25_cancel" revision="0">
-  <sequence>
-    <print>before</print>
-    <cancel-process/>
-    <print>after</print>
-  </sequence>
-</process-definition>
-      '''.strip,
-      "before",
-      0.400)
-  end
-
-
-  #
-  # TEST 1
-
-  class TestDefinition1 < OpenWFE::ProcessDefinition
-    def make
-      _process_definition :name => "25_cancel", :revision => "1" do
-        _sequence do
-          _print "before"
-          _cancel_process
-          _print "after"
-        end
-      end
-    end
-  end
-
-  def test_1
-
-    dotest(
-      TestDefinition1,
-      "before",
-      0.500)
-  end
-
-
-  #
-  # TEST 2
-
-  class TestDefinition2 < OpenWFE::ProcessDefinition
-    def make
-      _process_definition :name => "25_cancel", :revision => "2" do
-        _sequence do
-          _print "before"
-          _cancel_process :if => "false"
-          _print "after"
-        end
-      end
-    end
-  end
-
-  def test_2
-
-    dotest TestDefinition2, "before\nafter"
-  end
-
-end
-