openwferu 0.9.12 → 0.9.12.863

data/test/csv_test.rb

@@ -1,342 +0,0 @@
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-# Sun Oct 29 15:41:44 JST 2006
-#
-
-require 'test/unit'
-
-#require 'pp'
-
-require 'openwfe/workitem'
-require 'openwfe/participants/csvparticipants'
-
-#require 'rutest_utils'
-
-include OpenWFE
-
-
-
-class CsvTest < Test::Unit::TestCase
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    CSV0 = \
-"""
-,,
-in:fx,in:fy,out:fz
-,,
-a,b,0
-c,d,1
-e,f,2
-"""
-
-    def test_csv_0
-
-        wi = InFlowWorkItem.new()
-
-        wi.fx = "c"
-        wi.fy = "d"
-
-        do_test(CSV0, wi, { "fz" => "1" }, false)
-
-        wi.attributes.clear()
-        wi.fx = "a"
-        wi.fy = "d"
-
-        do_test(CSV0, wi, { "fz" => nil }, false)
-    end
-
-    CSV1 = \
-"""
-,,
-in:fx,in:fy,out:fz
-,,
-a,${f:fx},0
-c,d,${f:fx}
-e,f,${r:3+4}
-"""
-
-    def test_csv_1
-
-        wi = InFlowWorkItem.new()
-
-        wi.fx = "c"
-        wi.fy = "d"
-
-        do_test(CSV1, wi, { "fz" => "c" }, false)
-
-        wi.attributes.clear()
-        wi.fx = "e"
-        wi.fy = "f"
-
-        do_test(CSV1, wi, { "fz" => "7" }, false)
-
-        wi.attributes.clear()
-        wi.fx = "a"
-        wi.fy = "a"
-
-        do_test(CSV1, wi, { "fz" => "0" }, false)
-    end
-
-    CSV2 = \
-"""
-in:fx, in:fy, out:fz
-,,
-a,     b,     0
-c,     d,     1
-e,     f,     2
-"""
-
-    def test_csv_2
-
-        wi = InFlowWorkItem.new()
-
-        wi.fx = "c"
-        wi.fy = "d"
-
-        do_test(CSV2, wi, { "fz" => "1" }, false)
-
-        wi.attributes.clear()
-        wi.fx = "a"
-        wi.fy = "d"
-
-        do_test(CSV2, wi, { "fz" => nil }, false)
-    end
-
-    CSV3 = \
-"""
-in:weather, in:month, out:take_umbrella?
-,,
-raining,    ,         yes
-sunny,      ,         no
-cloudy,     june,     yes
-cloudy,     may,      yes
-cloudy,     ,         no
-"""
-
-    def test_csv_3
-
-        wi = InFlowWorkItem.new()
-
-        wi.weather = "raining"
-        wi.month = "december"
-
-        do_test(CSV3, wi, { "take_umbrella?" => "yes" }, false)
-
-        wi.attributes.clear()
-        wi.weather = "cloudy"
-        wi.month = "june"
-
-        do_test(CSV3, wi, { "take_umbrella?" => "yes" }, false)
-
-        wi.attributes.clear()
-        wi.weather = "cloudy"
-        wi.month = "march"
-
-        do_test(CSV3, wi, { "take_umbrella?" => "no" }, false)
-    end
-
-    def test_csv_3b
-
-        h = {}
-        h["weather"] = "raining"
-        h["month"] = "december"
-        do_test(CSV3, h, { "take_umbrella?" => "yes" }, false)
-
-        h = {}
-        h["weather"] = "cloudy"
-        h["month"] = "june"
-        do_test(CSV3, h, { "take_umbrella?" => "yes" }, false)
-
-        h = {}
-        h["weather"] = "cloudy"
-        h["month"] = "march"
-        do_test(CSV3, h, { "take_umbrella?" => "no" }, false)
-    end
-
-    def test_csv_3c
-
-         table = CsvTable.new("""
-             in:topic,in:region,out:team_member
-             sports,europe,Alice
-             sports,,Bob
-             finance,america,Charly
-             finance,europe,Donald
-             finance,,Ernest
-             politics,asia,Fujio
-             politics,america,Gilbert
-             politics,,Henry
-             ,,Zach
-         """)
-         
-         h = {}
-         h["topic"] = "politics"
-         table.transform(h)
-         
-         assert h["team_member"] == "Henry"
-    end
-
-#    CSV4 = \
-#'''
-#"in:weather", "in:month", "out:take_umbrella?"
-#"","",""
-#"raining","","yes"
-#"sunny","","no"
-#"cloudy","june","yes"
-#"cloudy","may","yes"
-#"cloudy","","no"
-#'''
-
-    #def test_csv_4
-    #    h = {}
-    #    h["weather"] = "raining"
-    #    h["month"] = "december"
-    #    do_test(CSV4, h, { "take_umbrella?" => "yes" }, false)
-    #    h = {}
-    #    h["weather"] = "cloudy"
-    #    h["month"] = "june"
-    #    do_test(CSV4, h, { "take_umbrella?" => "yes" }, false)
-    #    h = {}
-    #    h["weather"] = "cloudy"
-    #    h["month"] = "march"
-    #    do_test(CSV4, h, { "take_umbrella?" => "no" }, false)
-    #end
-
-    CSV5 = \
-"""
-through,ignorecase,,
-,,,
-in:fx, in:fy, out:fX, out:fY
-,,,
-a,     ,      true,
-,      a,     ,       true
-b,     ,      false,
-,      b,     ,       false
-"""
-
-    def test_csv_5
-
-        wi = InFlowWorkItem.new()
-        wi.fx = "a"
-        wi.fy = "a"
-        do_test(CSV5, wi, { "fX" => "true", "fY" => "true" }, false)
-
-        wi.attributes.clear
-        wi.fx = "a"
-        wi.fy = "b"
-        do_test(CSV5, wi, { "fX" => "true", "fY" => "false" }, false)
-
-        wi.attributes.clear
-        wi.fx = "A"
-        wi.fy = "b"
-        do_test(CSV5, wi, { "fX" => "true", "fY" => "false" }, false)
-    end
-
-    #
-    # TEST 6
-
-    CSV6 = \
-"""
-,
-in:fx, out:fy
-,
-<10,a
-<=100,b
-,c
-"""
-
-    def test_csv_6
-
-        wi = InFlowWorkItem.new()
-
-        wi.fx = "5"
-        do_test(CSV6, wi, { "fy" => "a" }, false)
-
-        wi.attributes.clear()
-
-        wi.fx = "100.0001"
-        do_test(CSV6, wi, { "fy" => "c" }, false)
-    end
-
-    #
-    # TEST 7
-
-    CSV7 = \
-"""
-,
-in:fx, out:fy
-,
->100,a
->=10,b
-,c
-"""
-
-    def test_csv_7
-
-        wi = InFlowWorkItem.new()
-
-        wi.fx = "5"
-        do_test(CSV7, wi, { "fy" => "c" }, false)
-
-        wi.attributes.clear()
-
-        wi.fx = "10"
-        do_test(CSV7, wi, { "fy" => "b" }, false)
-
-        wi.attributes.clear()
-
-        wi.fx = "10a"
-        do_test(CSV7, wi, { "fy" => "a" }, false)
-    end
-
-    protected
-
-        def do_test (table_data, wi, expected_result, verbose=false)
-
-            table = CsvTable.new(table_data)
-
-            if verbose
-                puts
-                puts "before :"
-                puts wi
-            end
-
-            wi = if wi.kind_of? Hash
-                table.transform(wi)
-            else
-                table.transform_wi(nil, wi)
-            end
-
-            if verbose
-                puts
-                puts "after :"
-                puts wi
-            end
-
-            expected_result.each do |k, v|
-
-                #if wi.attributes[k] != v
-                #end
-
-                value = if wi.kind_of? Hash
-                    wi[k]
-                else
-                    wi.attributes[k]
-                end
-
-                assert \
-                    value == v,
-                    "attribute '#{k}' should be set to '#{v}' "+
-                    "but is set to '#{value}'"
-            end
-        end
-
-end
-

