ruote 0.9.18

data/test/ft_9b_cursor.rb

@@ -0,0 +1,105 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Nov 22 11:53:13 JST 2007
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+
+
+class FlowTest9b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class Test0 < OpenWFE::ProcessDefinition
+        cursor do
+            set :v => "v0", :val => "x"
+            _print "${v0}"
+        end
+    end
+
+    def test_0
+
+        dotest Test0, "x"
+    end
+
+    #
+    # Test 1
+    #
+
+    #class Test1 < OpenWFE::ProcessDefinition
+    #    cursor do
+    #        my_participant
+    #    end
+    #end
+    #def test_1
+    #    @engine.register_participant :my_participant do |fexp, wi|
+    #        #puts fexp.to_s
+    #        #puts fexp.environment_id.to_s
+    #        @tracer << "ok0\n" if fexp.environment_id.expid != fexp.fei.expid
+    #        @tracer << "ok1\n" if fexp.environment_id.expid == "0.0"
+    #        @tracer << "ok2\n" if fexp.environment_id.wfid + ".0" == fexp.fei.wfid
+    #    end
+    #    dotest Test1, "ok0\nok1\nok2"
+    #end
+
+    #
+    # Test 2
+    #
+
+    class Test2 < OpenWFE::ProcessDefinition
+        cursor do
+            my_participant
+        end
+    end
+    class MyParticipant
+        include OpenWFE::LocalParticipant
+
+        def initialize (tracer)
+            @tracer = tracer
+        end
+        def consume (workitem)
+            @tracer << "consume\n"
+            @workitem = workitem
+        end
+        def cancel (cancelitem)
+            @tracer << "cancel\n"
+        end
+    end
+
+    def test_2
+
+        #log_level_to_debug
+
+        @engine.register_participant :my_participant, MyParticipant.new(@tracer)
+
+        fei = launch Test2
+
+        sleep 0.350
+
+        @engine.cancel_process fei
+
+        sleep 0.350
+
+        assert(
+            [ "consume\ncancel", 
+              "consume\ncancel\ncancel" ].include?(@tracer.to_s))
+
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+end
+

data/test/ft_tests.rb

