ruote 0.9.18

data/test/condition_test.rb

@@ -0,0 +1,155 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 16:18:25 JST 2006
+#
+
+require 'test/unit'
+
+require 'rutest_utils'
+
+require 'openwfe/expressions/condition'
+
+#
+# testing expression conditions
+#
+
+class ConditionTest < Test::Unit::TestCase
+    include OpenWFE::ConditionMixin
+
+    def setup
+        @debug = false
+    end
+
+    #def teardown
+    #end
+
+    def test_0
+
+        #@debug = true
+
+        assert_t "true"
+        assert_F "false"
+
+        assert_t "1 == 1"
+
+        assert_t "'a' == 'a'"
+        assert_t '"a" == "a"'
+
+        assert_t "a == a"
+        assert_F "'a' == a"
+
+        #assert_t "!= ''"
+
+        assert_F " == 1 "
+        assert_F " == 1"
+        assert_F "== 1"
+    end
+
+    def test_0b
+
+        #@debug = true
+
+        assert_t "a"
+        assert_F ""
+    end
+
+    def test_1
+
+        #@debug = true
+
+        assert_set_t "1 is set"
+        assert_set_t "1 set"
+        assert_set_F "1 is not set"
+        assert_set_F "1 not set"
+
+        assert_set_t " is not set"
+        assert_set_t " not set"
+        assert_set_F " is set"
+        assert_set_F " set"
+
+        assert_t "1 is set"
+        assert_t "1 set"
+        assert_F "1 is not set"
+        assert_F "1 not set"
+
+        assert_t " is not set"
+        assert_t " not set"
+        assert_F " is set"
+        assert_F " set"
+    end
+
+    def test_2
+
+        #@debug = true
+
+        $my_owferu_var = nil
+
+        #assert_F "f = File.open('toto', 'w'); f.puts('nada'); f.close"
+        assert_t "$my_owferu_var = 3; $my_owferu_var = 4"
+
+        target = on_jruby? ? 4 : nil
+        assert_equal target, $my_owferu_var
+
+        #assert_F "fe.reply('a')"
+        assert_t "fe.reply('a')"
+    end
+
+    protected
+
+        #
+        # just for test_2
+        #
+        def reply (m)
+            @fei = nil
+        end
+
+        def assert_t (s, inv=false)
+
+            r = eval_condition(s, nil)
+
+            #puts "raw r is _#{r}_" if @debug
+
+            r = (not r) if inv
+
+            assert r, ">#{s}< should have evaluated to _#{not inv}_"
+        end
+
+        def assert_F (s)
+
+            assert_t s, true
+        end
+
+        def assert_set_t (s, inv=false)
+
+            r = eval_set s
+            r = (not r) if inv
+
+            assert r, ">#{s}< should have evaluated to _#{not inv}_"
+        end
+
+        def assert_set_F (s)
+
+            assert_set_t s, true
+        end
+
+        #def evalc (s)
+        #    eval_condition(s, nil)
+        #end
+
+        def lookup_attribute (attname, workitem)
+
+            attname
+        end
+
+        def ldebug (&block)
+
+            # don't do a thing
+            return unless @debug
+
+            puts "  " + block.call
+        end
+end

data/test/console_test.rb

@@ -0,0 +1,12 @@
+
+a = "A"
+b = 2
+
+require 'openwfe/util/irb'
+
+OpenWFE::trap_int_irb(binding())
+
+sleep(30)
+
+puts "out"
+

data/test/cron_ltest.rb

@@ -0,0 +1,15 @@
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct  9 22:19:44 JST 2006
+#
+
+require 'rubygems'
+
+require 'ft_20_cron'
+require 'ft_21_cron'
+require 'ft_21b_cron_pause'
+require 'restart_cron_test'
+

data/test/description_test.rb

@@ -0,0 +1,87 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Mon Oct 15 08:42:08 JST 2007
+#
+
+require 'rubygems'
+
+require 'test/unit'
+
+require 'openwfe/expool/parser'
+
+#
+# testing definition.get_description
+#
+
+class DescriptionTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    DEF0 = """
+class MyDef0 < OpenWFE::ProcessDefinition
+    description 'not much to say'
+    sequence do
+    end
+end
+    """
+
+    def test_0
+
+        #rep = OpenWFE::SimpleExpRepresentation.from_code DEF0
+        rep = OpenWFE::DefParser.parse_string DEF0
+
+        assert_equal(
+            "not much to say", 
+            OpenWFE::ExpressionTree.get_description(rep))
+    end
+
+    DEF1 = <<-EOS
+<process-definition name="x" revision="y">
+    <description>
+        just a tiny process
+    </description>
+    <participant ref="nada" />
+</process-definition>
+    EOS
+
+    def test_1
+
+        rep = OpenWFE::DefParser.parse_string DEF1
+
+        assert_equal(
+            "just a tiny process",
+            OpenWFE::ExpressionTree.get_description(rep))
+    end
+
+    class Test2 < OpenWFE::ProcessDefinition
+        # no description
+        sequence do
+        end
+    end
+    class Test2b < OpenWFE::ProcessDefinition
+        # no description
+        sequence do
+        end
+        define "sub0" do
+        end
+    end
+
+    def test_2
+
+        tree = OpenWFE::DefParser.parse Test2
+        assert_nil OpenWFE::ExpressionTree.get_description(tree)
+
+        tree = OpenWFE::DefParser.parse Test2b
+        #p tree
+        assert_nil OpenWFE::ExpressionTree.get_description(tree)
+    end
+end
+

