ruote 0.9.19 → 0.9.20

data/test/functional/eft_2_sequence.rb

@@ -0,0 +1,47 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Sat Jan 24 22:40:35 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftSequenceTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  class Test0 < OpenWFE::ProcessDefinition
+    sequence do
+    end
+  end
+  def test_empty_sequence
+    assert_trace(Test0, '')
+  end
+
+  def test_a_b_sequence
+    assert_trace(
+      OpenWFE.process_definition(:name => 'test_1') {
+        sequence do
+          echo 'a'
+          echo 'b'
+        end
+      },
+      "a\nb")
+  end
+
+  def test_a_b_sequence_xml
+    assert_trace(%{
+<process-definition name="test">
+  <sequence>
+    <echo>a</echo>
+    <echo>b</echo>
+  </sequence>
+</process-definition>
+      },
+      "a\nb")
+  end
+end
+

data/test/functional/eft_3_equals.rb

@@ -0,0 +1,98 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Sun Jan 25 15:30:58 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftEqualsTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_equality
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        equals :value => 'a', :other_value => 'a'
+        echo '${f:__result__}'
+      end
+    end
+
+    assert_trace(pdef, 'true')
+  end
+
+  def test_non_equality
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        equals :value => 'a', :other_value => 'b'
+        echo '${f:__result__}'
+      end
+    end
+
+    assert_trace(pdef, 'false')
+  end
+
+  def test_variable_equals
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+
+        set :variable => 'v0', :value => 'v'
+
+        equals :variable_value => 'v0', :other_value => 'v'
+        echo '${f:__result__}'
+
+        equals :var_value => 'v0', :other_value => 'v'
+        echo '${f:__result__}'
+
+        equals :variable => 'v0', :other_value => 'v'
+        echo '${f:__result__}'
+
+        equals :var => 'v0', :other_value => 'v'
+        echo '${f:__result__}'
+
+        equals :v => 'v0', :val => 'v'
+        echo '${f:__result__}'
+      end
+    end
+
+    assert_trace(
+      pdef,
+      ([ 'true' ] * 5).join("\n"))
+  end
+
+  def test_field_equals
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+
+        set :field => 'f0', :value => 'val0'
+
+        equals :field_value => 'f0', :other_value => 'val0'
+        echo '${f:__result__}'
+
+        equals :f_value => 'f0', :other_value => 'val0'
+        echo '${f:__result__}'
+
+        equals :field => 'f0', :other_value => 'val0'
+        echo '${f:__result__}'
+
+        equals :field => 'f0', :value => 'val0'
+        echo '${f:__result__}'
+
+        equals :f => 'f0', :other_value => 'val0'
+        echo '${f:__result__}'
+      end
+    end
+
+    assert_trace(
+      pdef,
+      ([ 'true' ] * 5).join("\n"))
+  end
+end
+

data/test/functional/eft_4_if.rb

@@ -0,0 +1,96 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Sun Jan 25 15:36:25 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftIfTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_if_then
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      _if do
+        equals :value => 'a', :other_value => 'a'
+        echo 'ok'
+      end
+    end
+
+    assert_trace(pdef, 'ok')
+  end
+
+  def test_if_else
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      _if do
+        equals :value => 'a', :other_value => 'b'
+        echo 'ok'
+      end
+    end
+
+    assert_trace(pdef, '')
+  end
+
+  def test_if_not_else
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      _if do
+        equals :value => 'a', :other_value => 'a'
+        echo 'ok'
+        echo 'nok'
+      end
+    end
+
+    assert_trace(pdef, 'ok')
+  end
+
+  def test_if_not_then
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      _if do
+        equals :value => 'a', :other_value => 'b'
+        echo 'nok'
+        echo 'ok'
+      end
+    end
+
+    assert_trace(pdef, 'ok')
+  end
+
+  def test_if_misc
+
+    assert_trace(%{
+<process-definition name="test">
+  <sequence>
+    <if test="3 > 2">
+      <echo>ok0</echo>
+    </if>
+    <if test="3 > a">
+      <echo>bad</echo>
+      <echo>ok1</echo>
+    </if>
+    <if test="3>a">
+      <echo>bad</echo>
+      <echo>ok2</echo>
+    </if>
+    <if test="3 &gt; 2">
+      <echo>ok3</echo>
+      <echo>bad</echo>
+    </if>
+    <if test="1 &lt; 2.0">
+      <echo>ok4</echo>
+      <echo>bad</echo>
+    </if>
+  </sequence>
+</process-definition>
+      },
+      (0..4).collect { |i| "ok#{i}" }.join("\n"))
+  end
+end
+

