ruote 0.9.18

data/test/fei_test.rb

@@ -0,0 +1,181 @@
+
+#
+# Testing OpenWFE
+#
+# 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 'openwfe/flowexpressionid'
+require 'openwfe/rudefinitions'
+
+
+class FeiTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_equality
+
+        fei1 = new_fei()
+        fei2 = new_fei()
+
+        assert \
+            fei1.object_id != fei2.object_id, \
+            "feis are not two distinct feis"
+        assert \
+            fei1.hash == fei2.hash, \
+            "feis do not have the same hash"
+        assert \
+            fei1 == fei2, \
+            "feis are not equals (==)"
+        assert \
+            fei1.eql?(fei2), \
+            "feis are not equals (eql?)"
+    end
+
+    def test_inequality
+
+        fei1 = new_fei()
+
+        fei2 = new_fei()
+        fei2.expression_name = OpenWFE::EN_ENVIRONMENT
+
+        assert \
+            fei1.object_id != fei2.object_id, \
+            "feis are not two distinct feis"
+        assert \
+            fei1.hash != fei2.hash, \
+            "feis do have the same hash"
+        assert \
+            fei1 != fei2, \
+            "feis are equals (==)"
+        assert \
+            (not fei1.eql?(fei2)), \
+            "feis are equals (eql?)"
+    end
+
+    def test_in_hash
+        h = Hash.new()
+
+        fei1 = new_fei()
+        fei2 = new_fei()
+
+        h[fei1] = 'one'
+        h[fei2] = 'two'
+
+        #puts_hash(h)
+        #puts "fei1 :   #{fei1.to_debug_s}"
+        #puts "fei2 :   #{fei2.to_debug_s}"
+
+        assert \
+            h.size() == 1,
+            "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)"
+    end
+
+    def test_dup
+        fei0 = new_fei()
+        fei1 = fei0.dup()
+
+        assert \
+            fei0 == fei1,
+            "feis should be equal"
+
+        fei1.expression_name = OpenWFE::EN_ENVIRONMENT
+
+        assert \
+            fei0 != fei1, 
+            "feis should not be equal"
+    end
+
+    def test_parse_unparse
+        fei0 = new_fei()
+        s = fei0.to_s
+        fei1 = OpenWFE::FlowExpressionId.to_fei(s)
+        fei2 = OpenWFE::FlowExpressionId.from_s(s)
+
+        puts "\n#{s}\n#{fei1.to_s}" if fei0 != fei1
+
+        assert_equal fei0, fei1
+        assert_equal fei1, fei2
+    end
+
+    def test_parent_wfid
+
+        fei = new_fei
+
+        assert \
+            fei.parent_workflow_instance_id == "123456",
+            "failure 0"
+
+        fei.workflow_instance_id = "123456.0.0"
+
+        assert \
+            fei.parent_workflow_instance_id == "123456",
+            "failure 1"
+    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)"
+
+        fei0 = OpenWFE::FlowExpressionId.from_s s0
+        fei1 = OpenWFE::FlowExpressionId.from_s s1
+
+        assert_equal fei0, fei1
+
+        fei0 = OpenWFE::FlowExpressionId.to_fei s0
+        fei1 = OpenWFE::FlowExpressionId.to_fei s1
+
+        assert_equal fei0, fei1
+
+        assert_equal s1, fei0.to_s
+        assert_equal s1, fei1.to_s
+    end
+
+    def test_web_s
+
+        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" ], 
+            OpenWFE::FlowExpressionId.split_web_s(fei1.to_web_s))
+    end
+
+    def test_from_h
+
+        fei = new_fei()
+        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
+
+end
+

data/test/file_persisted_engine_test.rb

