ruote 0.9.19 → 0.9.20

data/test/functional/ft_8_dollar.rb

@@ -0,0 +1,53 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Fri Feb 27 23:18:40 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class FtDollarTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_field_default_value
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+
+      set_fields :value => { 'a' => 'f:a', 'b' => 'f:b', 'd' => 2 }
+
+      sequence do
+
+        set :var => 'a', :val => 'v:a'
+        set :var => 'c', :val => 'v:c'
+
+        echo '${f:a}'
+        echo '${v:a}'
+
+        echo '${field:a}'
+        echo '${variable:a}'
+
+        echo '${vf:a}'
+        echo '${fv:a}'
+
+        echo '${vf:b}'
+        echo '${fv:b}'
+        echo '${vf:c}'
+        echo '${fv:c}'
+
+        echo '${r:1+2}'
+        echo '${ru:4+3}'
+
+        echo '${r:wi.d * 2}'
+        echo '${r:workitem.d * 3}'
+      end
+    end
+
+    assert_trace(
+      pdef, %w{ f:a v:a f:a v:a v:a f:a f:b f:b v:c v:c 3 7 4 6 }.join("\n"))
+  end
+end
+

data/test/functional/ft_9_register_participants.rb

@@ -0,0 +1,119 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Wed Mar 11 13:02:17 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class FtRegisterParticipantsTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  #
+  # some preparation...
+
+  PDEF0 = OpenWFE.process_definition 'test' do
+    sequence do
+      alpha
+      echo '${f:reply}'
+    end
+  end
+
+  class AaParticipant
+    include OpenWFE::LocalParticipant
+
+    def consume (workitem)
+      workitem.reply = 'alright'
+      reply_to_engine(workitem)
+    end
+  end
+
+  class BbParticipant
+    include OpenWFE::LocalParticipant
+
+    def initialize (opts)
+      @message = opts[:message]
+    end
+    def consume (workitem)
+      workitem.reply = @message
+      reply_to_engine(workitem)
+    end
+  end
+
+  class CcParticipant
+    include OpenWFE::LocalParticipant
+
+    def consume (workitem)
+      workitem.reply = 'clright'
+      reply_to_engine(workitem)
+    end
+  end
+
+  #
+  # the tests...
+
+  def test_register_block
+
+    @engine.register_participant 'alpha' do |workitem|
+      @tracer << "ok\n"
+    end
+
+    assert_trace(PDEF0, 'ok')
+  end
+
+  def test_register_class
+
+    @engine.register_participant 'alpha', AaParticipant
+
+    assert_trace(PDEF0, 'alright')
+  end
+
+  def test_register_class_with_options
+
+    @engine.register_participant(
+      'alpha', BbParticipant, { :message => 'blright' })
+
+    assert_trace(PDEF0, 'blright')
+  end
+
+  def test_register_instance
+
+    @engine.register_participant 'alpha', CcParticipant.new
+
+    assert_trace(PDEF0, 'clright')
+  end
+
+  #
+  # about bug #24471
+  #
+  def test_participant_with_underscore
+
+    pdef = OpenWFE.process_definition 'test' do
+      sequence do
+        a_process
+        b_process
+        c_process
+        #participant 'a-process' <-- error : no participant 'a-process'
+        #participant 'b-process' <-- error : no participant 'b-process'
+        participant 'c-process'
+      end
+    end
+
+    @engine.register_participant 'a_process' do |workitem|
+      @tracer << "a\n"
+    end
+    @engine.register_participant :b_process do |workitem|
+      @tracer << "b\n"
+    end
+    @engine.register_participant 'c-process' do |workitem|
+      @tracer << "c\n"
+    end
+
+    assert_trace(pdef, %w{ a b c c }.join("\n"))
+  end
+end
+

data/test/functional/restart_base.rb

@@ -0,0 +1,43 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Wed Feb  4 10:16:34 JST 2009
+#
+
+require 'openwfe/engine'
+
+$in_memory_engine = false
+
+module RestartBase
+
+  def in_memory_engine
+
+    return true if $in_memory_engine
+    return false unless @engine.class == OpenWFE::Engine
+
+    $in_memory_engine = true
+
+    puts
+    puts "  skipping restart (rft_) tests : in-memory engine"
+    puts
+
+    true
+  end
+
+  def restart_engine
+
+    ac = {
+      '__tracer' => @tracer,
+      :persist_as_yaml => @engine.ac[:persist_as_yaml],
+      :no_expstorage_cache => @engine.ac[:no_expstorage_cache]
+    }
+
+    @engine = @engine.class.new(ac)
+
+    @engine.reload # very important
+  end
+end
+

data/test/functional/rft_0_sleep.rb

