ruote 0.9.19 → 0.9.20

data/test/lookup_vf_test.rb

@@ -1,94 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Tue Mar 11 13:44:11 JST 2008
-#
-
-require 'test/unit'
-
-require 'rubygems'
-require 'openwfe/workitem'
-require 'openwfe/expressions/expressionmap'
-
-
-class LookupVfTest < Test::Unit::TestCase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  def test_0
-
-    fexp = new_exp({
-      "on-value" => "toto"
-    })
-    wi = new_wi({
-      "toto" => "whatever"
-    })
-
-    assert_equal(
-      "toto",
-      fexp.lookup_vf_attribute(wi, "value", :prefix => "on"))
-
-    fexp = new_exp({ "on-variable-value" => "toto" }, { "toto" => "surf" })
-
-    assert_equal(
-      "surf",
-      fexp.lookup_vf_attribute(wi, "value", :prefix => "on"))
-
-    fexp = new_exp({ "on-field-value" => "toto" })
-
-    assert_equal(
-      "whatever",
-      fexp.lookup_vf_attribute(wi, "value", :prefix => "on"))
-  end
-
-  def test_1
-
-    fexp = new_exp({
-      "on" => "surf"
-    })
-    wi = new_wi
-
-    assert_equal(
-      "surf",
-      fexp.lookup_vf_attribute(wi, "", :prefix => "on"))
-
-    assert_equal(
-      "surf",
-      fexp.lookup_vf_attribute(wi, "", :prefix => :on))
-  end
-
-  protected
-
-    def new_exp (atts, vars={})
-
-      fexp = OpenWFE::ParticipantExpression.new
-      fexp.attributes = atts
-
-      fexp.instance_variable_set :@vars, vars
-
-      class << fexp
-        def lookup_variable (var_name)
-          @vars[var_name]
-        end
-      end
-
-      fexp
-    end
-
-    def new_wi (atts={})
-
-      wi = OpenWFE::InFlowWorkItem.new
-      wi.attributes = atts
-      wi
-    end
-
-end
-

data/test/misc_test.rb

@@ -1,94 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Sun Oct 29 16:18:25 JST 2006
-#
-
-require 'rubygems'
-
-require 'test/unit'
-
-require 'rufus/dollar'
-require 'openwfe/utils'
-require 'openwfe/expressions/raw'
-#require 'openwfe/def'
-require 'openwfe/expressions/fe_define'
-require 'openwfe/expressions/expressionmap'
-
-#
-# testing misc things
-#
-
-class MiscTest < Test::Unit::TestCase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  def test_starts_with
-
-    assert OpenWFE::starts_with("//a", "//")
-    assert (not OpenWFE::starts_with("/a", "//"))
-  end
-
-  def test_ends_with
-
-    assert OpenWFE::ends_with("c'est la fin", "fin")
-  end
-
-  def test_ensure_for_filename
-
-    assert_equal OpenWFE::ensure_for_filename("abc"), "abc"
-    assert_equal OpenWFE::ensure_for_filename("a/c"), "a_c"
-    assert_equal OpenWFE::ensure_for_filename("a\\c"), "a_c"
-    assert_equal OpenWFE::ensure_for_filename("a*c"), "a_c"
-    assert_equal OpenWFE::ensure_for_filename("a+?"), "a__"
-    assert_equal OpenWFE::ensure_for_filename("a b"), "a_b"
-  end
-
-  def test_clean_path
-
-    assert_equal OpenWFE::clean_path("my//file/path"), "my/file/path"
-    assert_equal 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_grep_0
-
-    assert OpenWFE::grep("sputnik", "Rakefile").empty?
-    assert_equal 1, OpenWFE::grep("Mettraux", "Rakefile").size
-
-    OpenWFE::grep "Mettraux", "Rakefile" do |line|
-      assert_match "Mettraux", line
-    end
-  end
-
-  def test_expmap_get_classes
-
-    em = OpenWFE::ExpressionMap.new
-
-    assert_equal(
-      [
-        OpenWFE::ParticipantExpression,
-        OpenWFE::SleepExpression,
-        OpenWFE::CronExpression,
-        OpenWFE::WhenExpression,
-        OpenWFE::WaitExpression,
-        #OpenWFE::ReserveExpression,
-        OpenWFE::ListenExpression,
-        OpenWFE::TimeoutExpression,
-        OpenWFE::HpollExpression,
-        OpenWFE::Environment
-      ],
-      em.get_expression_classes(Rufus::Schedulable))
-  end
-end

data/test/nut_0_irb.rb

@@ -1,20 +0,0 @@
-
-#
-# NUT = not a unit test
-# some kind of a manual test
-#
-# John Mettraux at openwfe.org
-#
-# Mon Oct  9 22:19:44 JST 2006
-#
-
-require 'openwfe/util/irb'
-require 'openwfe/engine/engine'
-
-
-engine = OpenWFE::Engine.new
-
-OpenWFE::trap_int_irb(binding())
-
-sleep(20)
-

data/test/param_test.rb

@@ -1,290 +0,0 @@
-
-#
-# 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 "field 'address' is missing", e.to_s
-
-    # second round
-
-    li = OpenWFE::LaunchItem.new(definition)
-    li.address = "rose garden 4"
-
-    #require 'pp' ; pp li
-
-    fei = nil
-    e = nil
-
-    begin
-      fei = @engine.launch(li)
-    rescue Exception => e
-      #puts e
-      #puts OpenWFE::exception_to_s(e)
-    end
-
-    assert_nil e
-
-    sleep 0.350
-      # let the flow terminate on its own
-  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 "field 'customer' is missing", e.to_s
-
-    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
-
-    sleep 0.350
-
-    assert_nil e
-    assert_equal "(unknown address)", @tracer.to_s
-  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
-
-    sleep 0.350
-
-    # well, I should maybe refactor the test into a method
-
-    assert_nil e
-    assert_equal "3", @tracer.to_s
-  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 'invalid value for Integer: "Colorado"', e.to_s
-  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 "field 'phone' is missing", e.to_s
-    assert_equal OpenWFE::ParameterException, e.class
-
-    # 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 "value of field 'phone' doesn't match", e.to_s
-  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
-