openwferu 0.9.5 → 0.9.6

data/test/ft_4_misc.rb

@@ -117,8 +117,9 @@ class FlowTest4 < Test::Unit::TestCase
         <set variable="v">
             <!--
             <reval>self.lookup_variable("w") * 3</reval>
-            -->
             <reval>lookup_variable("w") * 3</reval>
+            -->
+            <reval>"W" * 3</reval>
         </set>
         <print>${v}</print>
     </sequence>

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
+        #require 'pp'; pp 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
+        #require 'pp'; pp h
+
+        li1 = OpenWFE::workitem_from_h(h)
+
+        assert li1.is_a?(OpenWFE::LaunchItem)
+        assert_equal li1.price, "USD 12"
+        assert_equal li1.attributes.size, 3
+    end
+
+end

data/test/rake_qtest.rb

@@ -16,16 +16,14 @@ require 'wfid_test'
 require 'wi_test'
 require 'dollar_test'
 require 'misc_test'
+require 'hash_test'
 require 'lru_test'
 require 'time_test'
 require 'raw_prog_test'
 require 'file_persistence_test'
 require 'cronline_test'
 require 'csv_test'
-
-#require 'journal_persistence_test'
-    #
-    # disabled for now, as journal persistence will undergo a redesign soon
+require 'safely_test'
 
 require 'ft_0'
 require 'ft_0b_sequence'
@@ -57,6 +55,9 @@ 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 'hparticipant_test'
 require 'timeout_test'

data/test/raw_prog_test.rb

@@ -184,6 +184,7 @@ end""".strip
             "to_code_s() not working properly (3)"
     end
 
+
     #
     # TEST 4
     #
@@ -219,5 +220,209 @@ end""".strip
             "to_code_s() not working properly (4)"
     end
 
+
+    #
+    # TEST 4b
+    #
+
+    class TestDefinition4b < OpenWFE::ProcessDefinition
+        def make
+            sequence do
+                [ :b, :b, :b ].each do |p|
+                    participant p
+                end
+            end
+        end
+    end
+
+    CODE_DEF4b = """
+process_definition :name => 'TestDefinition4b', :revision => '0' do
+    sequence do
+        participant do
+            'b'
+        end
+        participant do
+            'b'
+        end
+        participant do
+            'b'
+        end
+    end
+end""".strip
+
+    def test_prog_4b
+
+        #puts
+        #puts TestDefinition4.do_make.to_s
+        #puts
+        #puts TestDefinition4b.do_make.to_code_s
+
+        assert \
+            TestDefinition4b.do_make.to_code_s == CODE_DEF4b,
+            "to_code_s() not working properly (4b)"
+    end
+
+
+    #
+    # TEST 5
+    #
+
+    class TestDefinition5 < OpenWFE::ProcessDefinition
+        def make
+            sequence do
+                participant :ref => :toto
+                sub0
+            end
+            process_definition :name => "sub0" do
+                nada
+            end
+        end
+    end
+
+    CODE_DEF5 = """
+process_definition :name => 'Test', :revision => '5' do
+    sequence do
+        participant :ref => 'toto'
+        sub0
+    end
+    process_definition :name => 'sub0' do
+        nada
+    end
+end""".strip
+
+    def test_prog_5
+
+        #puts
+        #puts TestDefinition5.do_make.to_s
+        #puts
+        #puts TestDefinition5.do_make.to_code_s
+
+        assert \
+            TestDefinition5.do_make.to_code_s == CODE_DEF5,
+            "to_code_s() not working properly (5)"
+    end
+
+
+    #
+    # TEST 6
+    #
+
+    class TestDefinition60 < OpenWFE::ProcessDefinition
+        def make
+            sequence do
+                participant :ref => :toto
+                nada
+            end
+        end
+    end
+
+    CODE_DEF6 = """
+process_definition :name => 'Test', :revision => '60' do
+    sequence do
+        participant :ref => 'toto'
+        nada
+    end
+end""".strip
+
+    def test_prog_6
+
+        #puts
+        #puts TestDefinition60.do_make.to_s
+        #puts
+        #puts TestDefinition60.do_make.to_code_s
+
+        assert \
+            TestDefinition60.do_make.to_code_s == CODE_DEF6,
+            "to_code_s() not working properly (6)"
+    end
+
+
+    #
+    # TEST 7
+    #
+
+    class TestDefinitionSeven < OpenWFE::ProcessDefinition
+        def make
+            participant :ref => :toto
+        end
+    end
+
+    CODE_DEF7 = """
+process_definition :name => 'TestDefinitionSeven', :revision => '0' do
+    participant :ref => 'toto'
+end""".strip
+
+    def test_prog_7
+
+        #puts
+        #puts TestDefinition7.do_make.to_s
+        #puts
+        #puts TestDefinition7.do_make.to_code_s
+
+        assert \
+            TestDefinitionSeven.do_make.to_code_s == CODE_DEF7,
+            "to_code_s() not working properly (7)"
+    end
+
+    #
+    # TEST 8
+    #
+
+    def do_test(class_name, pdef)
+        result = eval """
+            class #{class_name} < OpenWFE::ProcessDefinition
+                def make
+                    participant 'nada'
+                end
+            end
+            #{class_name}.do_make
+        """
+        assert_equal result.attributes['name'], pdef[0]
+        assert_equal result.attributes['revision'], pdef[1]
+    end
+
+    def test_process_names
+        do_test("MyProcessDefinition_10", ["MyProcess", "10"])
+        do_test("MyProcessDefinition10", ["MyProcess", "10"])
+        do_test("MyProcessDefinition1_0", ["MyProcess", "1.0"])
+        do_test("MyProcessThing_1_0", ["MyProcessThing", "1.0"])
+    end
+
+
+    #
+    # TEST 9
+    #
+
+    class TestDefinition9 < OpenWFE::ProcessDefinition
+        def make
+            description "this is my process"
+            sequence do
+                participant :ref => :toto
+            end
+        end
+    end
+
+    CODE_DEF9 = """
+process_definition :name => 'Test', :revision => '60' do
+    description 'this is my process'
+    sequence do
+        participant :ref => 'toto'
+        nada
+    end
+end""".strip
+
+    def xxxx_prog_9
+    #def test_prog_9
+
+        #puts
+        #puts TestDefinition60.do_make.to_s
+        puts
+        puts TestDefinition9.do_make.to_code_s
+
+        assert \
+            TestDefinition9.do_make.to_code_s == CODE_DEF9,
+            "to_code_s() not working properly (9)"
+    end
+
 end
 