@@ -0,0 +1,76 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Wed Feb  4 10:10:54 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+require File.dirname(__FILE__) + '/restart_base'
+
+
+class RftSleepTest < Test::Unit::TestCase
+  include FunctionalBase
+  include RestartBase
+
+  PDEF0 = OpenWFE.process_definition :name => 'test' do
+    sequence do
+      echo 'a'
+      _sleep '2s'
+      echo 'b'
+    end
+  end
+
+  def test_sleep_restarts_at_wakeup
+
+    in_memory_engine && return
+
+    @engine.launch(PDEF0)
+
+    sleep 1
+
+    @engine.stop
+
+    assert_equal 'a', @tracer.to_s
+
+    sleep 2
+
+    assert_equal 'a', @tracer.to_s
+
+    restart_engine
+
+    sleep 0.350
+
+    assert_equal "a\nb", @tracer.to_s
+
+    assert_engine_clean
+  end
+
+  def test_sleep_restarts_after_wakeup
+
+    in_memory_engine && return
+
+    @engine.launch(PDEF0)
+
+    sleep 0.500
+
+    @engine.stop
+
+    assert_equal 'a', @tracer.to_s
+
+    restart_engine
+
+    sleep 0.350
+
+    assert_equal 'a', @tracer.to_s
+
+    sleep 1.500
+
+    assert_equal "a\nb", @tracer.to_s
+
+    assert_engine_clean
+  end
+end
+

data/test/functional/test.rb

@@ -0,0 +1,24 @@
+
+#
+# testing Ruote
+#
+# since Mon Oct  9 22:19:44 JST 2006
+#
+
+dirpath = File.dirname(__FILE__)
+
+# TODO : rft_ as well...
+
+efts = Dir.new(dirpath).entries.select { |e| e.match(/^eft\_.*\.rb$/) }.sort
+  # functional tests targetting specifing expressions
+
+fts = Dir.new(dirpath).entries.select { |e| e.match(/^ft\_.*\.rb$/) }.sort
+  # functional tests targetting features rather than expressions
+
+tests = efts + fts
+
+tests.each { |e| load "#{dirpath}/#{e}" }
+
+#tests.each { |e| puts `ruby #{dirpath}/#{e}` }
+  # making sure that each test is runnable standalone
+

data/test/path_helper.rb

@@ -0,0 +1,12 @@
+
+#
+# testing Ruote
+#
+# since Mon Oct  9 22:19:44 JST 2006
+#
+
+# making sure the tests see ruote
+
+ruotelib = File.expand_path(File.dirname(__FILE__) + '/../lib')
+$:.unshift(ruotelib) unless $:.include?(ruotelib)
+

data/test/test.rb

@@ -1,3 +1,13 @@
 
-require 'rake_qtest'
+#
+# testing Ruote
+#
+# since Mon Oct  9 22:19:44 JST 2006
+#
+
+load File.dirname(__FILE__) + '/unit/test.rb'
+load File.dirname(__FILE__) + '/functional/test.rb'
+
+#load File.dirname(__FILE__) + '/extras/test.rb'
+  # special tests that require external stuff
 

data/test/{rutest_utils.rb → test_helper.rb}

@@ -1,42 +1,19 @@
+
 #
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
+# testing Ruote
 #
-# Mon Oct  9 22:19:44 JST 2006
+# since Mon Oct  9 22:19:44 JST 2006
 #
 
-require 'openwfe/version'
-
-
-class Tracer
-
-  def initialize
-    super
-    @trace = ""
-  end
+require File.dirname(__FILE__) + '/path_helper'
 
-  def to_s
-    @trace.to_s.strip
-  end
-
-  def << s
-    @trace << s
-  end
-
-  def clear
-    @trace = ""
-  end
-
-  def puts s
-    @trace << "#{s}\n"
-  end
-end
+require 'test/unit'
+require 'rubygems'
 
 #
 # Returns a new FlowExpressionId, for testing purposes
 #
-def new_fei
+def new_fei (wfid='20080919-equestris')
 
   fei = OpenWFE::FlowExpressionId.new
 
@@ -46,7 +23,7 @@ def new_fei
   fei.workflow_definition_url = 'http://test/test.xml'
   fei.workflow_definition_name = 'test'
   fei.workflow_definition_revision = '1.0'
-  fei.workflow_instance_id = '123456'
+  fei.workflow_instance_id = wfid
   fei.expression_name = 'do-test'
   fei.expression_id = '0.0'
 

data/test/unit/test.rb

@@ -0,0 +1,19 @@
+
+#
+# testing Ruote
+#
+# since Mon Oct  9 22:19:44 JST 2006
+#
+
+dirpath = File.dirname(__FILE__)
+
+uts = Dir.new(dirpath).entries.select { |e| e.match(/^ut\_.*\.rb$/) }.sort
+huts = Dir.new(dirpath).entries.select { |e| e.match(/^hut\_.*\.rb$/) }.sort
+
+tests = uts + huts
+
+tests.each { |e| load "#{dirpath}/#{e}" }
+
+#tests.each { |e| puts `ruby #{dirpath}/#{e}` }
+  # making sure that each test is runnable standalone
+

data/test/{fei_test.rb → unit/ut_0_fei.rb}

@@ -1,28 +1,20 @@
 
 #
-# Testing OpenWFE
+# Testing Ruote (OpenWFEru)
 #
 # John Mettraux at openwfe.org
 #
 # Mon Oct  9 22:19:44 JST 2006
 #
 