data/test/functional/eft_5_eval.rb

@@ -0,0 +1,89 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Tue Nov 20 21:46:30 JST 2007
+#
+
+require File.dirname(__FILE__) + '/base'
+
+require 'json'
+
+
+class EftEvalTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_no_eval
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      _eval '_print "1"'
+    end
+
+    fei = @engine.launch(pdef)
+    wait(fei)
+
+    ps = @engine.process_status(fei.wfid)
+
+    assert_equal(
+      1,
+      ps.errors.size)
+    assert_equal(
+      'dynamic evaluation of process definitions is not allowed',
+      ps.errors.values.first.stacktrace)
+
+    purge_engine
+  end
+
+  def test_eval_text
+
+    @engine.application_context[:dynamic_eval_allowed] = true
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+
+        _eval '_print "a"'
+        _eval '<print>b</print>'
+        _eval '["print",{},["c"]]'
+
+        #_eval ["print",{},["d"]] # NO
+      end
+    end
+
+    assert_trace(pdef, %w{ a b c }.join("\n"))
+  end
+
+  def test_eval_field
+
+    @engine.application_context[:dynamic_eval_allowed] = true
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        set :field => 'f', :value => ["print",{},["a"]]
+        _eval :field_def => 'f'
+      end
+    end
+
+    assert_trace(pdef, %w{ a }.join("\n"))
+  end
+
+  def test_eval_participant_name
+
+    @engine.application_context[:dynamic_eval_allowed] = true
+
+    @engine.register_participant :fox do |fexp, wi|
+      @tracer << "f\n"
+    end
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        _eval :def => 'fox'
+        _eval 'fox'
+      end
+    end
+
+    assert_trace(pdef, %w{ f f }.join("\n"))
+  end
+end
+

data/test/functional/eft_6_reval.rb

@@ -0,0 +1,101 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Sun Jan 25 17:05:36 JST 2009
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftRevalTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_no_reval
+
+    @engine.application_context[:ruby_eval_allowed] = false
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      reval '1 + 1'
+    end
+
+    fei = @engine.launch(pdef)
+    wait(fei)
+
+    ps = @engine.process_status(fei.wfid)
+
+    assert_equal(
+      1,
+      ps.errors.size)
+    assert_equal(
+      'evaluation of ruby code is not allowed',
+      ps.errors.values.first.stacktrace)
+
+    purge_engine
+  end
+
+  def test_reval_text
+
+    @engine.application_context[:ruby_eval_allowed] = true
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        reval %{
+          workitem.fields['from_ruby'] = 'true'
+        }
+        _print "${f:from_ruby}"
+      end
+    end
+
+    assert_trace(pdef, 'true')
+  end
+
+  def test_reval_code
+
+    @engine.application_context[:ruby_eval_allowed] = true
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        reval :code => "workitem.fields['from_ruby'] = 'true'"
+        _print "${f:from_ruby}"
+      end
+    end
+
+    assert_trace(pdef, 'true')
+  end
+
+  def test_reval_return
+
+    @engine.application_context[:ruby_eval_allowed] = true
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        set :field => 'f0' do
+          reval '1 + 2'
+        end
+        echo '${f:f0}'
+      end
+    end
+
+    assert_trace(pdef, '3')
+  end
+
+  def test_reval_field
+
+    @engine.application_context[:ruby_eval_allowed] = true
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        set :field => 'f0', :value => '1 + 2'
+        echo do
+          reval :field_code => 'f0'
+        end
+      end
+    end
+
+    assert_trace(pdef, '3')
+  end
+end
+

data/test/functional/eft_7_exp.rb

@@ -0,0 +1,47 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Sat Jan  5 22:57:53 JST 2008
+#
+
+require File.dirname(__FILE__) + '/base'
+
+
+class EftExpTest < Test::Unit::TestCase
+  include FunctionalBase
+
+  def test_exp
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      exp :name => 'sequence' do
+        echo 'a'
+        echo 'b'
+      end
+    end
+
+    assert_trace(pdef, "a\nb")
+  end
+
+  def test_exp_1
+
+    @engine.register_participant :alpha do
+      @tracer << "alpha\n"
+    end
+
+    pdef = OpenWFE.process_definition :name => 'test' do
+      sequence do
+        exp :name => 'alpha'
+        exp :name => 'sub0'
+      end
+      process_definition :sub0 do
+        echo 'sub0'
+      end
+    end
+
+    assert_trace(pdef, "alpha\nsub0")
+  end
+end
+