ruote 0.9.19 → 0.9.20

data/test/unit/ut_10_lookup_attribute.rb

@@ -0,0 +1,86 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# since Mon Oct  9 22:19:44 JST 2006
+#
+
+require File.dirname(__FILE__) + '/../test_helper.rb'
+
+require 'openwfe/utils'
+
+
+class LookupAttributeTest < Test::Unit::TestCase
+
+  def test_0
+
+    l0 = [
+      {'name'=>'companyA','DunsNr' => 'JGE4753'},
+      {'name'=>'companyB','DunsNr' => 'ZUTE8555'},
+      {'name'=>'companyC','DunsNr' => 'GTI6775'},
+      {'name'=>'companyD','DunsNr' => 'XUE6755'}
+    ]
+    h0 = { 'supplierList' => l0 }
+
+    do_lookup_test(
+      h0, 'supplierList', l0)
+    do_lookup_test(
+      h0, 'supplierList.1', {'name'=>'companyB','DunsNr' => 'ZUTE8555'})
+    do_lookup_test(
+      h0, 'supplierList.1.DunsNr', 'ZUTE8555')
+
+    do_has_attribute_test(
+      h0, 'supplierList.1.DunsNr', true)
+    do_has_attribute_test(
+      h0, 'supplierList.1.Whatever', false)
+    do_has_attribute_test(
+      h0, 'supplierList.whatever', false)
+    do_has_attribute_test(
+      h0, 'whatever', false)
+
+    h1 = { 'supplierList' => l0.to_s }
+    do_lookup_test(
+      h1, 'supplierList.1.DunsNr', nil)
+
+    do_has_attribute_test(
+      nil, 'whatever', false)
+    do_has_attribute_test(
+      {}, 'whatever', false)
+    do_has_attribute_test(
+      [], 'whatever', false)
+    do_has_attribute_test(
+      'string',  'whatever', false)
+
+    do_has_attribute_test(
+      [ nil, nil ], '1.name', false)
+  end
+
+  def test_1
+
+    h = { '0' => [ 'a', 'A' ], '1' => { 'b' => 'B'} }
+
+    do_lookup_test(h, '0', [ 'a', 'A' ])
+    do_lookup_test(h, '1.b', 'B')
+    do_has_attribute_test(h, '0', true)
+    do_has_attribute_test(h, '1.b', true)
+  end
+
+  protected
+
+  def do_lookup_test (container, expression, expected_value)
+
+    assert_equal(
+      expected_value,
+      OpenWFE::lookup_attribute(container, expression))
+  end
+
+  def do_has_attribute_test (container, expression, expected_boolean)
+
+    assert_equal(
+      expected_boolean,
+      OpenWFE::has_attribute?(container, expression))
+  end
+end
+

data/test/unit/ut_11_filter.rb