@@ -0,0 +1,64 @@
+#
+#--
+# Copyright (c) 2007, Urbacon Ltd.
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without 
+# modification, are permitted provided that the following conditions are met:
+# 
+# . Redistributions of source code must retain the above copyright notice, this
+#   list of conditions and the following disclaimer.  
+# 
+# . Redistributions in binary form must reproduce the above copyright notice, 
+#   this list of conditions and the following disclaimer in the documentation 
+#   and/or other materials provided with the distribution.
+# 
+# . Neither the name of the "OpenWFE" nor the names of its contributors may be
+#   used to endorse or promote products derived from this software without
+#   specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE 
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 
+# POSSIBILITY OF SUCH DAMAGE.
+#++
+#
+#
+
+#
+# "made in Canada"
+#
+# Matt Zukowski at roughest.net
+# John Mettraux at openwfe.org
+#
+
+require 'test/unit'
+
+require 'fileutils'
+
+require 'openwfe/engine/file_persisted_engine'
+
+# Tests to assert correct functionality of the FilePersistedEngine.
+class FilePersistedEngineTest < Test::Unit::TestCase
+  
+  # Test to make sure that persistence data is stored in the specified 
+  # working directory.
+  def test_custom_working_directory
+    workdir = "test_custom_working_directory-#{Time.now.to_i}-#{rand(99999)}"
+    FileUtils.rm_rf(workdir) if File.exists?(workdir)
+    
+    engine = FilePersistedEngine.new(:work_directory => workdir)
+    
+    assert File.exists?(workdir),
+      "Custom working directory '#{workdir}' was not created by #{engine.class} during testing!"
+      
+    FileUtils.rm_rf(workdir)
+  end
+end

data/test/file_persistence_test.rb

@@ -0,0 +1,134 @@
+
+require 'test/unit'
+
+require 'openwfe/engine/engine'
+require 'openwfe/expool/expstorage'
+require 'openwfe/expool/yamlexpstorage'
+
+
+class FilePersistenceTest < Test::Unit::TestCase 
+
+    def setup
+        @engine = Engine.new
+    end
+
+    def teardown
+        @engine.stop
+    end
+
+    def ac
+        @engine.application_context
+    end
+    
+    # 
+    # test persistence using yaml
+    def test_yaml_persistence
+        fes = OpenWFE::YamlFileExpressionStorage.new("yaml", ac)
+        test_persistence(fes)
+    end
+    
+    #
+    # flow expression check
+    def test_flow_expression
+        fei = new_fei()
+        fes = OpenWFE::YamlFileExpressionStorage.new "yaml", ac
+        fe = OpenWFE::SequenceExpression.new_exp fei, nil, nil, nil, nil
+        test_persistence(fes,fe)
+    end
+
+    def test_path_splitting
+
+        fei = new_fei
+        fes = OpenWFE::YamlFileExpressionStorage.new("yaml", ac)
+        class << fes
+            public :compute_file_path
+        end
+        path = fes.compute_file_path fei
+        a = fes.class.split_file_path path
+
+        assert_equal a[0], fei.wfid
+        assert_equal a[1], fei.expression_id
+        assert_equal a[2], fei.expression_name
+    end
+
+    def test_other_workdir
+
+        context = ac
+        context[:work_directory] = "work2"
+
+        fei = new_fei()
+        fes = OpenWFE::YamlFileExpressionStorage.new("yaml", ac)
+        #fe = SequenceExpression.new(fei, nil, nil, nil, nil)
+        #fes[fei] = fe
+
+        assert File.exist?("work2")
+
+        FileUtils.rm_rf("work2")
+        assert (not File.exist?("work2"))
+    end
+    
+    #
+    # test UTF-8 data persistence
+    def test_utf8_with_file
+
+        workflow_definition_name = "みんなにARIGATOU★☆に関する最新の情報公開"
+        fei = new_fei workflow_definition_name
+        fes = OpenWFE::YamlFileExpressionStorage.new "yaml", ac
+        fe = OpenWFE::SequenceExpression.new_exp fei, nil, nil, nil, nil
+        
+        loaded = test_persistence(fes, fe)
+
+        #puts
+        #puts fei.workflow_definition_name
+        #puts loaded.fei.workflow_definition_name
+
+        assert_equal loaded.fei.workflow_definition_name, fei.workflow_definition_name
+    end
+    
+        
+    protected 
+    
+        def test_persistence (fes, fe=nil) 
+
+            fei = new_fei()
+            fes.delete(fei) if (fes.has_key?(fei))
+            
+            raw = fe ? \
+                fe : \
+                OpenWFE::RawExpression.new_raw(fei, 'parent', 'env', nil, nil)
+
+            assert \
+                (not fes.has_key?(fei)), 
+                "they key is present in the file system. "+
+                "Maybe a previous test did not delete the "
+            
+            fes[fei] = raw
+            assert fes.has_key?(fei)
+            
+            loaded = fes[fei]
+            
+            fes.delete(fei)
+            assert !(fes.has_key?(fei))
+            return loaded
+        end
+        
+        def new_fei (definition_name=nil)
+
+            fei = OpenWFE::FlowExpressionId.new()
+            fei.owfe_version = OPENWFERU_VERSION
+            fei.engine_id = 'this'
+            fei.initial_engine_id = 'that'
+            fei.workflow_definition_url = 'http://test/test.xml'
+            fei.workflow_definition_name = if definition_name == nil 
+                'test' 
+            else
+                 definition_name
+            end
+            fei.workflow_definition_revision = '1.0'
+            fei.workflow_instance_id = @engine.get_wfid_generator.generate
+            fei.expression_name = 'do-test'
+            fei.expression_id = '0.0'
+            return fei
+        end
+        
+end

