ruote 0.9.19 → 0.9.20

data/test/ruby_procdef_test.rb

@@ -1,132 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Tue Aug 21 10:22:18 JST 2007
-#
-
-require 'rubygems'
-
-require 'test/unit'
-
-require 'find'
-
-require 'openwfe/engine/file_persisted_engine'
-require 'openwfe/participants/storeparticipants'
-
-
-#
-# fighting bug at :
-# http://rubyforge.org/tracker/index.php?func=detail&aid=13238&group_id=2609&atid=10023
-#
-
-class RubyProcDefTest < Test::Unit::TestCase
-
-  def setup
-
-    @engine = OpenWFE::CachedFilePersistedEngine.new(
-      :definition_in_launchitem_allowed => true)
-
-    @engine.register_participant :alpha, OpenWFE::HashParticipant
-  end
-
-  def teardown
-
-    @engine.stop if @engine
-  end
-
-  #
-  # TESTS
-
-  class Test0 < OpenWFE::ProcessDefinition
-    sequence do
-      alpha
-    end
-  end
-
-  def test_0
-
-    fei0 = @engine.launch Test0
-    sleep 0.100
-    fei1 = @engine.launch Test0
-    sleep 0.200
-
-    stack0 = @engine.process_stack fei0.wfid
-    stack1 = @engine.process_stack fei1.wfid
-
-    assert_equal 3, stack0.size
-    assert_equal 3, stack1.size
-
-    assert_equal 4, count_files(fei0.wfid)
-    assert_equal 4, count_files(fei1.wfid)
-
-    @engine.cancel_process(fei0.wfid)
-    @engine.cancel_process(fei1.wfid)
-
-    sleep 0.350
-  end
-
-
-  TEST1 = """
-class Test1 < OpenWFE::ProcessDefinition
-  sequence do
-    alpha
-  end
-end
-  """
-
-  def test_1
-
-    fei0 = launch TEST1
-    sleep 0.100
-    fei1 = launch TEST1
-    sleep 0.200
-
-    assert_equal(
-      OpenWFE::ProcessDefinition::Test1,
-      OpenWFE::ProcessDefinition.extract_class(TEST1))
-
-    stack0 = @engine.process_stack fei0.wfid
-    #puts stack0
-    stack1 = @engine.process_stack fei1.wfid
-    #puts stack1
-
-    assert_equal 3, stack0.size
-    assert_equal 3, stack1.size
-
-    assert_equal 4, count_files(fei0.wfid)
-    assert_equal 4, count_files(fei1.wfid)
-
-    @engine.cancel_process(fei0.wfid)
-    @engine.cancel_process(fei1.wfid)
-
-    sleep 0.350
-  end
-
-  protected
-
-    def launch (test_string)
-
-      filename = "work/procdef.rb"
-
-      File.open(filename, "w") do |f|
-        f.puts test_string
-      end
-      @engine.launch filename
-    end
-
-    def count_files (wfid)
-
-      count = 0
-
-      Find.find("work/expool/") do |path|
-        next unless path.match(wfid+"__.*\.yaml")
-        count += 1
-      end
-
-      count
-    end
-
-end

data/test/sec_test.rb

