ruote 0.9.19 → 0.9.20

data/test/{fe_lookup_att_test.rb → unit/ut_15_fe_att_lookup.rb}

@@ -1,33 +1,26 @@
 
 #
-# Testing OpenWFE
+# Testing Ruote (OpenWFEru)
 #
 # John Mettraux at openwfe.org
 #
 # Thu Nov  1 19:33:45 JST 2007
 #
 
-require 'rubygems'
+require File.dirname(__FILE__) + '/../test_helper.rb'
 
-require 'test/unit'
 require 'openwfe/expressions/flowexpression'
 
 
-class FeLookupAttTest < Test::Unit::TestCase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
+class FeAttLookupTest < Test::Unit::TestCase
 
   def test_0
 
     attributes = {
-      "a" => true,
-      "b" => false,
-      "A" => "a, b, c,d,${e},f",
-      "B" => [ 1, 2, 3, "${a}" ]
+      'a' => true,
+      'b' => false,
+      'A' => 'a, b, c,d,${e},f',
+      'B' => [ 1, 2, 3, '${a}' ]
     }
 
     fe = OpenWFE::FlowExpression.new_exp nil, nil, nil, nil, attributes
@@ -38,22 +31,22 @@ class FeLookupAttTest < Test::Unit::TestCase
       end
     end
 
-    assert_equal true, fe.lookup_boolean_attribute("a", nil)
+    assert_equal true, fe.lookup_boolean_attribute('a', nil)
     assert_equal true, fe.lookup_boolean_attribute(:a, nil)
-    assert_equal true, fe.lookup_boolean_attribute("a", nil, false)
+    assert_equal true, fe.lookup_boolean_attribute('a', nil, false)
     assert_equal true, fe.lookup_boolean_attribute(:a, nil, false)
-    assert_equal true, fe.lookup_boolean_attribute("a", nil, true)
+    assert_equal true, fe.lookup_boolean_attribute('a', nil, true)
     assert_equal true, fe.lookup_boolean_attribute(:a, nil, true)
 
-    assert_equal false, fe.lookup_boolean_attribute("b", nil)
+    assert_equal false, fe.lookup_boolean_attribute('b', nil)
     assert_equal false, fe.lookup_boolean_attribute(:b, nil)
-    assert_equal false, fe.lookup_boolean_attribute("b", nil, false)
+    assert_equal false, fe.lookup_boolean_attribute('b', nil, false)
     assert_equal false, fe.lookup_boolean_attribute(:b, nil, false)
-    assert_equal false, fe.lookup_boolean_attribute("b", nil, true)
+    assert_equal false, fe.lookup_boolean_attribute('b', nil, true)
     assert_equal false, fe.lookup_boolean_attribute(:b, nil, true)
 
     assert_equal %w{ a b c d ee f }, fe.lookup_array_attribute('A', nil)
-    assert_equal [ 1, 2, 3, "aa" ], fe.lookup_array_attribute('B', nil)
+    assert_equal [ 1, 2, 3, 'aa' ], fe.lookup_array_attribute('B', nil)
 
     # a fat but fast test
   end

data/test/{storage_test.rb → unit/ut_16_expstorage_findexp.rb}

@@ -1,13 +1,13 @@
 
 #
-# Testing OpenWFE
+# Testing Ruote (OpenWFEru)
 #
 # John Mettraux at openwfe.org
 #
 # Mon Dec 10 18:02:59 JST 2007
 #
 
-require 'test/unit'
+require File.dirname(__FILE__) + '/../test_helper.rb'
 
 require 'openwfe/expool/expstorage'
 
@@ -19,13 +19,7 @@ end
 class Animal
 end
 
-class StorageTest < Test::Unit::TestCase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
+class ExpstorageTest < Test::Unit::TestCase
 
   def test_class_accepted
 

data/test/unit/ut_17_representations.rb

