ruote 0.9.19 → 0.9.20

data/test/functional/eft_12_wait.rb

@@ -0,0 +1,57 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Tue Feb 24 21:25:58 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftWaitTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_wait_until
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      concurrence do
+        sequence do
+          wait :until => '${done} == true', :frequency => '500'
+          echo 'a'
+        end
+        sequence do
+          _sleep '350'
+          echo 'b'
+          set :var => 'done', :val => 'true'
+        end
+      end
+    end
+
+    assert_trace(pdef, "b\na")
+  end
+
+  def test_wait_equal
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      concurrence do
+        sequence do
+          wait :frequency => '500' do
+            equals :var => 'done', :val => 'true'
+          end
+          echo 'a'
+        end
+        sequence do
+          _sleep '350'
+          echo 'b'
+          set :var => 'done', :val => 'true'
+        end
+      end
+    end
+
+    assert_trace(pdef, "b\na")
+  end
+
+end
+

data/test/functional/eft_13_cursor.rb

@@ -0,0 +1,139 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Thu Mar 12 10:59:47 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftCursorTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_cursor
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      cursor do
+        echo 'a'
+        echo 'b'
+      end
+    end
+    assert_trace(pdef, "a\nb")
+  end
+
+  def test_cursor_break
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        cursor do
+          echo 'a'
+          _break
+          echo 'b'
+        end
+        echo 'c'
+      end
+    end
+    assert_trace(pdef, "a\nc")
+  end
+
+  def test_cursor_skip
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        cursor do
+          echo 'a'
+          skip :step => 2
+          echo 'b'
+        end
+        echo 'c'
+      end
+    end
+    assert_trace(pdef, "a\nc")
+  end
+
+  def test_cursor_back
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      cursor do
+        echo 'a'
+        skip 3
+        echo 'b'
+        skip 2
+        back 2
+        echo 'c'
+      end
+    end
+    assert_trace(pdef, "a\nb\nc")
+  end
+
+  def test_cursor_rewind
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      cursor do
+        echo 'a'
+        bravo
+        echo 'c'
+      end
+    end
+
+    counter = 0
+
+    @engine.register_participant 'bravo' do |workitem|
+      counter = counter + 1
+      workitem.__cursor_command__ = 'rewind' unless counter > 2
+    end
+
+    assert_trace(pdef, "a\na\na\nc")
+  end
+
+  def test_cursor_break_if
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      cursor :break_if => '${f:rejected}' do
+        alpha
+        alpha
+        alpha
+        alpha # will get forgotten
+      end
+    end
+
+    counter = 0
+
+    @engine.register_participant 'alpha' do |workitem|
+      @tracer << counter.to_s
+      workitem.rejected = (counter == 2)
+      counter = counter + 1
+    end
+
+    assert_trace(pdef, '012')
+  end
+
+  def test_cursor_break_unless
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        set :f => 'accepted', :val => true
+        cursor :break_unless => '${f:accepted}' do
+          alpha
+          alpha
+          alpha
+          alpha # will get forgotten
+        end
+      end
+    end
+
+    counter = 0
+
+    @engine.register_participant 'alpha' do |workitem|
+      @tracer << counter.to_s
+      workitem.accepted = (counter != 2)
+      counter = counter + 1
+    end
+
+    assert_trace(pdef, '012')
+  end
+end
+

data/test/functional/eft_14_loop.rb

@@ -0,0 +1,36 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Thu Mar 12 12:45:07 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftLoopTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_loop
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      repeat do # repeat is an alias to loop
+        echo 'a'
+        echo 'b'
+        final
+      end
+    end
+
+    counter = 0
+
+    @engine.register_participant 'final' do |workitem|
+      counter = counter + 1
+      workitem.__cursor_command__ = 'break' if counter > 3
+    end
+
+    assert_trace(pdef, (%w{ a b } * 4).join("\n"))
+  end
+end
+

data/test/functional/eft_15_undo.rb

