ruote 0.9.19 → 0.9.20

data/test/ft_3b_lookup_vf.rb

@@ -1,83 +0,0 @@
-
-#
-# Testing OpenWFE
-#
-# John Mettraux at openwfe.org
-#
-# Wed Jan  9 22:52:06 JST 2008
-#
-
-require 'flowtestbase'
-
-
-class FlowTest3b < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-  class Def0 < OpenWFE::ProcessDefinition
-    sequence do
-
-      # variable
-
-      set :v => "v0", :val => "val0"
-
-      equals :variable => "v0", :other_value => "val0"
-      _print "${f:__result__}"
-
-      equals :variable_value => "v0", :other_value => "val0"
-      _print "${f:__result__}"
-
-      equals :var_value => "v0", :other_value => "val0"
-      _print "${f:__result__}"
-
-      equals :v_value => "v0", :other_value => "val0"
-      _print "${f:__result__}"
-
-      equals :var => "v0", :other_value => "val0"
-      _print "${f:__result__}"
-
-      equals :v => "v0", :other_value => "val0"
-      _print "${f:__result__}"
-
-      equals :v => "v0", :other_val => "val0"
-      _print "${f:__result__}"
-
-      equals :val => "val0", :other_val => "val0"
-      _print "${f:__result__}"
-
-      # field
-
-      set :f => "f0", :val => "f_val0"
-
-      equals :field_value => "f0", :other_value => "f_val0"
-      _print "${f:__result__}"
-
-      equals :f_value => "f0", :other_value => "f_val0"
-      _print "${f:__result__}"
-
-      equals :field => "f0", :other_value => "f_val0"
-      _print "${f:__result__}"
-
-      equals :field => "f0", :value => "f_val0"
-      _print "${f:__result__}"
-
-      equals :f => "f0", :other_value => "f_val0"
-      _print "${f:__result__}"
-
-      # damn, I could use a Rufus subprocess... but it's 11pm...
-      # copy, paste is just fine for a test...
-    end
-  end
-
-  def test_0
-
-    dotest Def0, ([ "true" ] * 13).join("\n")
-  end
-
-end
-

data/test/ft_40_defined.rb

@@ -1,61 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest40 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class TestDefined40a0 < OpenWFE::ProcessDefinition
-    sequence do
-
-      defined :field => "nada"
-      _print "${f:__result__}"
-
-      set :field => "nada", :value => "stuff"
-
-      defined :field => "nada"
-      _print "${f:__result__}"
-      defined :field_value => "nada"
-      _print "${f:__result__}"
-
-      defined :field_match => "^na.*"
-      _print "${f:__result__}"
-      defined :field_match => "^Na.*"
-      _print "${f:__result__}"
-      defined :field_match => "da$"
-      _print "${f:__result__}"
-
-      undefined :field_value => "nada"
-      _print "${f:__result__}"
-      undefined :field_value => "other"
-      _print "${f:__result__}"
-    end
-  end
-
-  def test_0
-
-    dotest(
-      TestDefined40a0,
-      %w{ false true true true false true false true }.join("\n"))
-  end
-
-end
-

data/test/ft_41_case.rb

@@ -1,110 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest41 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class TestCase41a0 < OpenWFE::ProcessDefinition
-    sequence do
-      _case do
-        reval "2 % 2 == 0"
-        _print "ok 0"
-      end
-      _case do
-        reval "2 % 2 == 1"
-        _print "bad 1"
-        _print "ok 1"
-      end
-      _case do
-        reval "2 % 2 == 1"
-        _print "bad 2"
-        reval "2 % 2 == 0"
-        _print "ok 2"
-        _print "bad 2"
-      end
-      _case do
-        reval "2 % 2 == 1"
-        _print "bad 2b"
-        reval "2 % 2 == 0"
-        _print "ok 2b"
-      end
-      _case do
-        reval "2 % 2 == 1"
-        _print "bad 3"
-        reval "2 % 2 == 3"
-        _print "bad 3"
-        _print "ok 3"
-      end
-    end
-  end
-
-  def test_0
-
-    dotest(
-      TestCase41a0,
-      [ 'ok 0', 'ok 1', 'ok 2', 'ok 2b', 'ok 3' ].join("\n"))
-  end
-
-
-  #
-  # Test 1
-  #
-
-  class TestCase41a1 < OpenWFE::ProcessDefinition
-    sequence do
-
-      _if :test => "1 == 1"
-      _print "${f:__result__}"
-    end
-  end
-
-  def test_1
-
-    dotest TestCase41a1, 'true'
-  end
-
-
-  #
-  # Test 2
-  #
-
-  class TestCase41a2 < OpenWFE::ProcessDefinition
-    sequence do
-      _case do
-        _if :test => "1 == 1"
-        _print "ok"
-      end
-      _case do
-        _if :test => "false"
-        _print "bad 1"
-        _print "ok 1"
-      end
-    end
-  end
-
-  def test_2
-
-    dotest TestCase41a2, "ok\nok 1"
-  end
-
-end
-