@@ -0,0 +1,124 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require File.dirname(__FILE__) + '/../test_helper.rb'
+
+require 'openwfe/filterdef'
+
+
+class FilterTest < Test::Unit::TestCase
+
+  def test_0
+
+    f0 = OpenWFE::FilterDefinition.new
+    f0.closed = true
+    f0.add_field('a', 'r')
+    f0.add_field('b', 'rw')
+    f0.add_field('c', '')
+
+    m0 = {
+      'a' => 'A',
+      'b' => 'B',
+      'c' => 'C',
+      'd' => 'D',
+    }
+
+    m1 = f0.filter_in m0
+
+    #require 'pp'; pp m0
+    #require 'pp'; pp m1
+    assert_equal m1, { 'a' => 'A', 'b' => 'B' }
+
+    f0.closed = false
+
+    m2 = f0.filter_in m0
+
+    #require 'pp'; pp m0
+    #require 'pp'; pp m2
+    assert_equal m2, { 'a' => 'A', 'b' => 'B', 'd' => 'D' }
+  end
+
+  def test_1
+
+    f0 = OpenWFE::FilterDefinition.new
+    f0.closed = false
+    f0.add_ok = true
+    f0.remove_ok = true
+    f0.add_field('a', 'r')
+    f0.add_field('b', 'rw')
+    f0.add_field('c', '')
+
+    m0 = {
+      'a' => 'A',
+      'b' => 'B',
+      'c' => 'C',
+      'd' => 'D',
+    }
+
+    #
+    # 0
+
+    m1 = {
+      'z' => 'Z'
+    }
+
+    m2 = f0.filter_out m0, m1
+
+    #require 'pp'; pp m2
+    assert_equal m2, {'z'=>'Z'}
+
+    #
+    # 1
+
+    f0.remove_ok = false
+
+    m2 = f0.filter_out m0, m1
+
+    #require 'pp'; pp m2
+    assert_equal m2, {'a'=>'A', 'b'=>'B', 'c'=>'C', 'z'=>'Z', 'd'=>'D'}
+
+    #
+    # 2
+
+    f0.remove_allowed = true
+
+    m1 = {
+      'a' => 0,
+      'b' => 1,
+      'c' => 2,
+      'd' => 3
+    }
+
+    m2 = f0.filter_out m0, m1
+
+    #require 'pp'; pp m2
+    assert_equal m2, {'a'=>'A', 'b'=>1, 'c'=>'C', 'd'=>3}
+  end
+
+  def test_2
+
+    f0 = OpenWFE::FilterDefinition.new
+    f0.closed = true
+    f0.add_field('a', 'r')
+    f0.add_field('b', 'rw')
+    f0.add_field('c', '')
+
+    h = f0.to_h
+
+    assert_equal(
+      {"class"=>"OpenWFE::FilterDefinition", "fields"=>[{"regex"=>"--- a\n", "class"=>"OpenWFE::FilterDefinition::Field", "permissions"=>"r"}, {"regex"=>"--- b\n", "class"=>"OpenWFE::FilterDefinition::Field", "permissions"=>"rw"}, {"regex"=>"--- c\n", "class"=>"OpenWFE::FilterDefinition::Field", "permissions"=>""}], "add_ok"=>true, "remove_ok"=>true, "closed"=>true},
+      h)
+
+    f1 = OpenWFE::FilterDefinition.from_h(h)
+
+    assert_equal(h, f1.to_h)
+  end
+
+end
+

data/test/{condition_test.rb → unit/ut_12_conditional.rb}

@@ -1,27 +1,20 @@
 
 #
-# Testing OpenWFE
+# Testing Ruote (OpenWFEru)
 #
 # John Mettraux at openwfe.org
 #
 # Sun Oct 29 16:18:25 JST 2006
 #
 
-require 'rubygems'
-
-require 'test/unit'
-
-require 'rutest_utils'
+require File.dirname(__FILE__) + '/../test_helper.rb'
 
 require 'openwfe/rudefinitions'
 require 'openwfe/expressions/rprocdef'
 require 'openwfe/expressions/condition'
 
 
-#
-# testing expression conditions
-#
-class ConditionTest < Test::Unit::TestCase
+class ConditionalTest < Test::Unit::TestCase
 
   include OpenWFE::ConditionMixin
   include OpenWFE::OwfeServiceLocator
@@ -44,55 +37,55 @@ class ConditionTest < Test::Unit::TestCase
 
     #@debug = true
 
-    assert_t "true"
-    assert_F "false"
+    assert_t 'true'
+    assert_F 'false'
 
-    assert_t "1 == 1"
+    assert_t '1 == 1'
 
     assert_t "'a' == 'a'"
     assert_t '"a" == "a"'
 
-    assert_t "a == a"
+    assert_t 'a == a'
     assert_F "'a' == a"
 
     #assert_t "!= ''"
 
-    assert_F " == 1 "
-    assert_F " == 1"
-    assert_F "== 1"
+    assert_F ' == 1 '
+    assert_F ' == 1'
+    assert_F '== 1'
   end
 
   def test_0b
 
     #@debug = true
 
-    assert_t "a"
-    assert_F ""
+    assert_t 'a'
+    assert_F ''
   end
 
   def test_1
 
     #@debug = true
 
-    assert_set_t "1 is set"
-    assert_set_t "1 set"
-    assert_set_F "1 is not set"
-    assert_set_F "1 not set"
-
-    assert_set_t " is not set"
-    assert_set_t " not set"
-    assert_set_F " is set"
-    assert_set_F " set"
-
-    assert_t "1 is set"
-    assert_t "1 set"
-    assert_F "1 is not set"
-    assert_F "1 not set"
-
-    assert_t " is not set"
-    assert_t " not set"
-    assert_F " is set"
-    assert_F " set"
+    assert_set_t '1 is set'
+    assert_set_t '1 set'
+    assert_set_F '1 is not set'
+    assert_set_F '1 not set'
+
+    assert_set_t ' is not set'
+    assert_set_t ' not set'
+    assert_set_F ' is set'
+    assert_set_F ' set'
+
+    assert_t '1 is set'
+    assert_t '1 set'
+    assert_F '1 is not set'
+    assert_F '1 not set'
+
+    assert_t ' is not set'
+    assert_t ' not set'
+    assert_F ' is set'
+    assert_F ' set'
   end
 
   def test_2