-require 'test/unit'
-require 'rutest_utils'
-#require 'openwfe/owfe'
-require 'openwfe/workitem'
+require File.dirname(__FILE__) + '/../test_helper.rb'
+
 require 'openwfe/flowexpressionid'
 require 'openwfe/rudefinitions'
 
 
 class FeiTest < Test::Unit::TestCase
 
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
   def test_equality
 
     fei1 = new_fei()
@@ -30,16 +22,16 @@ class FeiTest < Test::Unit::TestCase
 
     assert \
       fei1.object_id != fei2.object_id, \
-      "feis are not two distinct feis"
+      'feis are not two distinct feis'
     assert \
       fei1.hash == fei2.hash, \
-      "feis do not have the same hash"
+      'feis do not have the same hash'
     assert \
       fei1 == fei2, \
-      "feis are not equals (==)"
+      'feis are not equals (==)'
     assert \
       fei1.eql?(fei2), \
-      "feis are not equals (eql?)"
+      'feis are not equals (eql?)'
   end
 
   def test_inequality
@@ -51,16 +43,16 @@ class FeiTest < Test::Unit::TestCase
 
     assert \
       fei1.object_id != fei2.object_id, \
-      "feis are not two distinct feis"
+      'feis are not two distinct feis'
     assert \
       fei1.hash != fei2.hash, \
-      "feis do have the same hash"
+      'feis do have the same hash'
     assert \
       fei1 != fei2, \
-      "feis are equals (==)"
+      'feis are equals (==)'
     assert \
       (not fei1.eql?(fei2)), \
-      "feis are equals (eql?)"
+      'feis are equals (eql?)'
   end
 
   def test_in_hash
@@ -78,31 +70,29 @@ class FeiTest < Test::Unit::TestCase
 
     assert \
       h.size() == 1,
-      "h should have one entry"
+      'h should have one entry'
     assert \
       h[fei1] == h[fei2],
-      "both keys should point to the same thing"
-    assert \
-      h[fei1] == 'two',
-      "value should be 'two' (fei1)"
-    assert \
-      h[fei2] == 'two',
-      "value should be 'two' (fei2)"
+      'both keys should point to the same thing'
+
+    assert_equal 'two', h[fei1], 'value should be \'two\' (fei1)'
+    assert_equal 'two', h[fei2], 'value should be \'two\' (fei2)'
   end
 
   def test_dup
+
     fei0 = new_fei()
     fei1 = fei0.dup()
 
     assert \
       fei0 == fei1,
-      "feis should be equal"
+      'feis should be equal'
 
     fei1.expression_name = OpenWFE::EN_ENVIRONMENT
 
     assert \
       fei0 != fei1,
-      "feis should not be equal"
+      'feis should not be equal'
   end
 
   def test_parse_unparse
@@ -121,21 +111,17 @@ class FeiTest < Test::Unit::TestCase
 
     fei = new_fei
 
-    assert \
-      fei.parent_workflow_instance_id == "123456",
-      "failure 0"
+    assert_equal '20080919-equestris', fei.parent_workflow_instance_id
 
-    fei.workflow_instance_id = "123456.0.0"
+    fei.workflow_instance_id = '123456.0.0'
 
-    assert \
-      fei.parent_workflow_instance_id == "123456",
-      "failure 1"
+    assert_equal '123456', fei.parent_workflow_instance_id
   end
 
   def test_initial_engine_id_deprecation
 
-    s0 = "(fei 0.9.16 this/that http://test/test.xml test 1.0 123456 do-test 0.0)"
-    s1 = "(fei 0.9.16 this http://test/test.xml test 1.0 123456 do-test 0.0)"
+    s0 = '(fei 0.9.16 this/that http://test/test.xml test 1.0 123456 do-test 0.0)'
+    s1 = '(fei 0.9.16 this http://test/test.xml test 1.0 123456 do-test 0.0)'
 
     fei0 = OpenWFE::FlowExpressionId.from_s s0
     fei1 = OpenWFE::FlowExpressionId.from_s s1
@@ -153,11 +139,11 @@ class FeiTest < Test::Unit::TestCase
 
   def test_web_s
 
-    s1 = "(fei 0.9.16 eng http://test/test.xml test 1.0 123456 do-test 0.0)"
+    s1 = '(fei 0.9.16 eng http://test/test.xml test 1.0 123456 do-test 0.0)'
     fei1 = OpenWFE::FlowExpressionId.from_s s1
 
     assert_equal(
-      [ "123456", "0.0" ],
+      [ '123456', '0.0' ],
       OpenWFE::FlowExpressionId.split_web_s(fei1.to_web_s))
   end
 
@@ -167,15 +153,14 @@ class FeiTest < Test::Unit::TestCase
     assert_equal fei, OpenWFE::FlowExpressionId.from_h(fei.to_h)
   end
 
-  protected
-
-    def puts_hash (h)
-      puts
-      h.each do |k, v|
-        puts "   * '#{k.to_debug_s}' --> '#{v}'"
-      end
-      puts
-    end
+  #protected
+  #def puts_hash (h)
+  #  puts
+  #  h.each do |k, v|
+  #    puts "   * '#{k.to_debug_s}' --> '#{v}'"
+  #  end
+  #  puts
+  #end
 
 end