data/test/ft_19_csv.rb

@@ -1,65 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/expressions/raw_prog'
-require 'openwfe/participants/csvparticipants'
-
-include OpenWFE
-
-
-
-class FlowTest19 < Test::Unit::TestCase
-    include FlowTestBase
-
-    CSV0 = \
-"""
-in:weather, in:month, out:take_umbrella?
-,,
-raining,    ,         yes
-sunny,      ,         no
-cloudy,     june,     yes
-cloudy,     may,      yes
-cloudy,     ,         no
-"""
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    #
-    # Test 0
-    #
-
-    class TestDefinition0 < ProcessDefinition
-        def make
-            process_definition :name => "test0", :revision => "0" do
-                sequence do
-                    set :field => "weather", :value => "cloudy"
-                    set :field => "month", :value => "may"
-                    decision
-                    _print "${f:take_umbrella?}"
-                end
-            end
-        end
-    end
-
-    def test_0
-
-        csvParticipant = CsvParticipant.new(CSV0)
-
-        @engine.register_participant("decision", csvParticipant)
-
-        dotest(
-            TestDefinition0,
-            "yes")
-    end
-
-end
-

data/test/rest_test.rb

@@ -1,189 +0,0 @@
-#
-#--
-# Copyright (c) 2005-2007, John Mettraux, OpenWFE.org
-# 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.
-#--
-#
-# $Id: test.rb 3454 2006-10-08 16:51:00Z jmettraux $
-#
-
-#
-# "hecho en Costa Rica"
-# "Rewritten as a unit test in Japan"
-#
-
-require 'test/unit'
-
-require 'worklistclient'
-require 'controlclient'
-
-
-#
-# TESTING THE WORKLIST AND THE CONTROL INTERFACES
-#
-
-OWFE_HOST = ENV['OWFE_HOST']
-OWFE_HOST = "127.0.0.1" if not OWFE_HOST
-
-
-class RestTest < Test::Unit::TestCase
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    def test_worklist_0
-    #def xxxx_worklist_0
-
-        client = OpenWFE::WorklistClient\
-           .new("http://#{OWFE_HOST}:5080/worklist", "alice", "alice")
-
-        puts "session_id : #{client.session_id}"
-
-        #puts client.get('getstorenames', nil, nil)
-
-        puts "Stores :"
-        l = client.list_stores()
-        l.each do |s|
-            puts " - store  name : '#{s.name}'  wi count : #{s.workitem_count}  permissions : #{s.permissions}"
-        end
-
-        puts
-
-        puts "launching a flow"
-        li = OpenWFE::LaunchItem.new()
-        li.workflow_definition_url = "http://localhost:7079/flow__1.0.xml"
-        li.attributes["__subject__"] = "openwfe-ruby"
-
-        fei = client.launch_flow("mainEngine", li)
-        puts fei
-
-        puts
-
-        feiToFetch = nil
-
-        puts "Store.alpha's headers :"
-        l = client.get_headers("Store.alpha")
-        l.each do |h|
-            puts " - header  lastModified : #{h.last_modified}  locked : #{h.locked}  ac : #{h.attributes.length}"
-            puts "           fei : #{h.flow_expression_id}"
-
-            feiToFetch = h.flow_expression_id
-        end
-
-        puts "Fetching the first workitem :"
-        wi = client.get_workitem("Store.alpha", feiToFetch)
-
-        #puts wi.inspect()
-        puts
-
-        puts "Fetching (and locking) the first workitem :"
-        wi = client.get_and_lock_workitem("Store.alpha", feiToFetch)
-
-        puts wi.inspect()
-
-        puts
-
-        puts "Releasing the workitem :"
-        puts "ok" if client.release_workitem(wi)
-
-        puts
-
-        puts "Listing launchables :"
-        client.list_launchables().each do |l|
-            puts " - launchable  #{l.engine_id} :: #{l.url}"
-        end
-
-        puts
-
-        puts "Closing worklist worksession"
-        client.close()
-    end
-
-    def test_control_0
-    #def xxxx_control_0
-
-        puts "Testing the control interface..."
-
-        #
-        # launching a test flow
-
-        #TEST_NAME = '-- testing ruby control (0) --'
-
-        #client = OpenWFE::WorklistClient\
-        #   .new("http://127.0.0.1:5080/worklist", "alice", "alice")
-
-        #li = OpenWFE::LaunchItem.new()
-        #li.workflowDefinitionUrl = "http://localhost:7079/flow__1.0.xml"
-        #li.attributes["__subject__"] = TEST_NAME
-
-        #fei = client.launchFlow("mainEngine", li)
-        #puts "launched :  #{fei}"
-
-        #client.close()
-
-        #
-        # controlling the test flow
-
-        client = OpenWFE::ControlClient\
-           .new("http://#{OWFE_HOST}:6080/engine", "admin", "admin")
-
-        puts "sessionId : #{client.session_id}"
-
-        puts
-
-        puts "listing expressions :"
-        exps = client.list_expressions()
-        display_expressions(exps)
-
-        puts
-
-        wfid = exps[-1].id.workflow_instance_id
-        puts "get_flow_stack() for flow #{wfid}"
-        exps = client.get_flow_stack(wfid)
-        display_expressions(exps)
-
-        client.close()
-    end
-
-    protected
-
-        def display_expressions (exps)
-            i = 0
-            exps.each do |exp|
-                print " - exp #{i} : #{exp.id}"
-                print " / #{exp.apply_time}" if exp.apply_time
-                print "\n"
-                i = i+1
-            end
-        end
-end
-