@@ -1,206 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Tue Jan  2 13:14:37 JST 2007
-#
-
-require 'rubygems'
-
-require 'test/unit'
-
-require 'openwfe/workitem'
-require 'openwfe/engine/engine'
-
-
-class SecTest < Test::Unit::TestCase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_sec_0
-
-    engine = OpenWFE::Engine.new
-
-    engine.ac[:ruby_eval_allowed] = true
-    engine.ac[:definition_in_launchitem_allowed] = true
-
-    def0 = \
-'''<process-definition name="" revision="0">
-  <sequence>
-    <!--
-    <reval>puts "ok"</reval>
-    <reval>self.ac[:ruby_eval_allowed] = false</reval>
-    <reval>puts self.ac[:ruby_eval_allowed]</reval>
-    <reval>puts "ok after"</reval>
-    -->
-    <reval>File.open("nada.txt") do |f| f.write("nada"); end</reval>
-  </sequence>
-</process-definition>'''
-
-    dotest engine, def0
-
-    assert(
-      OpenWFE::grep(
-        "exception : .:call, .:const, :File.. is excluded",
-        "logs/openwferu.log").size > 0)
-
-    def2 =
-'''<process-definition name="" revision="0">
-  <sequence>
-    <reval>
-      <![CDATA[
-      class << self.ac["engine"]
-        def is_secure?
-          true
-        end
-      end
-      self.ac["engine"].is_secure?
-      ]]>
-    </reval>
-  </sequence>
-</process-definition>'''
-
-    dotest(engine, def2)
-
-    def3 =
-'''<process-definition name="" revision="0">
-  <sequence>
-    <reval>self.ac[:ruby_eval_allowed] = false</reval>
-    <reval>puts self.ac[:ruby_eval_allowed]</reval>
-  </sequence>
-</process-definition>'''
-
-    dotest(engine, def3)
-
-    assert OpenWFE::grep(
-      "evaluation of ruby code is not allowed", "logs/openwferu.log")
-
-    engine.stop
-  end
-
-  def test_sec_0b
-
-    engine = OpenWFE::Engine.new
-
-    engine.ac[:ruby_eval_allowed] = true
-    engine.ac[:definition_in_launchitem_allowed] = true
-
-    def1 =
-'''<process-definition name="" revision="0">
-  <sequence>
-    <reval>
-      class Object
-        def my_name
-          "toto"
-        end
-      end
-      "stringobject".my_name
-    </reval>
-  </sequence>
-</process-definition>'''
-
-    dotest engine, def1
-
-    assert_equal(
-      2, # now and previously
-      OpenWFE::grep(
-        'is forbidden',
-        "logs/openwferu.log").size)
-    #assert_equal(
-    #  1,
-    #  OpenWFE::grep(
-    #    "Insecure: can't set constant",
-    #    "logs/openwferu.log").size)
-      #
-      # level 4 is too much (can't modify hashes)...
-  end
-
-  XMLDEF =
-'''<process-definition name="" revision="0">
-  <sequence>
-    <set field="f" value="${ruby:5*7}" />
-    <toto/>
-  </sequence>
-</process-definition>'''
-
-  def test_sec_1
-
-    value = nil
-
-    engine = OpenWFE::Engine.new :definition_in_launchitem_allowed => true
-
-    engine.register_participant(:toto) do |workitem|
-
-      workitem.attributes.delete("___map_type")
-        #
-        # if the xmlencoder was used in previous, this field
-        # might be set, removing it.
-
-      value = "#{workitem.attributes.size}_#{workitem.f}"
-    end
-
-    engine.launch XMLDEF
-
-    sleep 0.350
-
-    assert_equal "3_", value
-
-    engine.stop
-  end
-
-  def test_sec_1b
-
-    value = nil
-
-    engine = OpenWFE::Engine.new
-
-    engine.register_participant(:toto) do |workitem|
-
-      workitem.attributes.delete("___map_type")
-        #
-        # if the xmlencoder was used in previous, this field
-        # might be set, removing it.
-
-      value = "#{workitem.attributes.size}_#{workitem.f}"
-    end
-
-    engine.ac[:ruby_eval_allowed] = true
-    engine.ac[:definition_in_launchitem_allowed] = true
-
-    engine.launch XMLDEF
-
-    sleep 0.350
-
-    assert_equal "3_35", value
-
-    engine.stop
-  end
-
-  def test_sec_2
-
-    assert_not_nil OpenWFE::TreeChecker.new(nil, {}).check("5*7")
-  end
-
-  protected
-
-    def dotest (engine, def_or_li)
-
-      li = if def_or_li.is_a?(OpenWFE::LaunchItem)
-        def_or_li
-      else
-        OpenWFE::LaunchItem.new(def_or_li)
-      end
-
-      engine.launch(li)
-
-      sleep 0.350
-    end
-
-end
-

data/test/timeout_test.rb