@@ -0,0 +1,124 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+#require 'test/unit'
+
+require 'ft_0'
+require 'ft_0b_sequence'
+require 'ft_0c_testname'
+require 'ft_0d_participant'
+require 'ft_0e_multibody'
+require 'ft_1_unset'
+require 'ft_1b_unset'
+require 'ft_2_concurrence'
+require 'ft_2b_concurrence'
+require 'ft_2c_concurrence'
+require 'ft_3_equals'
+require 'ft_3b_lookup_vf'
+require 'ft_4_misc'
+require 'ft_6_lambda'
+require 'ft_7_lose'
+require 'ft_7b_lose'
+require 'ft_8_forget'
+require 'ft_9_cursor'
+require 'ft_9b_cursor'
+require 'ft_10_loop'
+require 'ft_11_ppd'
+require 'ft_11b_ppd'
+require 'ft_12_blockparticipant'
+require 'ft_14_subprocess'
+require 'ft_14b_subprocess'
+require 'ft_14c_subprocess'
+require 'ft_15_iterator'
+require 'ft_15b_iterator'
+require 'ft_16_fqv'
+require 'ft_17_condition'
+require 'ft_18_pname'
+require 'extras/ft_19_csv'
+require 'ft_22_history'
+require 'ft_23_when'
+require 'ft_23b_when'
+require 'ft_23c_wait'
+require 'ft_23d_cww'
+require 'ft_24_def'
+require 'ft_25_cancel'
+
+require 'ft_27_getflowpos'
+require 'ft_28_fileparticipant'
+
+require 'ft_31_flowname'
+require 'ft_34_cancelwfid'
+require 'ft_35_localdefs'
+require 'ft_36_subprocids'
+require 'ft_37_pnames'
+require 'ft_38_tag'
+require 'ft_38b_tag'
+require 'ft_38c_tag'
+require 'ft_39_reserve'
+require 'ft_39b_reserve'
+require 'ft_40_defined'
+require 'ft_41_case'
+require 'ft_42_environments'
+require 'ft_43_pat10'
+require 'ft_44_save'
+require 'ft_44b_restore'
+require 'ft_45_citerator'
+require 'ft_46_pparams'
+require 'ft_47_filter'
+require 'ft_48_fe_filter'
+require 'ft_49_condition'
+require 'ft_50_xml_attribute'
+#require 'ft_51_stack'
+require 'ft_52_obs_participant'
+require 'ft_53_null_noop_participant'
+require 'ft_54_listen'
+require 'ft_54b_listen'
+require 'ft_54c_listen'
+require 'ft_55_ptimeout'
+require 'ft_56_timeout'
+require 'ft_57_a'
+
+require 'ft_32_journal'
+require 'ft_32c_journal'
+require 'ft_32d_journal'
+
+require 'ft_58_ejournal'
+require 'ft_59_ps'
+require 'ft_60_ecancel'
+require 'ft_61_elsub'
+require 'ft_62_procparticipant'
+require 'ft_63_pause'
+require 'ft_64_alias'
+require 'ft_65_stringlaunch'
+require 'ft_66_subforget'
+
+require 'ft_68_ifparticipant'
+require 'ft_69_cancelmissing'
+require 'ft_70_lookupvar'
+require 'ft_71_log'
+require 'ft_72_lookup_processes'
+require 'ft_73_cancel_sub'
+require 'ft_74_block_and_workitem_dup'
+require 'ft_75_ruby_attributes'
+require 'ft_76_merge_isolate'
+require 'ft_77_segments'
+require 'ft_78_eval'
+require 'ft_79_tticket'
+require 'ft_79b_tticket'
+require 'ft_79c_outcome'
+require 'ft_80_spname'
+require 'ft_81_exp'
+
+require 'back_0916_test'
+
+require 'ft_82_trecu'
+require 'ft_84_updateexp'
+require 'ft_85_dolhash'
+require 'ft_86_dollar_fv'
+require 'ft_87_define'
+

data/test/hash_test.rb

@@ -0,0 +1,75 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 16:18:25 JST 2006
+#
+
+require 'test/unit'
+
+require 'openwfe/workitem'
+require 'openwfe/flowexpressionid'
+
+require 'rutest_utils'
+
+
+#
+# testing fei.to_h and wi.to_h
+#
+
+class HashTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_fei_to_h
+
+        fei0 = new_fei
+        h = fei0.to_h
+        fei1 = OpenWFE::FlowExpressionId.from_h(h)
+
+        assert_equal fei0, fei1
+    end
+
+    def test_wi_to_h
+
+        wi0 = OpenWFE::InFlowWorkItem.new
+        wi0.fei = new_fei
+
+        h = wi0.to_h
+        #p h
+
+        wi1 = OpenWFE::InFlowWorkItem.from_h(h)
+
+        assert_equal wi0.fei, wi1.fei
+        assert_equal wi0.attributes.length, wi1.attributes.length
+
+        wi2 = OpenWFE::workitem_from_h(h)
+
+        assert_equal wi0.fei, wi2.fei
+        assert_equal wi0.attributes.length, wi2.attributes.length
+    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"
+
+        h = li.to_h
+        #p h
+
+        li1 = OpenWFE::workitem_from_h h
+
+        assert_kind_of OpenWFE::LaunchItem, li1
+        assert_equal "USD 12", li1.price
+        assert_equal 3, li1.attributes.size
+    end
+
+end

data/test/hparticipant_test.rb