data/test/sqs_test.rb

@@ -1,103 +0,0 @@
-
-#
-# testing the sqs with yaml messages
-#
-
-require 'test/unit'
-
-require 'yaml'
-require 'base64'
-require 'openwfe/def'
-require 'openwfe/util/sqs'
-require 'openwfe/engine/engine'
-require 'openwfe/listeners/sqslisteners'
-require 'openwfe/participants/sqsparticipants'
-
-
-class SqsTest < Test::Unit::TestCase
-
-    #def setup
-    #end
-
-    #def teardown
-    #end
-
-    #def xxxx_0
-    def test_0
-
-        hash = {
-            :red => :color,
-            :count => "twelve",
-            "fish" => "sakana",
-            :llen => 4,
-            :list => [ 0, 1, 2, 3, 4, :fizz ]
-        }
-
-        qs = SQS::QueueService.new
-
-        qs.create_queue(:yamltest)
-
-        puts "created queue 'yamltest'"
-
-        msg = YAML.dump(hash)
-        msg = Base64.encode64(msg)
-
-        puts "message size is #{msg.size.to_f / 1024.0} K"
-
-        msg_id = qs.put_message(:yamltest, msg)
-
-        puts "sent hash as message, msg_id is #{msg_id}"
-
-        sleep(1)
-
-        msg = qs.get_message(:yamltest, msg_id)
-
-        puts "got message back"
-
-        msg = Base64.decode64(msg.message_body)
-        msg = YAML.load(msg)
-
-        pp msg
-
-        assert msg == hash
-
-        count = qs.flush_queue(:yamltest)
-
-        puts "flushed #{count} messages from queue 'yamltest'"
-
-        qs.delete_queue(:yamltest)
-    end
-
-
-    class SqsDefinition0 < OpenWFE::ProcessDefinition
-        def make
-            participant :sqs
-        end
-    end
-
-    #def xxxx_participant_0
-    def test_participant_0
-
-        engine = OpenWFE::Engine.new
-
-        sqsp = SqsParticipant.new("wiqueue")
-        #class << sqsp
-        #    def encode_workitem (wi)
-        #        "hello from #{@queue.name}  #{wi.fei.workflow_instance_id}"
-        #    end
-        #end
-
-        engine.register_participant(:sqs, sqsp)
-
-        engine.add_workitem_listener(
-            OpenWFE::SqsListener.new(:wiqueue, engine.application_context), 
-            "2s")
-
-        engine.launch(SqsDefinition0)
-
-        sleep(5)
-
-        qs = sqsp.queue_service
-        qs.delete_queue("wiqueue")
-    end
-end