data/test/eno_test.rb

@@ -0,0 +1,76 @@
+
+#
+# Testing OpenWFEru
+#
+# John Mettraux at openwfe.org
+#
+# Tue Jan  2 13:14:37 JST 2007
+#
+
+require 'test/unit'
+
+require 'openwfe/workitem'
+require 'openwfe/engine/engine'
+require 'openwfe/def'
+require 'openwfe/participants/participants'
+require 'openwfe/participants/enoparticipants'
+
+require 'rubygems'
+require 'mailtrap'
+
+
+class EnoTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    #
+    # Test 0
+    #
+
+    class TestDefinition0 < OpenWFE::ProcessDefinition
+        email_notification_participant
+    end
+
+    def test_eno
+
+        mailfile = "work/mailtrap.txt"
+
+        FileUtils.mkdir "work" unless File.exist?("work")
+        FileUtils.rm mailfile if File.exist?(mailfile)
+        Thread.new do
+            Mailtrap.new 'localhost', 2525, true, "work/mailtrap.txt"
+        end
+
+        engine = Engine.new
+
+        eno = OpenWFE::MailParticipant.new(
+            :smtp_server => "localhost",
+            :smtp_port => 2525,
+            :from_address => "eno@outoftheblue.co.jp"
+        ) do
+
+            s = ""
+            s << "Subject: test 0\n"
+            s << "\n"
+            s << "konnichiwa. #{Time.now.to_s}\n\n"
+
+            s
+        end
+
+        engine.register_participant("email_notification_participant", eno)
+
+        li = OpenWFE::LaunchItem.new TestDefinition0
+
+        li.email_target = 'john@localhost'
+
+        fei = engine.launch li
+        engine.wait_for fei
+
+        assert_equal 1, OpenWFE.grep("konnichiwa", mailfile).size
+    end
+end
+

data/test/expmap_test.rb

@@ -0,0 +1,54 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Sun Oct 29 16:18:25 JST 2006
+#
+
+require 'test/unit'
+require 'openwfe/expressions/expressionmap'
+
+#
+# testing misc things
+#
+
+class ExpmapTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_expmap_0
+
+        em = OpenWFE::ExpressionMap.new
+
+        #puts em.to_s
+
+        assert_equal \
+            em.get_class(:sequence),
+            OpenWFE::SequenceExpression
+
+        assert_equal \
+            em.get_class(:sequence),
+            em.get_class("sequence")
+
+        assert_not_equal \
+            em.get_class(:loop),
+            em.get_class(:cursor)
+
+        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"
+        assert \
+            em.is_definition?(:process_definition),
+            "process-definition should be considered as a definition (2)"
+    end
+
+end

data/test/fe_lookup_att_test.rb

@@ -0,0 +1,62 @@
+
+#
+# Testing OpenWFE
+#
+# John Mettraux at openwfe.org
+#
+# Thu Nov  1 19:33:45 JST 2007
+#
+
+require 'rubygems'
+
+require 'test/unit'
+require 'openwfe/expressions/flowexpression'
+
+
+class FeLookupAttTest < Test::Unit::TestCase
+
+    #def setup
+    #end
+
+    #def teardown
+    #end
+
+    def test_0
+
+        attributes = { 
+            "a" => true, 
+            "b" => false,
+            "A" => "a, b, c,d,${e},f",
+            "B" => [ 1, 2, 3, "${a}" ]
+        }
+
+        fe = OpenWFE::FlowExpression.new_exp nil, nil, nil, nil, attributes
+
+        class << fe
+            def lookup_variable (varname)
+                varname * 2
+            end
+        end
+
+        assert_equal true, fe.lookup_boolean_attribute("a", nil)
+        assert_equal true, fe.lookup_boolean_attribute(:a, nil)
+        assert_equal true, fe.lookup_boolean_attribute("a", nil, false)
+        assert_equal true, fe.lookup_boolean_attribute(:a, nil, false)
+        assert_equal true, fe.lookup_boolean_attribute("a", nil, true)
+        assert_equal true, fe.lookup_boolean_attribute(:a, nil, true)
+
+        assert_equal false, fe.lookup_boolean_attribute("b", nil)
+        assert_equal false, fe.lookup_boolean_attribute(:b, nil)
+        assert_equal false, fe.lookup_boolean_attribute("b", nil, false)
+        assert_equal false, fe.lookup_boolean_attribute(:b, nil, false)
+        assert_equal false, fe.lookup_boolean_attribute("b", nil, true)
+        assert_equal false, fe.lookup_boolean_attribute(:b, nil, true)
+
+        assert_equal %w{ a b c d ee f }, fe.lookup_array_attribute('A', nil)
+        assert_equal [ 1, 2, 3, "aa" ], fe.lookup_array_attribute('B', nil)
+
+        # a fat but fast test
+    end
+
+end
+