data/test/ft_42_environments.rb

@@ -1,75 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest42 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class TestCase42a0 < OpenWFE::ProcessDefinition
-    sequence do
-      set :variable => "v", :value => "a"
-      concurrence do
-        set :variable => "v", :value => "b"
-        set :variable => "v", :value => "c"
-        forget do
-          set :variable => "v", :value => "d"
-        end
-      end
-      _print "v:${v}"
-    end
-  end
-
-  def test_0
-
-    dotest TestCase42a0, [ "v:b", "v:c" ]
-  end
-
-
-  #
-  # Test 1
-  #
-
-  # DISABLED
-
-  class TestCase42a1 < OpenWFE::ProcessDefinition
-    sequence do
-      set :variable => "v", :value => "a"
-      concurrence :count => 2 do
-        set :variable => "v", :value => "b"
-        set :variable => "v", :value => "c"
-        lose do
-          set :variable => "v", :value => "d"
-        end
-      end
-      _print "v:${v}"
-    end
-  end
-
-  def _test_1
-
-    dotest(
-      TestCase42a1,
-      "v:d",
-      true)
-  end
-
-end
-

data/test/ft_43_pat10.rb

@@ -1,85 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest43 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class TestCase43a0 < OpenWFE::ProcessDefinition
-    def initialize (jump)
-      super()
-      @jump = jump
-    end
-    def make
-      process_definition :name => "jump", :revision => "0" do
-        sequence do
-          set :field => "__cursor_command__", :value => "jump #{@jump}"
-          cursor do
-            _print "0"
-            _print "1"
-            _print "2"
-          end
-          _print "3"
-        end
-      end
-    end
-  end
-
-  def test_0
-
-    dotest TestCase43a0.new(1), "1\n2\n3"
-  end
-
-  def test_1
-
-    dotest TestCase43a0.new(2), "2\n3"
-  end
-
-  def test_2
-
-    dotest TestCase43a0.new(2000), "2\n3"
-  end
-
-
-  #
-  # Test 3
-  #
-
-  class TestCase43a3 < OpenWFE::ProcessDefinition
-    sequence do
-      set :field => "__cursor_command__", :value => "jump 2"
-      cursor do
-        _print "0"
-        skip :step => 2
-        jump :step => 0
-        _print "1"
-      end
-      _print "2"
-    end
-  end
-
-  def test_3
-
-    dotest TestCase43a3, "0\n1\n2"
-  end
-
-end
-

data/test/ft_44_save.rb

@@ -1,70 +0,0 @@
-
-#
-# Testing OpenWFEru
-#
-# John Mettraux at openwfe.org
-#
-
-require 'flowtestbase'
-require 'openwfe/def'
-
-
-class FlowTest44 < Test::Unit::TestCase
-  include FlowTestBase
-
-  #def setup
-  #end
-
-  #def teardown
-  #end
-
-
-  #
-  # Test 0
-  #
-
-  class TestCase44a0 < OpenWFE::ProcessDefinition
-    sequence do
-      set :field => "f", :value => "v"
-      save :to_field => "saved"
-      #pp_workitem
-      _print "${f:saved.f}"
-    end
-  end
-
-  def test_0
-
-    dotest TestCase44a0, "v"
-  end
-
-
-  #
-  # Test 1
-  #
-
-  class TestCase44a1 < OpenWFE::ProcessDefinition
-    sequence do
-
-      set :field => "f", :value => "field_value"
-      save :to_variable => "v"
-
-      #pp_workitem
-      #_print "${r:fexp.lookup_variable('v').f}"
-        #
-        # doesn't work in case of ptest
-
-      print_var
-    end
-  end
-
-  def test_1
-
-    @engine.register_participant :print_var do |fexp, wi|
-      @tracer << fexp.lookup_variable('v').f.to_s
-    end
-
-    dotest TestCase44a1, "field_value"
-  end
-
-end
-