@@ -0,0 +1,330 @@
+
+#
+# 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/representations'
+require 'openwfe/expool/representation'
+require 'openwfe/engine/status_methods'
+
+
+class RepresentationsTest < Test::Unit::TestCase
+
+  def test_0
+
+    li = OpenWFE::LaunchItem.new
+    li.attributes.delete('___map_type')
+    xml = OpenWFE::Xml.launchitem_to_xml li
+
+    assert_equal(
+      "<?xml version=\"1.0\" encoding=\"UTF-8\"?><launchitem><workflow_definition_url></workflow_definition_url><attributes><hash></hash></attributes></launchitem>",
+      xml)
+
+    li = OpenWFE::Xml.launchitem_from_xml xml
+
+    assert_nil(li.wfdurl)
+    assert_equal({}, li.attributes)
+  end
+
+  def test_0b
+
+    xml = %{<?xml version="1.0" encoding="UTF-8"?>
+<process>
+  <definition_url>http://processdef.server.example.com/process1</definition_url>
+  <fields><hash></hash></fields>
+</process>"}
+    li = OpenWFE::Xml.launchitem_from_xml xml
+    assert_equal('http://processdef.server.example.com/process1', li.wfdurl)
+    assert_equal({}, li.attributes)
+  end
+
+  def test_0c
+
+    xml = %{<?xml version="1.0" encoding="UTF-8"?>
+<process>
+  <definition>class ProcDef1 &lt; OpenWFE::ProcessDefinition
+  sequence do
+    participant "alpha"
+    participant "bravo"
+  end
+end</definition>
+  <fields><hash></hash></fields>
+</process>"}
+
+    li = OpenWFE::Xml.launchitem_from_xml xml
+
+    assert_equal(nil, li.wfdurl)
+
+    assert_equal(
+      { '__definition' => %{class ProcDef1 < OpenWFE::ProcessDefinition
+  sequence do
+    participant "alpha"
+    participant "bravo"
+  end
+end}}, li.attributes)
+  end
+
+  def test_1
+
+    li = OpenWFE::LaunchItem.new
+    li.attributes = { 'a' => 1, 'b' => 2, 'c' => [ 1, 2, 3 ]}
+
+    xml = OpenWFE::Xml.launchitem_to_xml li
+
+    assert_equal(
+      "<?xml version=\"1.0\" encoding=\"UTF-8\"?><launchitem><workflow_definition_url></workflow_definition_url><attributes><hash><entry><string>a</string><number>1</number></entry><entry><string>b</string><number>2</number></entry><entry><string>c</string><array><number>1</number><number>2</number><number>3</number></array></entry></hash></attributes></launchitem>",
+      xml)
+
+    li = OpenWFE::Xml.launchitem_from_xml xml
+
+    assert_equal({ 'a' => 1, 'b' => 2, 'c' => [ 1, 2, 3 ] }, li.attributes)
+  end
+
+  def test_2
+
+    wi = OpenWFE::InFlowWorkItem.new
+    wi.fei = new_fei
+
+    xml = OpenWFE::Xml.workitem_to_xml wi
+
+    wi1 = OpenWFE::Xml.workitem_from_xml xml
+
+    assert_equal wi.fei, wi1.fei
+
+    #p wi1.fei
+  end
+
+  def test_2b
+
+    wi = OpenWFE::InFlowWorkItem.new
+    wi.fei = new_fei
+
+    wi1 = OpenWFE::InFlowWorkItem.from_xml(wi.to_xml)
+
+    assert_equal wi.fei, wi1.fei
+
+    #p wi1.fei
+  end
+
+  def test_2c
+
+    wis = []
+
+    2.times { |i|
+      wi = OpenWFE::InFlowWorkItem.new
+      wi.fei = new_fei
+      wi.fei.expid = "0.#{i}"
+      wis << wi
+    }
+
+    xml = OpenWFE::Xml.workitems_to_xml(wis, :indent => 2, :linkgen => :plain)
+
+    #puts xml
+    assert xml.match(/workitems/)
+    assert xml.match(/link href="\/" rel="via"/)
+    assert xml.match(/link href="\/workitems" rel="self"/)
+    assert xml.match(/link href="\/workitems\/20080919-equestris\/0_0"/)
+    assert xml.match(/link href="\/workitems\/20080919-equestris\/0_1"/)
+
+    workitems = OpenWFE::Xml.workitems_from_xml(xml)
+
+    assert_equal 2, workitems.size
+    assert_equal '/workitems/20080919-equestris/0_0', workitems.first.uri
+    assert_equal '/workitems/20080919-equestris/0_1', workitems.last.uri
+
+    h = OpenWFE::Json.workitems_to_h(wis, :indent => 2, :linkgen => :plain)
+    #p h
+    assert_equal 2, h['elements'].size
+    assert_equal 2, h['links'].size
+  end
+
+  def test_3
+
+    li = OpenWFE::LaunchItem.new
+    li.wfdurl = 'http://toto'
+    li.customer_name = 'toto'
+
+    xml = OpenWFE::Xml.launchitem_to_xml li, :indent => 2
+
+    li1 = OpenWFE::Xml.launchitem_from_xml xml
+
+    assert_equal li.wfdurl, li1.wfdurl
+    assert_equal li.customer_name, li1.customer_name
+  end
+
+  def test_4
+
+    ps = new_process_status('20080919-equestribus')
+
+    options = { :indent => 2, :linkgen => :plain }
+    #puts OpenWFE::Xml.process_to_xml(ps, options)
+    assert_match(
+      /\/processes\/20080919-equestribus\//,
+      OpenWFE::Xml.process_to_xml(ps, options))
+
+    assert_equal(
+      [
+        { 'href' => '/processes', 'rel' => 'via' },
+        { 'href' => '/processes/20080919-equestribus', 'rel' => 'self' },
+        { 'href' => '/processes/20080919-equestribus/tree', 'rel' => 'related' }
+      ],
+      OpenWFE::Json.process_to_h(ps, :linkgen => :plain)['links'])
+  end
+
+  def test_5
+
+    ps = [ '20080919-victrix', '20070909-gemina' ].inject({}) do |r, wfid|
+      r[wfid] = new_process_status(wfid); r
+    end
+
+    options = { :indent => 2, :linkgen => :plain }
+
+    xml = OpenWFE::Xml.processes_to_xml(ps, options)
+    #puts xml
+    assert_match(/"\/processes"/, xml)
+    assert_match(/count="2"/, xml)
+    assert_match(/"\/processes\/20080919-victrix"/, xml)
+    assert_match(/"\/processes\/20070909-gemina"/, xml)
+
+    xml = OpenWFE::Xml.processes_to_xml(ps.values, options)
+    #puts xml
+    assert_match(/"\/processes"/, xml)
+    assert_match(/count="2"/, xml)
+    assert_match(/"\/processes\/20080919-victrix"/, xml)
+    assert_match(/"\/processes\/20070909-gemina"/, xml)
+  end
+
+  def test_6
+
+    ps = {}
+
+    options = { :indent => 2, :linkgen => :plain }
+
+    xml = OpenWFE::Xml.processes_to_xml(ps, options)
+    assert_equal(
+      %{
+<?xml version="1.0" encoding="UTF-8"?>
+<processes count="0">
+  <link href="/" rel="via"/>
+  <link href="/processes" rel="self"/>
+</processes>
+      }.strip,
+      xml.strip)
+  end
+
+  def test_7
+
+    ps = [ '20080919-victrix', '20070909-gemina' ].collect do |wfid|
+      new_process_status(wfid)
+    end
+
+    class << ps
+      def current_page
+        2
+      end
+      def total_pages
+        3
+      end
+    end
+
+    options = { :indent => 2, :linkgen => :plain }
+
+    xml = OpenWFE::Xml.processes_to_xml(ps, options)
+    #puts xml
+    assert_match(/"\/processes"/, xml)
+    assert_match(/count="2"/, xml)
+    assert_match(/"\/processes\/20080919-victrix"/, xml)
+    assert_match(/"\/processes\/20070909-gemina"/, xml)
+    assert_match(/"\/processes\?page=2" rel="self"/, xml)
+    assert_match(/"\/processes\?page=1" rel="prev"/, xml)
+    assert_match(/"\/processes\?page=3" rel="next"/, xml)
+  end
+
+  def test_8
+
+    ps = [ '20080919-victrix', '20070909-gemina' ].collect do |wfid|
+      new_process_status(wfid)
+    end
+
+    class << ps
+      def current_page
+        1
+      end
+      def total_pages
+        1
+      end
+    end
+
+    options = { :indent => 2, :linkgen => :plain }
+
+    xml = OpenWFE::Xml.processes_to_xml(ps, options)
+    #puts xml
+    assert_match(/"\/processes"/, xml)
+    assert_match(/count="2"/, xml)
+    assert_match(/"\/processes\/20080919-victrix"/, xml)
+    assert_match(/"\/processes\/20070909-gemina"/, xml)
+    assert_match(/"\/processes" rel="self"/, xml)
+  end
+
+  def test_9
+
+    # empty process list/hash ?
+
+    h = OpenWFE::Json.processes_to_h([], :linkgen => :plain)
+    #p h
+
+    assert_equal(
+      [{'href'=>'/', 'rel'=>'via'}, {'href'=>'/processes', 'rel'=>'self'}],
+      h['links'])
+
+    h = OpenWFE::Json.processes_to_h({}, :linkgen => :plain)
+    #p h
+
+    assert_equal(
+      [{'href'=>'/', 'rel'=>'via'}, {'href'=>'/processes', 'rel'=>'self'}],
+      h['links'])
+  end
+
+  protected
+
+    def new_process_status (wfid)
+
+      ps = OpenWFE::ProcessStatus.new
+      class << ps
+        attr_accessor :wfid
+        def wfname; 'test-wf'; end
+        def wfrevision; '0'; end
+        def branches; 1; end
+        def variables; { 'var0' => 'val0' }; end
+        def scheduled_jobs; []; end
+        def expressions; []; end
+        def all_expressions
+          return @a if @a
+          @a = [ Object.new ]
+          class << @a.first
+            def fei; new_fei(wfid); end
+            def raw_representation; [ 'test', {}, [] ]; end
+            def children; []; end
+          end
+          class << @a
+            def find_root_expression
+              self.first
+            end
+          end
+          @a.extend(OpenWFE::RepresentationMixin)
+          @a
+        end
+      end
+      ps.wfid = wfid
+
+      ps
+    end
+
+end
+

data/test/{hash_test.rb → unit/ut_17b_representations_hash.rb}

@@ -1,34 +1,24 @@
 
 #
-# Testing OpenWFE
+# Testing Ruote (OpenWFEru)
 #
 # John Mettraux at openwfe.org
 #
 # Sun Oct 29 16:18:25 JST 2006
 #
 
-require 'rubygems'
-require 'json'
+require File.dirname(__FILE__) + '/../test_helper.rb'
 
-require 'test/unit'
+require 'json'
 
+require 'openwfe/util/json'
 require 'openwfe/workitem'
+require 'openwfe/rudefinitions'
 require 'openwfe/flowexpressionid'
+require 'openwfe/representations'
 
-require 'rutest_utils'
-
-
-#
-# testing fei.to_h and wi.to_h
-#
-
-class HashTest < Test::Unit::TestCase
 
-  #def setup
-  #end
-
-  #def teardown
-  #end
+class RepresentationsHashTest < Test::Unit::TestCase
 
   def test_fei_to_h
 
@@ -58,12 +48,24 @@ class HashTest < Test::Unit::TestCase
     assert_equal wi0.attributes.length, wi2.attributes.length
   end
 
+  def test_wi_to_h_and_links
+
+    wi0 = OpenWFE::InFlowWorkItem.new
+    wi0.fei = new_fei
+    wi0.car = 'prius'
+    wi0.count = 2
+
+    h = OpenWFE::Json.workitem_to_h(wi0, :linkgen => :plain)
+    assert_equal 2, h['links'].size
+    #puts h.to_json
+  end
+
   def test_any_from_h
 
     li = OpenWFE::LaunchItem.new
-    li.workflow_definition_url = "http://www.openwfe.org/nada"
-    li.price = "USD 12"
-    li.customer = "Captain Nemo"
+    li.workflow_definition_url = 'http://www.openwfe.org/nada'
+    li.price = 'USD 12'
+    li.customer = 'Captain Nemo'
 
     h = li.to_h
     #p h
@@ -82,8 +84,10 @@ class HashTest < Test::Unit::TestCase
     wi0.attributes['data'] = (0..5).to_a
 
     s = wi0.to_h.to_json
+    #puts s
 
-    wi1 = OpenWFE::InFlowWorkItem.from_h(JSON.parse(s))
+    #wi1 = OpenWFE::InFlowWorkItem.from_h(JSON.parse(s))
+    wi1 = OpenWFE::InFlowWorkItem.from_h(OpenWFE::Json.from_json(s))
 
     assert_equal wi0.attributes, wi1.attributes
     assert_equal wi0.fei, wi1.fei