@@ -102,7 +95,7 @@ class ConditionTest < Test::Unit::TestCase
     $my_owferu_var = nil
 
     #assert_F "f = File.open('toto', 'w'); f.puts('nada'); f.close"
-    assert_t "$my_owferu_var = 3; $my_owferu_var = 4"
+    assert_t '$my_owferu_var = 3; $my_owferu_var = 4'
 
     target = on_jruby? ? 4 : nil
     assert_equal target, $my_owferu_var
@@ -164,6 +157,6 @@ class ConditionTest < Test::Unit::TestCase
       # don't do a thing
       return unless @debug
 
-      puts "  " + block.call
+      puts '  ' + block.call
     end
 end

data/test/unit/ut_13_xmlutil.rb

@@ -0,0 +1,57 @@
+
+#
+# Testing Ruote (OpenWFERu)
+#
+# John Mettraux at openwfe.org
+#
+# Sun Apr 13 19:03:31 JST 2008
+#
+
+require File.dirname(__FILE__) + '/../test_helper.rb'
+
+require 'openwfe/util/xml'
+
+
+class XmlUtilTest < Test::Unit::TestCase
+
+  def test_0
+
+    a = <<-EOS
+<array>
+  <string>alpha</string>
+  <number>2</number>
+  <number>2.3</number>
+  <false/>
+  <null/>
+</array>
+    EOS
+    a = a.strip
+
+    o = OpenWFE::Xml.from_xml a
+
+    assert_equal [ 'alpha', 2, 2.3, false, nil ], o
+
+    a1 = OpenWFE::Xml.to_xml(o, :indent => 2, :instruct => false).strip
+
+    assert_equal a, a1
+  end
+
+  def test_1
+
+    x = <<-EOS
+<process>
+  <definition><![CDATA[
+    <process-definition name="toto">
+    </process-definition>
+  ]]></definition>
+</process>
+    EOS
+
+    assert_equal(
+      %{<process-definition name="toto">
+    </process-definition>},
+      OpenWFE::Xml.text(REXML::Document.new(x).root, 'definition').strip)
+  end
+
+end
+

data/test/unit/ut_14_var_field_lookup.rb

@@ -0,0 +1,85 @@
+
+#
+# Testing Ruote (OpenWFEru)
+#
+# John Mettraux at openwfe.org
+#
+# Tue Mar 11 13:44:11 JST 2008
+#
+
+require File.dirname(__FILE__) + '/../test_helper.rb'
+
+require 'openwfe/workitem'
+require 'openwfe/expressions/flowexpression'
+
+
+class VarFieldLookupTest < Test::Unit::TestCase
+
+  def test_0
+
+    fexp = new_exp({
+      'on-value' => 'toto'
+    })
+    wi = new_wi({
+      'toto' => 'whatever'
+    })
+
+    assert_equal(
+      'toto',
+      fexp.lookup_vf_attribute(wi, 'value', :prefix => 'on'))
+
+    fexp = new_exp({ 'on-variable-value' => 'toto' }, { 'toto' => 'surf' })
+
+    assert_equal(
+      'surf',
+      fexp.lookup_vf_attribute(wi, 'value', :prefix => 'on'))
+
+    fexp = new_exp({ 'on-field-value' => 'toto' })
+
+    assert_equal(
+      'whatever',
+      fexp.lookup_vf_attribute(wi, 'value', :prefix => 'on'))
+  end
+
+  def test_1
+
+    fexp = new_exp({
+      'on' => 'surf'
+    })
+    wi = new_wi
+
+    assert_equal(
+      'surf',
+      fexp.lookup_vf_attribute(wi, '', :prefix => 'on'))
+
+    assert_equal(
+      'surf',
+      fexp.lookup_vf_attribute(wi, '', :prefix => :on))
+  end
+
+  protected
+
+  def new_exp (atts, vars={})
+
+    fexp = OpenWFE::FlowExpression.new
+    fexp.attributes = atts
+
+    fexp.instance_variable_set :@vars, vars
+
+    class << fexp
+      def lookup_variable (var_name)
+        @vars[var_name]
+      end
+    end
+
+    fexp
+  end
+
+  def new_wi (atts={})
+
+    wi = OpenWFE::InFlowWorkItem.new
+    wi.attributes = atts
+    wi
+  end
+end
+