@@ -0,0 +1,77 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Fri Mar 13 15:02:22 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftUndoTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_undo
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      concurrence do
+        sequence :tag => 'seq0' do
+          echo 'a'
+          wait '1s'
+          echo 'b'
+        end
+        undo :ref => 'seq0'
+      end
+    end
+    assert_trace(pdef, 'a')
+  end
+
+  def test_undo_shorter
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      concurrence do
+        sequence :tag => 'seq0' do
+          echo 'a'
+          wait '1s'
+          echo 'b'
+        end
+        undo 'seq0'
+      end
+    end
+    assert_trace(pdef, 'a')
+  end
+
+  def test_undo_within
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      concurrence do
+        sequence :tag => 'seq0' do
+          echo 'a'
+          undo :ref => 'seq0'
+          echo 'b'
+        end
+      end
+    end
+    assert_trace(pdef, 'a')
+  end
+
+  def test_undo_conditional
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      concurrence do
+        sequence :tag => 'seq0' do
+          echo 'a'
+          undo :ref => 'seq0', :if => '${field:over}'
+          echo 'b'
+          set :f => 'over', :val => true
+          undo :ref => 'seq0', :if => '${field:over}'
+          echo 'c'
+        end
+      end
+    end
+    assert_trace(pdef, "a\nb")
+  end
+end
+

data/test/functional/eft_16_redo.rb

@@ -0,0 +1,88 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Fri Mar 13 15:33:03 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftRedoTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_redo
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      concurrence do
+        sequence :tag => 'seq0' do
+          echo 'a'
+          wait '010'
+          echo 'b'
+        end
+        _redo :ref => 'seq0'
+      end
+    end
+    assert_trace(pdef, "a\na\nb")
+  end
+
+  def test_redo_conditional
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      concurrence do
+        sequence :tag => 'seq0' do
+          echo 'a'
+          wait '010'
+          echo 'b'
+        end
+        _redo :ref => 'seq0', :if => '${f:redo}'
+      end
+    end
+
+    li = OpenWFE::LaunchItem.new(pdef)
+    assert_trace(li, "a\nb", :no_purge => true)
+
+    @tracer.clear
+
+    li = OpenWFE::LaunchItem.new(pdef)
+    li.redo = true
+    assert_trace(li, "a\na\nb")
+  end
+
+  def test_redo_multiple_times
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      concurrence do
+        sequence :tag => 'seq0' do
+          echo 'a'
+          wait '010'
+          echo 'b'
+        end
+        sequence do
+          _redo :ref => 'seq0'
+          _redo :ref => 'seq0'
+        end
+      end
+    end
+    assert_trace(pdef, %w{ a a a b }.join("\n"))
+  end
+
+  #def test_redo_after
+  #  pdef = OpenWFE.process_definition :name => 'test' do
+  #    concurrence do
+  #      sequence :tag => '/seq0' do
+  #        echo 'a'
+  #        echo 'b'
+  #      end
+  #      sequence do
+  #        wait '010'
+  #        _redo :ref => 'seq0'
+  #      end
+  #    end
+  #  end
+  #  assert_trace(pdef, %w{ a b a b }.join("\n"))
+  #end
+end
+

data/test/functional/eft_1_print.rb

@@ -0,0 +1,57 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Sat Sep 20 23:40:10 JST 2008
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftPrintTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  class Test0 < OpenWFE::ProcessDefinition
+    _print 'a'
+  end
+
+  def test_print
+    assert_trace(Test0, 'a')
+  end
+
+  def test_print_xml
+    assert_trace(%{
+<process-definition name="test"><print>b</print></process-definition>
+      },
+      'b')
+  end
+
+  def test_print_escape
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        set :v => 'toto', :value => 'otot'
+        echo '${toto}', :escape => 'true'
+        echo '${toto}', :escape => true
+        echo :escape => true do
+          '${toto}'
+        end
+      end
+    end
+
+    assert_trace(
+      pdef,
+      ([ '${toto}' ] * 3).join("\n"))
+  end
+
+  def test_echo
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      echo 'Prokofief'
+    end
+    assert_trace(pdef, 'Prokofief')
+  end
+end
+