@@ -1,105 +0,0 @@
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Sun Oct 29 15:41:44 JST 2006
-#
-
-require 'test/unit'
-
-require 'openwfe/engine/engine'
-require 'openwfe/def'
-require 'openwfe/participants/storeparticipants'
-
-require 'rutest_utils'
-
-
-class TimeoutTest < Test::Unit::TestCase
-
-  #def setup
-  #  @engine = $WORKFLOW_ENGINE_CLASS.new()
-  #end
-
-  #def teardown
-  #end
-
-  class TimeoutDefinition0 < OpenWFE::ProcessDefinition
-    sequence do
-      participant :ref => "albert", :timeout => "500"
-      _print "timedout? ${f:__timed_out__}"
-      _print "over ${f:done}"
-    end
-  end
-
-  def test_timeout_0
-
-    albert = OpenWFE::HashParticipant.new
-
-    engine = OpenWFE::Engine.new :definition_in_launchitem_allowed => true
-
-    engine.application_context["__tracer"] = Tracer.new
-
-    engine.register_participant :albert, albert
-
-    li = OpenWFE::LaunchItem.new TimeoutDefinition0
-
-    engine.launch li
-
-    sleep 2
-
-    s = engine.application_context["__tracer"].to_s
-
-    engine.stop
-
-    #puts "trace is >#{s}<"
-    #puts "albert.size is #{albert.size}"
-
-    assert_equal 0, albert.size, "wi was not removed from workitem store"
-    assert_equal "timedout? true\nover", s, "flow did not reach 'over'"
-  end
-
-  def test_timeout_1
-
-    albert = OpenWFE::HashParticipant.new
-
-    engine = OpenWFE::Engine.new :definition_in_launchitem_allowed => true
-
-    engine.application_context["__tracer"] = Tracer.new
-
-    engine.register_participant(:albert, albert)
-
-    pjc = engine.get_scheduler.pending_job_count
-    assert \
-      pjc == 0,
-      "0 pending_jobs_count is at #{pjc}, it should be at 0"
-
-    li = OpenWFE::LaunchItem.new TimeoutDefinition0
-
-    engine.launch li
-
-    sleep 0.300
-
-    wi = albert.list_workitems(nil)[0]
-    wi.done = "ok"
-    albert.proceed(wi)
-
-    sleep 0.300
-
-    s = engine.application_context["__tracer"].to_s
-
-    #puts "trace is >#{s}<"
-    #puts "albert.size is #{albert.size}"
-
-    # in this test, the participant doesn't time out
-
-    assert_equal 0, albert.size, "wi was not removed from workitem store"
-    assert_equal "timedout? \nover ok", s, "flow did not reach 'over ok'"
-
-    pjc = engine.get_scheduler.pending_job_count
-
-    assert_equal 0, pjc, "pending_jobs_count is at #{pjc}, should be at 0"
-  end
-
-end
-

data/test/treechecker_test.rb

@@ -1,111 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Mon May 12 14:12:54 JST 2008
-#
-
-require 'rubygems'
-
-require 'test/unit'
-
-require 'openwfe/util/treechecker'
-require 'openwfe/expressions/rprocdef'
-
-
-#
-# testing expression conditions
-#
-class TreeCheckerTest < Test::Unit::TestCase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_0
-
-    assert_safe :check, "1+1"
-    assert_unsafe :check, "exit"
-    assert_unsafe :check, "puts $BATEAU"
-    assert_unsafe :check, "def surf }"
-    assert_unsafe :check, "abort"
-    assert_unsafe :check, "abort; puts 'ok'"
-    assert_unsafe :check, "puts 'ok'; abort"
-
-    assert_unsafe :check, "exit 0"
-    assert_unsafe :check, "system('whatever')"
-
-    assert_unsafe :check, "alias :a :b"
-    assert_unsafe :check, "alias_method :a :b"
-
-    assert_unsafe :check, "File.open('x')"
-    assert_unsafe :check, "FileUtils.rm('x')"
-
-    assert_unsafe :check, "eval 'nada'"
-    assert_unsafe :check, "M.module_eval 'nada'"
-    assert_unsafe :check, "o.instance_eval 'nada'"
-  end
-
-  def test_1
-
-    assert_safe :check_conditional, "1 == 1"
-    assert_unsafe :check_conditional, "puts 'ok'; 1 == 1"
-    assert_unsafe :check_conditional, "exit"
-
-    assert_unsafe :check_conditional, "a = 2"
-  end
-
-  def test_2
-
-    assert_safe :check, "class Toto < OpenWFE::ProcessDefinition\nend"
-    assert_unsafe :check, "class String\nend"
-    assert_unsafe :check, "module Whatever\nend"
-    assert_unsafe :check, "class << e\nend"
-  end
-
-  def test_3
-    assert_unsafe :check, "trap"
-    assert_unsafe :check, "Kernel.trap"
-    assert_unsafe :check, "k = Kernel; k.trap"
-    assert_unsafe :check, "k = Kernel; k.trap(x)"
-    assert_unsafe :check, "k = ::Kernel; k.trap(x)"
-  end
-
-  protected
-
-    def assert_safe (check_method, code)
-
-      assert check(check_method, code)
-    end
-
-    def assert_unsafe (check_method, code)
-
-      assert (not check(check_method, code))
-    end
-
-    def check (check_method, code)
-
-      begin
-
-        tc = OpenWFE::TreeChecker.new(nil, {})
-        #tc.instance_variable_get(:@checker).ptree code
-        #puts "\n==="
-        #puts tc.instance_variable_get(:@checker)
-        #puts "==="
-        #puts tc.instance_variable_get(:@cchecker)
-        tc.send check_method, code
-
-      rescue Exception => e
-        #puts "caught..."
-        #puts ":: #{e}"
-        #puts e.backtrace
-        return false
-      end
-
-      true
-    end
-end