@@ -0,0 +1,164 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 15:41:44 JST 2006
+#
+# Kita Yokohama
+#
+
+require 'test/unit'
+
+require 'openwfe/flowexpressionid'
+require 'openwfe/engine/engine'
+require 'openwfe/def'
+require 'openwfe/participants/storeparticipants'
+
+
+class HParticipantTest < Test::Unit::TestCase
+
+    def setup
+
+        @engine = Engine.new({ :definition_in_launchitem_allowed => true })
+    end
+
+    def teardown
+
+        @engine.stop if @engine
+    end
+
+    class HpDefinition0 < OpenWFE::ProcessDefinition
+        sequence do
+            participant :alice
+            participant :bob
+        end
+    end
+
+    def test_hp_0
+
+        @hpAlice = HashParticipant.new
+        @hpBob = HashParticipant.new
+
+        @engine.register_participant :alice, @hpAlice
+        @engine.register_participant :bob, @hpBob
+
+        do_test
+    end
+
+    def test_hp_1
+
+        #FileUtils.remove_dir "./work" if File.exist? "./work"
+        FileUtils.rm_rf "work" if File.exist? "./work"
+
+        @engine.application_context[:work_directory] = "./work"
+        @hpAlice = YamlParticipant.new("alice", @engine.application_context)
+        #@hpBob = YamlParticipant.new("bob", @engine.application_context)
+
+        @engine.register_participant(:alice, @hpAlice)
+        #@engine.register_participant(:bob, @hpBob)
+        @hpBob = @engine.register_participant(:bob, YamlParticipant)
+
+        do_test
+    end
+
+    def do_test
+
+        id = @engine.launch HpDefinition0
+
+        assert \
+            id.kind_of?(FlowExpressionId),
+            "engine.launch() doesn't return an instance of FlowExpressionId "+
+            "but of #{id.class}"
+
+        #puts id.to_s
+
+        #puts "alice count : #{@hpAlice.size}"
+        #puts "bob count :   #{@hpBob.size}"
+
+        sleep 0.350
+
+        assert_equal 0, @hpBob.size
+        assert_equal 1, @hpAlice.size
+
+        wi = @hpAlice.list_workitems(id.workflow_instance_id)[0]
+
+        assert \
+            wi != nil,
+            "didn't find wi for flow #{id.workflow_instance_id}"
+
+        wi.message = "Hello bob !"
+
+        @hpAlice.forward(wi)
+
+        sleep 0.350
+
+        assert_equal 0, @hpAlice.size
+        assert_equal 1, @hpBob.size
+
+        wi = @hpBob.list_workitems(id.workflow_instance_id)[0]
+
+        assert_equal wi.message, "Hello bob !"
+
+        @hpBob.proceed wi
+
+        sleep 0.350
+
+        assert_equal 0, @hpAlice.size
+        assert_equal 0, @hpBob.size
+
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+    def test_d_0
+
+        @hpAlice = HashParticipant.new
+        @hpBob = HashParticipant.new
+
+        @engine.register_participant :alice, @hpAlice
+        @engine.register_participant :bob, @hpBob
+
+        id = @engine.launch HpDefinition0
+
+        sleep 0.350
+
+        assert_equal 1, @hpAlice.size
+        assert_equal 0, @hpBob.size
+
+        wi = @hpAlice.first_workitem
+
+        @hpAlice.delegate wi, @hpBob
+
+        assert_equal 0, @hpAlice.size
+        assert_equal 1, @hpBob.size
+
+        wi = @hpBob.first_workitem
+
+        @hpBob.proceed wi
+
+        sleep 0.350
+
+        assert_equal 0, @hpAlice.size
+        assert_equal 1, @hpBob.size
+
+        wi = @hpBob.first_workitem
+
+        @hpBob.delegate wi.fei, @hpAlice
+
+        assert_equal 1, @hpAlice.size
+        assert_equal 0, @hpBob.size
+
+        wi = @hpAlice.first_workitem
+
+        @hpAlice.forward wi
+
+        sleep 0.350
+
+        assert_equal 0, @hpAlice.size
+        assert_equal 0, @hpBob.size
+
+        assert_equal 1, @engine.get_expression_storage.size
+    end
+
+end
+