openwferu 0.9.6 → 0.9.7

data/test/ft_7_lose.rb

@@ -100,66 +100,5 @@ done.""",
             true)
     end
 
-    #def xxxx_lose_1
-    def test_lose_1
-        dotest(
-'<process-definition name="'+name_of_test+'''" revision="0">
-    <sequence>
-        <concurrence
-            count="1"
-        >
-            <lose>
-                <sequence>
-                    <sleep for="500" />
-                    <print>a</print>
-                </sequence>
-            </lose>
-            <print>b</print>
-        </concurrence>
-        <print>c</print>
-    </sequence>
-</process-definition>''', 
-            """b
-c""", 
-            0.1,
-            true)
-    end
-
-
-    #
-    # TEST 2
-
-    class TestDefinition2 < ProcessDefinition
-        def make
-            process_definition :name => "7_lose", :revision => "2" do
-                sequence do
-                    _print "before"
-                    concurrence :count => 1 do
-                        lose do
-                            sequence do
-                                _sleep :for => 350
-                                _print "ok 4"
-                            end
-                        end
-                        sequence do 
-                            _print "ok 5"
-                        end
-                    end
-                    _print "after"
-                end
-            end
-        end
-    end
-
-    #def xxxx_lose_2
-    def test_lose_2
-        dotest(
-            TestDefinition2, 
-            """before
-ok 5
-after""",
-            0.1)
-    end
-
 end
 

data/test/ft_7b_lose.rb

@@ -0,0 +1,85 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Dec 25 14:27:48 JST 2006
+#
+
+require 'openwfe/def'
+require 'flowtestbase'
+
+
+class FlowTest7b < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #def xxxx_lose_1
+    def test_lose_1
+        dotest(
+'<process-definition name="'+name_of_test+'''" revision="0">
+    <sequence>
+        <concurrence
+            count="1"
+        >
+            <lose>
+                <sequence>
+                    <sleep for="500" />
+                    <print>a</print>
+                </sequence>
+            </lose>
+            <print>b</print>
+        </concurrence>
+        <print>c</print>
+    </sequence>
+</process-definition>''', 
+            """b
+c""", 
+            0.1,
+            true)
+    end
+
+
+    #
+    # TEST 2
+
+    class TestDefinition2 < ProcessDefinition
+        def make
+            process_definition :name => "7_lose", :revision => "2" do
+                sequence do
+                    _print "before"
+                    concurrence :count => 1 do
+                        lose do
+                            sequence do
+                                _sleep :for => 350
+                                _print "ok 4"
+                            end
+                        end
+                        sequence do 
+                            _print "ok 5"
+                        end
+                    end
+                    _print "after"
+                end
+            end
+        end
+    end
+
+    #def xxxx_lose_2
+    def test_lose_2
+        dotest(
+            TestDefinition2, 
+            """before
+ok 5
+after""",
+            0.1)
+    end
+
+end
+

data/test/ft_tests.rb

@@ -0,0 +1,49 @@
+#
+# 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_1_unset'
+require 'ft_1b_unset'
+require 'ft_2_concurrence'
+require 'ft_2b_concurrence'
+require 'ft_2c_concurrence'
+require 'ft_3_equals'
+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_10_loop'
+require 'ft_10b_loop2'
+require 'ft_11_ppd'
+require 'ft_12_blockparticipant'
+require 'ft_14_subprocess'
+require 'ft_14b_subprocess'
+require 'ft_15_iterator'
+require 'ft_16_fqv'
+require 'ft_17_condition'
+require 'ft_18_pname'
+require 'ft_19_csv'
+require 'ft_22_history'
+require 'ft_23_when'
+require 'ft_23b_when'
+require 'ft_24_def'
+require 'ft_25_cancel'
+require 'ft_27_getflowpos'
+require 'ft_28_fileparticipant'
+require 'ft_30_socketlistener'
+require 'ft_31_flowname'
+require 'ft_34_cancelwfid'
+require 'ft_35_localdefs'
+

data/test/kotoba_test.rb

@@ -0,0 +1,72 @@
+
+#
+# Testing OpenWFE (Kotoba)
+#
+# John Mettraux at openwfe.org
+#
+# Sun Mar 18 13:29:37 JST 2007
+#
+
+require 'test/unit'
+require 'openwfe/util/kotoba'
+
+#
+# testing misc things
+#
+
+class KotobaTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_kotoba
+        t = Time.now
+        #puts t.to_f
+        
+        st = t.to_f * 1000 * 10
+        
+        #puts st
+        
+        st = Integer(st) % (10 * 1000 * 60 * 60)
+        #st = 28340469
+        
+        s = Kotoba::from_integer(st)
+        
+        st2 = Kotoba::to_integer(s)
+        s2 = Kotoba::from_integer(st2)
+        
+        #puts st
+        #puts s
+        
+        #puts st2
+        #puts s2
+
+        assert_equal s, s2
+        assert_equal st, st2
+
+        a = Kotoba::split(s)
+
+        assert_equal a.join, s
+
+        #puts Kotoba::to_integer("tunashima")
+        #puts Kotoba::to_integer("tsunashima")
+
+        assert Kotoba::is_kotoba_word("takeshi")
+
+        assert Kotoba::is_kotoba_word("tsunasima")
+        assert Kotoba::is_kotoba_word("tunashima")
+
+        assert (not Kotoba::is_kotoba_word("dsfadf"))
+        assert (not Kotoba::is_kotoba_word("takeshin"))
+    end
+end
+
+#require 'pp'
+#pp Kotoba::split(s2)
+#
+#puts Kotoba::is_kotoba_word("asdfadsg")
+#puts Kotoba::is_kotoba_word(s2)
+

data/test/misc_test.rb

@@ -36,18 +36,6 @@ class MiscTest < Test::Unit::TestCase
             OpenWFE::ends_with("c'est la fin", "fin")
     end
 
-    def test_expression_map
-
-        em = OpenWFE::ExpressionMap.new('expressionmap', {})
-
-        assert \
-            em.get_class('process-definition') == OpenWFE::DefineExpression,
-            "class of 'process-definition' should be DefineExpression"
-        assert \
-            em.is_definition?('process-definition'),
-            "process-definition should be considered as a definition"
-    end
-
     def test_ensure_for_filename
 
         assert OpenWFE::ensure_for_filename("abc") == "abc"
@@ -64,6 +52,10 @@ class MiscTest < Test::Unit::TestCase
         assert OpenWFE::clean_path("my//file//path") == "my/file/path"
     end
 
+    def test_stu
+        assert_equal "a_b_c", OpenWFE::stu("a b c")
+    end
+
     def test_dup
         a0 = A.new
         a0.a = 1

data/test/param_test.rb

@@ -0,0 +1,284 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'flowtestbase'
+require 'openwfe/def'
+require 'openwfe/workitem'
+require 'openwfe/exceptions'
+
+
+class ParameterTest < Test::Unit::TestCase
+    include FlowTestBase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # test 0
+
+    def test_param_0
+
+        definition = '''
+<process-definition name="reqtest" revision="0">
+    <parameter field="address"/>
+    <print>${f:address}</print>
+</process-definition>'''.strip
+
+        li = OpenWFE::LaunchItem.new(definition)
+
+        e = nil
+        
+        begin
+            @engine.launch(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        assert_equal \
+            e.to_s,
+            "field 'address' is missing"
+
+        # second round
+
+        li = OpenWFE::LaunchItem.new(definition)
+        li.address = "rose garden 4"
+
+        #require 'pp' ; pp li
+
+        e = nil
+        
+        begin
+            @engine.launch(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        assert_nil e
+    end
+
+
+    #
+    # test 1
+
+    class TestParam1 < OpenWFE::ProcessDefinition
+        
+        param :field => "customer"
+        param :field => "address"
+
+        _print "#{f:customer},  #{f:address}"
+    end
+
+    def test_param_1
+
+        li = OpenWFE::LaunchItem.new(TestParam1)
+
+        e = nil
+        
+        begin
+            @engine.launch(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        assert_equal \
+            e.to_s,
+            "field 'customer' is missing"
+
+        li = OpenWFE::LaunchItem.new(TestParam1)
+        li.customer = "bauhaus"
+        li.address = "rose garden 4"
+
+        e = nil
+        
+        begin
+            @engine.launch(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        assert_nil e
+    end
+
+
+    #
+    # test 2
+
+    class TestParam2 < OpenWFE::ProcessDefinition
+        
+        param :field => "address", :default => "(unknown address)"
+
+        sequence do
+            #pp_workitem
+            _print "${f:address}"
+        end
+    end
+
+    def test_param_2
+
+        li = OpenWFE::LaunchItem.new(TestParam2)
+
+        e = nil
+
+        begin
+            @engine.launch(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        assert_nil e
+        assert_equal @tracer.to_s, "(unknown address)"
+    end
+
+
+    #
+    # test 3
+
+    class TestParam3 < OpenWFE::ProcessDefinition
+        
+        param :field => :address, :type => :string
+
+        sequence do
+            #pp_workitem
+            _print "${f:address}"
+        end
+    end
+
+    def test_param_3
+
+        li = OpenWFE::LaunchItem.new(TestParam3)
+        li.address = 3
+
+        e = nil
+
+        begin
+            @engine.launch(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        assert_nil e
+        assert_equal @tracer.to_s, "3"
+    end
+
+
+    #
+    # test 4
+
+    class TestParam4 < OpenWFE::ProcessDefinition
+        
+        param :field => :zip, :type => :integer
+
+        _print "${f:zip}"
+    end
+
+    def test_param_4
+
+        li = OpenWFE::LaunchItem.new(TestParam4)
+        li.zip = "Colorado"
+
+        e = nil
+
+        begin
+            @engine.launch(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        assert_not_nil e
+        assert_equal e.to_s, 'invalid value for Integer: "Colorado"'
+    end
+
+
+    #
+    # test 5
+
+    def test_param_5
+
+        definition = '''
+<process-definition name="paramtest" revision="5">
+    <parameter field="phone" match="^[0-9]{3}-[0-9]{3}-[0-9]{4}$" />
+    <print>${field:phone}</print>
+</process-definition>'''.strip
+
+        li = OpenWFE::LaunchItem.new(definition)
+
+        e = nil
+        
+        begin
+            @engine.launch(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        assert_equal e.to_s, "field 'phone' is missing"
+        assert_equal e.class, OpenWFE::ParameterException
+
+        # second round
+
+        li = OpenWFE::LaunchItem.new(definition)
+        li.phone = "4444-333-4444"
+
+        #require 'pp' ; pp li
+
+        e = nil
+        
+        begin
+            @engine.launch(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        assert_not_nil e
+        assert_equal e.to_s, "value of field 'phone' doesn't match"
+    end
+
+
+    #
+    # test 6
+
+    class TestParam6 < OpenWFE::ProcessDefinition
+        
+        param :field => "customer_type", :default => "2", :type => "int"
+
+        _print "#{f:customer},  #{f:address}"
+    end
+
+    def test_param_1
+
+        li = OpenWFE::LaunchItem.new(TestParam6)
+
+        e = nil
+        begin
+            @engine.pre_launch_check(li)
+        rescue Exception => e
+            #puts e
+            #puts OpenWFE::exception_to_s(e)
+        end
+
+        #require 'pp'; pp li
+
+        assert_nil e
+        assert li.customer_type
+        assert li.customer_type == 2
+    end
+
+end
+

data/test/rake_qtest.rb

@@ -8,8 +8,8 @@
 
 #require 'test/unit'
 
-File.delete('engine.log') \
-    if File.exist? 'engine.log'
+#File.delete('engine.log') \
+#    if File.exist? 'engine.log'
 
 require 'fei_test'
 require 'wfid_test'
@@ -24,40 +24,18 @@ require 'file_persistence_test'
 require 'cronline_test'
 require 'csv_test'
 require 'safely_test'
+#require 'model_test'
+require 'kotoba_test'
+require 'expmap_test'
 
-require 'ft_0'
-require 'ft_0b_sequence'
-require 'ft_0c_testname'
-require 'ft_0d_participant'
-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_4_misc'
-require 'ft_6_lambda'
-require 'ft_7_lose'
-require 'ft_8_forget'
-require 'ft_9_cursor'
-require 'ft_10_loop'
-require 'ft_10b_loop2'
-require 'ft_11_ppd'
-require 'ft_12_blockparticipant'
-require 'ft_14_subprocess'
-require 'ft_14b_subprocess'
-require 'ft_15_iterator'
-require 'ft_16_fqv'
-require 'ft_17_condition'
-require 'ft_18_pname'
-require 'ft_19_csv'
-require 'ft_22_history'
-require 'ft_23_when'
-require 'ft_24_def'
-require 'ft_25_cancel'
-require 'ft_27_getflowpos'
-require 'ft_28_fileparticipant'
-require 'ft_30_socketlistener'
+require 'sec_test'
+require 'param_test'
+
+require 'ft_tests'
+    #
+    # all the 'ft' tests are required in 'ft_tests.rb'
+
+#require 'ft_32_journal'
 
 require 'hparticipant_test'
 require 'timeout_test'

data/test/rake_test.rb

@@ -15,11 +15,10 @@ require 'ft_5_time'
 require 'scheduler_test'
 require 'cron_test'
 
-require 'restart_test'
-require 'restart_cron_test'
+require 'restart_tests'
+
 require 'ft_20_cron'
 require 'ft_21_cron'
-require 'ft_23b_when'
 
 #
 # the quick tests