data/test/rutest_utils.rb

@@ -6,6 +6,9 @@
 # Mon Oct  9 22:19:44 JST 2006
 #
 
+require 'openwfe/rudefinitions'
+
+
 class Tracer
 
     def initialize
@@ -26,3 +29,16 @@ class Tracer
     end
 end
 
+def new_fei ()
+    fei = OpenWFE::FlowExpressionId.new()
+    fei.owfe_version = OpenWFE::OPENWFERU_VERSION
+    fei.engine_id = 'this'
+    fei.initial_engine_id = 'that'
+    fei.workflow_definition_url = 'http://test/test.xml'
+    fei.workflow_definition_name = 'test'
+    fei.workflow_definition_revision = '1.0'
+    fei.workflow_instance_id = '123456'
+    fei.expression_name = 'do-test'
+    fei.expression_id = '0.0'
+    fei
+end

data/test/safely_test.rb

@@ -0,0 +1,89 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+
+require 'tmpdir'
+require 'test/unit'
+#require 'openwfe/utils'
+require 'openwfe/util/safe'
+
+
+class SafelyTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_safely_0
+
+        assert_not_nil dotest("print ''", 4)
+        assert_not_nil dotest2("print ''", 4)
+
+        assert_nil dotest("print ''", 2)
+        assert_nil dotest2("print ''", 2)
+    end
+
+    def test_safely_1
+        assert_not_nil dotest3(STDOUT, "self.print ''", 4)
+        assert_nil dotest3(STDOUT, "self.print ''", 2)
+        assert_not_nil dotest3(nil, "print ''", 4)
+        assert_nil dotest3(nil, "print ''", 2)
+    end
+
+    protected
+
+        def dotest (code, level)
+
+            fname = "#{Dir.tmpdir}/safely_test_temp.rb"
+
+            File.open fname, "w" do |f|
+                f.puts code
+            end
+
+            e = nil
+
+            begin
+                OpenWFE::load_safely(fname, level)
+            rescue Exception => e
+            end
+
+            File.delete(fname)
+
+            #puts OpenWFE::exception_to_s(e) if e
+
+            e
+        end
+
+        def dotest2 (code, level)
+
+            begin
+                OpenWFE::load_eval_safely(code, level)
+            rescue Exception => e
+                return e
+            end
+
+            nil
+        end
+
+        def dotest3 (instance, code, level)
+
+            begin
+                if instance
+                    OpenWFE::instance_eval_safely(instance, code, level)
+                else
+                    OpenWFE::eval_safely(code, level)
+                end
+            rescue Exception => e
+                return e
+            end
+
+            nil
+        end
+
+end
+