data/test/filep_cancel_test.rb

@@ -0,0 +1,123 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Nov 25 14:41:32 JST 2007
+#
+
+require 'rubygems'
+
+require 'test/unit'
+require 'fileutils'
+require 'openwfe/def'
+require 'openwfe/engine/file_persisted_engine'
+
+
+class FilePersistenceAndCancel < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    def teardown
+
+        $OWFE_LOG.level = Logger::INFO
+
+        FileUtils.rm_rf "work_filep"
+    end
+
+    class OpenWFE::YamlFileExpressionStorage
+        public :compute_file_path
+    end
+
+    XMLDEF = <<XML
+<process-definition name="simple_sequence" revision="1">
+<description>
+a tiny 'hello world' sequence
+</description>
+<sequence>
+<set field="message" value="hello world !" />
+<participant ref="bravo" />
+<participant ref="alpha" />
+</sequence>
+</process-definition>
+XML
+
+    class TestDef0 < OpenWFE::ProcessDefinition
+        sequence do
+            alpha
+            bravo
+        end
+    end
+
+    def test_0
+
+        ac = { 
+            :work_directory => "work_filep", 
+            :definition_in_launchitem_allowed => true
+        }
+
+        @engine = OpenWFE::FilePersistedEngine.new ac
+
+        #fei = @engine.launch TestDef0
+        fei = @engine.launch XMLDEF
+
+        sleep 0.300
+
+        assert File.exist?(path0(fei))
+
+        @engine.cancel_process fei.wfid
+
+        sleep 0.300
+
+        assert ( ! File.exist?(path0(fei)))
+        #assert ( ! File.exist?("./work/ejournal/#{fei.wfid}.ejournal"))
+
+        @engine.stop
+
+        FileUtils.rm_rf "work_filep"
+    end
+
+    def test_1
+
+        ac = { 
+            :work_directory => "work_filep", 
+            :definition_in_launchitem_allowed => true
+        }
+
+        @engine = OpenWFE::CachedFilePersistedEngine.new ac
+
+        #$OWFE_LOG.level = Logger::DEBUG
+
+        #fei = @engine.launch TestDef0
+        fei = @engine.launch XMLDEF
+
+        sleep 0.900
+            # it's a bit longish...
+
+        #puts path1(fei)
+        assert File.exist?(path1(fei))
+
+        @engine.cancel_process fei.wfid
+
+        sleep 0.900
+
+        assert ( ! File.exist?(path1(fei)))
+        #assert ( ! File.exist?("./work/ejournal/#{fei.wfid}.ejournal"))
+
+        @engine.stop
+    end
+
+    protected
+
+        def path0 (fei)
+
+            @engine.get_expression_storage.compute_file_path(fei)
+        end
+
+        def path1 (fei)
+
+            @engine.ac[OpenWFE::S_EXPRESSION_STORAGE + ".1"].compute_file_path(fei)
+        end
+end